Add switches for other backends, following example of grok

Author: tninja

ai-code-codex-cli.el

@@ -26,12 +26,17 @@
   :type 'string
   :group 'ai-code-codex-cli)
 
+(defcustom codex-cli-program-switches nil
+  "Command line switches to pass to Codex CLI on startup."
+  :type '(repeat string)
+  :group 'ai-code-codex-cli)
+
 ;;;###autoload
 (defun codex-cli (&optional arg)
   "Start Codex (reuses `claude-code' startup logic)."
   (interactive "P")
   (let ((claude-code-program codex-cli-program) ; override dynamically
-        (claude-code-program-switches nil))         ; optional e.g.: '("exec" "--non-interactive")
+        (claude-code-program-switches codex-cli-program-switches))
     (claude-code arg)))
 
 ;;;###autoload
@@ -52,7 +57,7 @@ When called from Lisp code, sends LINE directly without prompting."
   "Resume a previous Codex CLI session."
   (interactive "P")
   (let ((claude-code-program codex-cli-program)
-        (claude-code-program-switches nil))
+        (claude-code-program-switches codex-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

ai-code-github-copilot-cli.el

@@ -31,12 +31,17 @@
   :type 'string
   :group 'ai-code-github-copilot-cli)
 
+(defcustom 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)
+
 ;;;###autoload
 (defun github-copilot-cli (&optional arg)
   "Start Github Copilot CLI (reuses `claude-code' startup logic)."
   (interactive "P")
   (let ((claude-code-program github-copilot-cli-program) ; override dynamically
-        (claude-code-program-switches nil))         ; optional e.g.: '("exec" "--non-interactive")
+        (claude-code-program-switches github-copilot-cli-program-switches))
     (claude-code arg)))
 
 ;;;###autoload
@@ -68,7 +73,7 @@ With double prefix ARG (\\[universal-argument] \\[universal-argument]),
 prompt for the project directory."
   (interactive "P")
   (let ((claude-code-program github-copilot-cli-program)
-        (claude-code-program-switches nil)
+        (claude-code-program-switches github-copilot-cli-program-switches)
         (extra-switches '("--resume")))
     (claude-code--start arg extra-switches nil t)
     ;; Send empty string to trigger terminal processing and ensure CLI session picker appears

ai-code-opencode.el

@@ -28,12 +28,17 @@
   :type 'string
   :group 'ai-code-opencode)
 
+(defcustom opencode-program-switches nil
+  "Command line switches to pass to Opencode on startup."
+  :type '(repeat string)
+  :group 'ai-code-opencode)
+
 ;;;###autoload
 (defun opencode (&optional arg)
   "Start Opencode (reuses `claude-code' startup logic)."
   (interactive "P")
   (let ((claude-code-program opencode-program) ; override dynamically
-        (claude-code-program-switches nil))    ; optional e.g.: '("exec" "--non-interactive")
+        (claude-code-program-switches opencode-program-switches))
     (claude-code arg)))
 
 ;;;###autoload
@@ -62,7 +67,7 @@ With double prefix ARG (\\[universal-argument] \\[universal-argument]),
 prompt for the project directory."
   (interactive "P")
   (let ((claude-code-program opencode-program)
-        (claude-code-program-switches nil))
+        (claude-code-program-switches opencode-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