(require 'ai-code-backends)

(require 'ai-code-backends-infra)

(defgroup ai-code-github-copilot-cli nil

"GitHub Copilot CLI integration via `ai-code-backends-infra'."

:group 'tools

:prefix "ai-code-github-copilot-cli-")

(defcustom ai-code-github-copilot-cli-program "copilot"

"Path to the GitHub Copilot CLI executable."

:type 'string

:group 'ai-code-github-copilot-cli)

(defcustom ai-code-github-copilot-cli-program-switches nil

"Command line switches to pass to GitHub Copilot CLI on startup."

:type '(repeat string)

:group 'ai-code-github-copilot-cli)

(defvar ai-code-github-copilot-cli--processes (make-hash-table :test 'equal)

"Hash table mapping directory roots to their Copilot processes.")

(defun ai-code-github-copilot-cli (&optional arg)

"Start GitHub Copilot CLI (uses `ai-code-backends-infra' logic).

(interactive "P")

(let* ((working-dir (ai-code-backends-infra--session-working-directory))

(buffer-name (ai-code-backends-infra--session-buffer-name "copilot" working-dir))

(command (concat ai-code-github-copilot-cli-program " "

(mapconcat 'identity ai-code-github-copilot-cli-program-switches " "))))

(ai-code-backends-infra--toggle-or-create-session

working-dir

buffer-name

ai-code-github-copilot-cli--processes

command

#'ai-code-github-copilot-cli-send-escape

(lambda ()

(ai-code-backends-infra--cleanup-session

working-dir

buffer-name

ai-code-github-copilot-cli--processes)))))

(defun ai-code-github-copilot-cli-switch-to-buffer ()

"Switch to the GitHub Copilot CLI buffer."

(interactive)

(let* ((working-dir (ai-code-backends-infra--session-working-directory))

(buffer-name (ai-code-backends-infra--session-buffer-name "copilot" working-dir)))

(ai-code-backends-infra--switch-to-session-buffer

buffer-name

"No Copilot session for this project")))

(defun ai-code-github-copilot-cli-send-command (line)

"Send LINE to GitHub Copilot CLI."

(interactive "sCopilot> ")

(let* ((working-dir (ai-code-backends-infra--session-working-directory))

(buffer-name (ai-code-backends-infra--session-buffer-name "copilot" working-dir)))

(ai-code-backends-infra--send-line-to-session

buffer-name

"No Copilot session for this project"

line)))

(defun ai-code-github-copilot-cli-send-escape ()

"Send escape key to GitHub Copilot CLI."

(interactive)

(ai-code-backends-infra--terminal-send-escape))

(defun ai-code-github-copilot-cli-resume (&optional arg)

"Resume a previous GitHub Copilot CLI session."

(interactive "P")

(let ((ai-code-github-copilot-cli-program-switches (append ai-code-github-copilot-cli-program-switches '("--resume"))))

(ai-code-github-copilot-cli arg)

;; Send empty string to trigger terminal processing and ensure CLI session picker appears

(let* ((working-dir (ai-code-backends-infra--session-working-directory))

(buffer-name (ai-code-backends-infra--session-buffer-name "copilot" working-dir))

(buffer (get-buffer buffer-name)))

(when buffer

(with-current-buffer buffer

(sit-for 0.5)

(ai-code-backends-infra--terminal-send-string "")

(goto-char (point-min)))))))

(provide 'ai-code-github-copilot-cli)