Skip to content

adds option to kill claude buffer on exit #114

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

Open
titaniumbones wants to merge 1 commit into
base: main
Choose a base branch
from
Open

adds option to kill claude buffer on exit #114

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
31 changes: 31 additions & 0 deletions claude-code.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -154,6 +154,15 @@ When nil, Claude instances will be killed without confirmation."
:type 'boolean
:group 'claude-code)

(defcustom claude-code-kill-buffer-on-exit nil
"Whether to automatically kill the buffer when Claude process exits.

When non-nil, the Claude buffer will be automatically killed when the
Claude process finishes or exits. When nil, the buffer will remain
open for inspection even after the process has exited."
:type 'boolean
:group 'claude-code)

(defcustom claude-code-optimize-window-resize t
"Whether to optimize terminal window resizing to prevent unnecessary reflows.

Expand Down Expand Up @@ -1283,6 +1292,10 @@ With double prefix ARG (\\[universal-argument] \\[universal-argument]), prompt f
;; Add cleanup hook to remove directory mappings when buffer is killed
(add-hook 'kill-buffer-hook #'claude-code--cleanup-directory-mapping nil t)

;; Set up process sentinel for automatic buffer cleanup on exit
(when-let ((proc (get-buffer-process buffer)))
(set-process-sentinel proc #'claude-code--process-sentinel))

;; run start hooks
(run-hooks 'claude-code-start-hook)

Expand Down Expand Up @@ -1511,6 +1524,24 @@ TERMINAL is the eat terminal parameter (not used)."
"Claude Ready"
"Waiting for your response")))

(defun claude-code--process-sentinel (process event)
"Process sentinel for Claude processes.

PROCESS is the Claude process.
EVENT is the process status change event string.

When `claude-code-kill-buffer-on-exit' is non-nil, automatically
kills the buffer associated with PROCESS when it exits."
(when (and claude-code-kill-buffer-on-exit
(memq (process-status process) '(exit signal))
(buffer-live-p (process-buffer process)))
;; Give a brief moment for any final output to be processed
(run-at-time 0.1 nil
(lambda (buf)
(when (buffer-live-p buf)
(kill-buffer buf)))
(process-buffer process))))

(defun claude-code--vterm-bell-detector (orig-fun process input)
"Detect bell characters in vterm output and trigger notifications.

Expand Down