Skip to content

Add auto mode toggle to transient menu #130

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
stevemolitor merged 1 commit into from
Apr 18, 2026
Merged

Add auto mode toggle to transient menu #130

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
26 changes: 22 additions & 4 deletions claude-code.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -104,6 +104,9 @@ These are passed as SWITCHES parameters to `eat-make`."
:type '(repeat string)
:group 'claude-code)

(defvar claude-code--auto-mode-enabled nil
"When non-nil, pass `--enable-auto-mode' to Claude on startup.")

(defcustom claude-code-sandbox-program nil
"Program to run when starting Claude in sandbox mode.
This must be set to the path of your Claude sandbox binary before use."
Expand Down Expand Up @@ -399,6 +402,13 @@ this history by adding `claude-code-command-history' to
"Keymap for Claude commands.")

;;;; Transient Menus

(defun claude-code-toggle-auto-mode ()
"Toggle auto mode for Claude startup."
(interactive)
(setq claude-code--auto-mode-enabled (not claude-code--auto-mode-enabled))
(message "Claude auto mode %s" (if claude-code--auto-mode-enabled "enabled" "disabled")))

;;;###autoload (autoload 'claude-code-transient "claude-code" nil t)
(transient-define-prefix claude-code-transient ()
"Claude command menu."
Expand Down Expand Up @@ -434,7 +444,13 @@ this history by adding `claude-code-command-history' to
("1" "Send \"1\"" claude-code-send-1)
("2" "Send \"2\"" claude-code-send-2)
("3" "Send \"3\"" claude-code-send-3)
]])
]
["Options"
("a" claude-code-toggle-auto-mode
:transient t
:description (lambda ()
(format "Auto mode (%s)"
(if claude-code--auto-mode-enabled "on" "off"))))]])

;;;###autoload (autoload 'claude-code-slash-commands "claude-code" nil t)
(transient-define-prefix claude-code-slash-commands ()
Expand Down Expand Up @@ -1226,9 +1242,11 @@ With double prefix ARG (\\[universal-argument] \\[universal-argument]), prompt f
;; Prompt for instance name (only if instances exist, or force-prompt is true)
(instance-name (claude-code--prompt-for-instance-name dir existing-instance-names force-prompt))
(buffer-name (claude-code--buffer-name instance-name))
(program-switches (if extra-switches
(append claude-code-program-switches extra-switches)
claude-code-program-switches))
(auto-mode-switch (when claude-code--auto-mode-enabled
'("--enable-auto-mode")))
(program-switches (append claude-code-program-switches
extra-switches
auto-mode-switch))

;; Set process-adaptive-read-buffering to nil to avoid flickering while Claude is processing
(process-adaptive-read-buffering nil)
Expand Down