Adds initial Copilot support #70

Author: xenodium

agent-shell-github.el

@@ -0,0 +1,111 @@
+;;; agent-shell-github.el --- GitHub Copilot agent configurations -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2024 Alvaro Ramirez
+
+;; Author: Alvaro Ramirez https://xenodium.com
+;; URL: https://github.com/xenodium/agent-shell
+
+;; This package is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; This package is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; This file includes GitHub Copilot-specific configurations.
+;;
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl-lib))
+(require 'shell-maker)
+(require 'acp)
+
+(declare-function agent-shell--indent-string "agent-shell")
+(declare-function agent-shell-make-agent-config "agent-shell")
+(declare-function agent-shell--make-acp-client "agent-shell")
+(declare-function agent-shell--dwim "agent-shell")
+
+(defcustom agent-shell-github-command
+  '("copilot" "--acp")
+  "Command and parameters for the GitHub Copilot agent client.
+
+The first element is the command name, and the rest are command parameters."
+  :type '(repeat string)
+  :group 'agent-shell)
+
+(defcustom agent-shell-github-environment
+  nil
+  "Environment variables for the GitHub Copilot agent client.
+
+This should be a list of environment variables to be used when
+starting the GitHub Copilot agent process."
+  :type '(repeat string)
+  :group 'agent-shell)
+
+(defun agent-shell-github-make-copilot-config ()
+  "Create a GitHub Copilot agent configuration.
+
+Returns an agent configuration alist using `agent-shell-make-agent-config'."
+  (agent-shell-make-agent-config
+   :mode-line-name "Copilot"
+   :buffer-name "Copilot"
+   :shell-prompt "Copilot> "
+   :shell-prompt-regexp "Copilot> "
+   :icon-name "githubcopilot.png"
+   :welcome-function #'agent-shell-github--welcome-message
+   :client-maker (lambda (buffer)
+                   (agent-shell-github-make-client :buffer buffer))
+   :install-instructions "See https://github.com/github/copilot-cli for installation."))
+
+(defun agent-shell-github-start-copilot ()
+  "Start an interactive GitHub Copilot agent shell."
+  (interactive)
+  (agent-shell--dwim :config (agent-shell-github-make-copilot-config)
+                     :new-shell t))
+
+(cl-defun agent-shell-github-make-client (&key buffer)
+  "Create a GitHub Copilot agent ACP client with BUFFER as context."
+  (unless buffer
+    (error "Missing required argument: :buffer"))
+  (agent-shell--make-acp-client :command (car agent-shell-github-command)
+                                :command-params (cdr agent-shell-github-command)
+                                :environment-variables agent-shell-github-environment
+                                :context-buffer buffer))
+
+(defun agent-shell-github--welcome-message (config)
+  "Return GitHub Copilot welcome message using `shell-maker' CONFIG."
+  (let ((art (agent-shell--indent-string 4 (agent-shell-github--ascii-art)))
+        (message (string-trim-left (shell-maker-welcome-message config) "\n")))
+    (concat "\n\n"
+            art
+            "\n\n"
+            message)))
+
+(defun agent-shell-github--ascii-art ()
+  "GitHub Copilot ASCII art."
+  (let* ((is-dark (eq (frame-parameter nil 'background-mode) 'dark))
+         (text (string-trim "
+  ██████╗  ██████╗  ██████╗  ██╗ ██╗       ██████╗  ████████╗
+ ██╔════╝ ██╔═══██╗ ██╔══██╗ ██║ ██║      ██╔═══██╗ ╚══██╔══╝
+ ██║      ██║   ██║ ██████╔╝ ██║ ██║      ██║   ██║    ██║
+ ██║      ██║   ██║ ██╔═══╝  ██║ ██║      ██║   ██║    ██║
+ ╚██████╗ ╚██████╔╝ ██║      ██║ ███████╗ ╚██████╔╝    ██║
+  ╚═════╝  ╚═════╝  ╚═╝      ╚═╝ ╚══════╝  ╚═════╝     ╚═╝
+" "\n")))
+    (propertize text 'font-lock-face (if is-dark
+                                         '(:foreground "#6e40c9" :inherit fixed-pitch)
+                                       '(:foreground "#8250df" :inherit fixed-pitch)))))
+
+(provide 'agent-shell-github)
+
+;;; agent-shell-github.el ends here

agent-shell.el

@@ -58,6 +58,7 @@
 (require 'agent-shell-cursor)
 (require 'agent-shell-diff)
 (require 'agent-shell-google)
+(require 'agent-shell-github)
 (require 'agent-shell-goose)
 (require 'agent-shell-mistral)
 (require 'agent-shell-openai)
@@ -292,11 +293,12 @@ Returns an alist with all specified values."
 
 This function aggregates agents from OpenAI, Anthropic, Google,
 Goose, Cursor, Auggie, and others."
-  (list (agent-shell-anthropic-make-claude-code-config)
-        (agent-shell-auggie-make-agent-config)
+  (list (agent-shell-auggie-make-agent-config)
+        (agent-shell-anthropic-make-claude-code-config)
         (agent-shell-openai-make-codex-config)
         (agent-shell-cursor-make-agent-config)
         (agent-shell-droid-make-agent-config)
+        (agent-shell-github-make-copilot-config)
         (agent-shell-google-make-gemini-config)
         (agent-shell-goose-make-agent-config)
         (agent-shell-mistral-make-config)