(require 'ai-code-backends)

(require 'ai-code-backends-infra)

(defgroup ai-code-codebuddy-cli nil

"CodeBuddy Code CLI integration via `ai-code-backends-infra'."

:group 'tools

:prefix "ai-code-codebuddy-cli-")

(defcustom ai-code-codebuddy-cli-program "codebuddy"

"Path to CodeBuddy Code CLI executable."

:type 'string

:group 'ai-code-codebuddy-cli)

(defcustom ai-code-codebuddy-cli-program-switches nil

"Command line switches to pass to CodeBuddy CLI on startup."

:type '(repeat string)

:group 'ai-code-codebuddy-cli)

(defconst ai-code-codebuddy-cli--session-prefix "codebuddy"

"Session prefix used in CodeBuddy CLI buffer names.")

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

"Hash table mapping CodeBuddy session keys to processes.")

(defun ai-code-codebuddy-cli (&optional arg)

"Start CodeBuddy (uses `ai-code-backends-infra' logic).

(interactive "P")

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

(resolved (ai-code-backends-infra--resolve-start-command

ai-code-codebuddy-cli-program

ai-code-codebuddy-cli-program-switches

arg

"CodeBuddy"))

(command (plist-get resolved :command)))

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

working-dir

nil

ai-code-codebuddy-cli--processes

command

#'ai-code-codebuddy-cli-send-escape

nil

nil

ai-code-codebuddy-cli--session-prefix

nil)))

(defun ai-code-codebuddy-cli-switch-to-buffer (&optional force-prompt)

"Switch to the CodeBuddy CLI buffer.

(interactive "P")

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

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

nil

"No CodeBuddy session for this project"

ai-code-codebuddy-cli--session-prefix

working-dir

force-prompt)))

(defun ai-code-codebuddy-cli-send-command (line)

"Send LINE to the CodeBuddy CLI."

(interactive "sCodeBuddy> ")

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

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

nil

"No CodeBuddy session for this project"

line

ai-code-codebuddy-cli--session-prefix

working-dir)))

(defun ai-code-codebuddy-cli-send-escape ()

"Send escape key to the CodeBuddy CLI."

(interactive)

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

(defun ai-code-codebuddy-cli-resume (&optional arg)

"Resume a previous CodeBuddy CLI session.

(interactive "P")

(let ((ai-code-codebuddy-cli-program-switches (append ai-code-codebuddy-cli-program-switches '("-c"))))

(ai-code-codebuddy-cli arg)))

(provide 'ai-code-codebuddy-cli)