Add Grok CLI backend support (#68)

* Add a CLI interface for Grok AI code backend

* Fix: Add missing declare-function for claude-code--do-send-command

Add missing function declarations to suppress byte-compiler warnings
for claude-code--do-send-command which is called in all three CLI files.

---------

Co-authored-by: Richard Thomra <richard.thomra@integrio.se>

Author: richard134

README.org

@@ -10,6 +10,7 @@ An Emacs interface for AI-assisted software development. *The purpose is to prov
   - [[https://github.com/openai/codex][OpenAI Codex]]
   - [[https://docs.github.com/en/copilot/how-tos/use-copilot-agents/use-copilot-cli][GitHub Copilot CLI]]
   - [[https://opencode.ai/][Opencode]]
+  - [[https://github.com/xai-org/grok-cli][Grok CLI]]
 
 - I switch across different CLI based AI tool in emacs: Claude Code / Gemini CLI / Aider / OpenAI Codex. If you also use different AI tools inside emacs, but want to keep same user interface and experience, this package is for you.
 
@@ -74,6 +75,14 @@ An Emacs interface for AI-assisted software development. *The purpose is to prov
    - [[https://github.com/openai/codex][OpenAI codex CLI]] (`[[./ai-code-codex-cli.el][ai-code-codex-cli.el]]`)
    - [[https://docs.github.com/en/copilot/how-tos/use-copilot-agents/use-copilot-cli][GitHub Copilot CLI]] (`[[./ai-code-github-copilot-cli.el][ai-code-github-copilot-cli.el]]`)
    - [[https://opencode.ai/][Opencode]] (`[[./ai-code-opencode.el][ai-code-opencode.el]]`)
+   - [[https://github.com/xai-org/grok-cli][Grok CLI]] (`[[./ai-code-grok-cli.el][ai-code-grok-cli.el]]`)
+
+**** Grok CLI setup
+     Install [[https://github.com/xai-org/grok-cli][grok-cli]] and ensure the `grok` executable is on your PATH.
+     Customize `grok-cli-program` or `grok-cli-program-switches` if you want to
+     point at a different binary or pass additional flags (for example,
+     selecting a profile). After that, select the backend through
+     `ai-code-select-backend` or bind a helper in your config.
 
    You can add other backends by customizing the `ai-code-backends` variable.
 
@@ -93,9 +102,9 @@ An Emacs interface for AI-assisted software development. *The purpose is to prov
     - *Implementing a TODO*: Write a comment in your code, like `;; TODO: Implement caching for this function`. Place your cursor on that line and press `C-c a`, then `i` (`ai-code-implement-todo`). The AI will generate the implementation based on the comment.
     - *Asking a Question*: Place your cursor within a function, press `C-c a`, then `q` (`ai-code-ask-question`), type your question, and press Enter. The question, along with context, will be sent to the AI.
     - *Refactoring a Function*: With the cursor in a function, press `C-c a`, then `r` (`ai-code-refactor-book-method`). Select a refactoring technique from the list, provide any required input (e.g., a new method name), and the prompt will be generated.
-    - *Reviewing a Pull Request*: Press `C-c a`, then `v` (`ai-code-pull-or-review-diff-file`). Choose to generate a diff between two branches. The diff will be created in a new buffer, and you'll be prompted to start a review. 
+    - *Reviewing a Pull Request*: Press `C-c a`, then `v` (`ai-code-pull-or-review-diff-file`). Choose to generate a diff between two branches. The diff will be created in a new buffer, and you'll be prompted to start a review.
 
-** Add a new AI coding CLI backend 
+** Add a new AI coding CLI backend
 
 - [[https://github.com/tninja/ai-code-interface.el/pull/2][This PR]] add the github-copilot-cli (require claude-code.el). It can be an example to add basic support for other AI coding CLI.
 
@@ -111,7 +120,7 @@ An Emacs interface for AI-assisted software development. *The purpose is to prov
 {
   "$schema": "https://opencode.ai/config.json",
   "theme": "system"
-} 
+}
 #+end_src
 
 ** Related emacs packages

ai-code-backends.el

@@ -98,7 +98,17 @@ When called from Lisp code, sends CMD directly without prompting."
      :resume  opencode-resume
      :config  "~/.opencode/config.json"
      :upgrade nil
-     :cli     "opencode"))
+     :cli     "opencode")
+    (grok
+     :label "Grok CLI"
+     :require ai-code-grok-cli
+     :start   grok-cli
+     :switch  grok-cli-switch-to-buffer
+     :send    grok-cli-send-command
+     :resume  grok-cli-resume
+     :config  "~/.config/grok/config.json"
+     :upgrade nil
+     :cli     "grok"))
   "Available AI backends and how to integrate with them.
 Each entry is (KEY :label STRING :require FEATURE :start FN :switch FN :send FN :resume FN-or-nil :upgrade STRING-or-nil :cli STRING).
 The :upgrade property can be either a string shell command or nil."

ai-code-codex-cli.el

@@ -12,6 +12,7 @@
 
 (declare-function claude-code--start "claude-code" (arg extra-switches &optional force-prompt force-switch-to-buffer))
 (declare-function claude-code--term-send-string "claude-code" (backend string))
+(declare-function claude-code--do-send-command "claude-code" (cmd))
 (defvar claude-code-terminal-backend)
 
 

ai-code-github-copilot-cli.el

@@ -18,6 +18,7 @@
 (declare-function claude-code-switch-to-buffer "claude-code" (&optional arg))
 (declare-function claude-code--start "claude-code" (arg extra-switches &optional force-prompt force-switch-to-buffer))
 (declare-function claude-code--term-send-string "claude-code" (backend string))
+(declare-function claude-code--do-send-command "claude-code" (cmd))
 
 
 (defgroup ai-code-github-copilot-cli nil

ai-code-grok-cli.el

@@ -0,0 +1,66 @@
+;;; ai-code-grok-cli.el --- Thin wrapper for Grok CLI -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Provide Grok CLI integration by reusing `claude-code'.
+
+;;; Code:
+
+(require 'claude-code)
+(require 'ai-code-backends)
+
+(declare-function claude-code--start "claude-code" (arg extra-switches &optional force-prompt force-switch-to-buffer))
+(declare-function claude-code--term-send-string "claude-code" (backend string))
+(declare-function claude-code--do-send-command "claude-code" (cmd))
+(defvar claude-code-terminal-backend)
+
+(defgroup ai-code-grok-cli nil
+  "Grok CLI integration via `claude-code'."
+  :group 'tools
+  :prefix "grok-cli-")
+
+(defcustom grok-cli-program "grok"
+  "Path to the Grok CLI executable."
+  :type 'string
+  :group 'ai-code-grok-cli)
+
+(defcustom grok-cli-program-switches nil
+  "Command line switches to pass to Grok CLI on startup."
+  :type '(repeat string)
+  :group 'ai-code-grok-cli)
+
+;;;###autoload
+(defun grok-cli (&optional arg)
+  "Start Grok CLI by leveraging `claude-code'."
+  (interactive "P")
+  (let ((claude-code-program grok-cli-program)
+        (claude-code-program-switches grok-cli-program-switches))
+    (claude-code arg)))
+
+;;;###autoload
+(defun grok-cli-switch-to-buffer ()
+  "Switch to the Grok CLI buffer."
+  (interactive)
+  (claude-code-switch-to-buffer))
+
+;;;###autoload
+(defun grok-cli-send-command (line)
+  "Send LINE to Grok CLI programmatically or interactively.
+When called interactively, prompts for the command.
+When called from Lisp code, sends LINE directly without prompting."
+  (interactive "sGrok> ")
+  (claude-code--do-send-command line))
+
+;;;###autoload
+(defun grok-cli-resume (&optional arg)
+  "Resume the previous Grok CLI session, when supported."
+  (interactive "P")
+  (let ((claude-code-program grok-cli-program)
+        (claude-code-program-switches grok-cli-program-switches))
+    (claude-code--start arg '("resume") nil t)
+    (claude-code--term-send-string claude-code-terminal-backend "")
+    (with-current-buffer claude-code-terminal-backend
+      (goto-char (point-min)))))
+
+(provide 'ai-code-grok-cli)
+
+;;; ai-code-grok-cli.el ends here

ai-code-interface.el

@@ -27,6 +27,7 @@
 (require 'ai-code-codex-cli)
 (require 'ai-code-github-copilot-cli)
 (require 'ai-code-opencode)
+(require 'ai-code-grok-cli)
 (require 'ai-code-file)
 (require 'ai-code-ai)