1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
;;; ai-vterm.el --- In-Emacs Claude launcher with vertical-split vterm -*- lexical-binding: t; -*-
;; Author: Craig Jennings <c@cjennings.net>
;;; Commentary:
;; Picks a Claude-template project (a dir under ~/.emacs.d, ~/code/*, or
;; ~/projects/* containing .ai/protocols.org), opens or reuses a vterm
;; buffer named "claude [<basename>]", sends Claude Code's startup
;; instruction to it, and routes the buffer to a right-side window via
;; display-buffer-alist. Multiple projects produce multiple coexisting
;; buffers that share the same right-side slot; switching among them is a
;; buffer-switch, not a kill-and-recreate.
;;
;; Existing windmove (Shift-arrows) handles code <-> Claude focus
;; toggling. Buffer-move (C-M-arrows) handles side-swap. Neither
;; needs anything new from this module.
;;; Code:
(declare-function vterm "vterm" (&optional buffer-name))
(declare-function vterm-send-string "vterm" (string &optional paste-p))
(declare-function vterm-send-return "vterm" ())
(defgroup ai-vterm nil
"In-Emacs Claude launcher with vertical-split vterm."
:group 'tools)
(defcustom cj/ai-vterm-claude-command
"claude \"Read .ai/protocols.org and follow all instructions.\""
"Shell command sent to a fresh AI-vterm to start Claude Code."
:type 'string
:group 'ai-vterm)
(defcustom cj/ai-vterm-project-roots
(list (expand-file-name "~/.emacs.d"))
"Directories that are themselves Claude-template projects.
Each entry is included as a candidate when it exists and contains
.ai/protocols.org. Use this for single-project roots like ~/.emacs.d."
:type '(repeat directory)
:group 'ai-vterm)
(defcustom cj/ai-vterm-container-roots
(list (expand-file-name "~/code")
(expand-file-name "~/projects"))
"Directories whose immediate children are scanned for Claude projects.
Each entry's child directories are included as candidates when they
contain .ai/protocols.org. Use this for container dirs like ~/code."
:type '(repeat directory)
:group 'ai-vterm)
(defun cj/--ai-vterm-buffer-name (dir)
"Return the AI-vterm buffer name for project directory DIR.
The name pattern is \"claude [<basename>]\". The display-buffer-alist
rule keys on the literal prefix \"claude [\", so changing the format
breaks routing to the right-side window."
(format "claude [%s]"
(file-name-nondirectory (directory-file-name dir))))
(defun cj/--ai-vterm-has-marker-p (dir)
"Return non-nil when DIR contains .ai/protocols.org."
(file-exists-p (expand-file-name ".ai/protocols.org" dir)))
(defun cj/--ai-vterm-candidates ()
"Return the list of Claude-template project paths.
Each entry of `cj/ai-vterm-project-roots' contributes itself when it
exists and contains .ai/protocols.org. Each entry of
`cj/ai-vterm-container-roots' contributes its immediate child
directories that contain .ai/protocols.org.
Returns absolute paths. Nonexistent roots are skipped silently."
(let (result)
(dolist (root cj/ai-vterm-project-roots)
(let ((expanded (expand-file-name root)))
(when (and (file-directory-p expanded)
(cj/--ai-vterm-has-marker-p expanded))
(push expanded result))))
(dolist (root cj/ai-vterm-container-roots)
(let ((expanded (expand-file-name root)))
(when (file-directory-p expanded)
(dolist (child (directory-files
expanded t directory-files-no-dot-files-regexp t))
(when (and (file-directory-p child)
(cj/--ai-vterm-has-marker-p child))
(push child result))))))
(nreverse result)))
(defun cj/--ai-vterm-process-live-p (buffer)
"Return non-nil when BUFFER has a live process attached."
(let ((proc (get-buffer-process buffer)))
(and proc (process-live-p proc))))
(defcustom cj/ai-vterm-window-width 0.5
"Fraction of frame width allocated to the AI-vterm side window."
:type 'number
:group 'ai-vterm)
(defun cj/--ai-vterm-display-rule-list ()
"Return the `display-buffer-alist' entry list installed by this module.
The single rule routes any buffer whose name starts with \"claude [\"
through three actions in order:
1. `display-buffer-reuse-window' -- if the buffer is already visible
in any window, focus that one.
2. `display-buffer-use-some-window' -- otherwise, reuse an existing
non-selected window (the right window of a left/right split, in
the typical layout).
3. `display-buffer-in-direction' -- otherwise, split the selected
window to the right at width `cj/ai-vterm-window-width'.
`display-buffer-in-side-window' is avoided deliberately. Side windows
enforce dedication, which breaks `buffer-move' (C-M-arrows) and
`switch-to-buffer' replacement. The chain above keeps the resulting
window an ordinary window so all the standard window commands work."
`(("\\`claude \\["
(display-buffer-reuse-window
display-buffer-use-some-window
display-buffer-in-direction)
(direction . right)
(window-width . ,cj/ai-vterm-window-width)
(inhibit-same-window . t))))
(dolist (entry (cj/--ai-vterm-display-rule-list))
(add-to-list 'display-buffer-alist entry))
(defun cj/--ai-vterm-show-or-create (dir name)
"Show or create the AI-vterm buffer for project DIR with buffer NAME.
If a buffer named NAME exists with a live process, display it. If
the buffer exists but its process is dead, kill it and recreate. If
no such buffer exists, create a new vterm in DIR and send
`cj/ai-vterm-claude-command' to it.
Returns the buffer."
(let ((existing (get-buffer name)))
(cond
((and existing (cj/--ai-vterm-process-live-p existing))
(display-buffer existing)
existing)
(t
(when existing
(kill-buffer existing))
(let ((default-directory dir))
(vterm name))
(let ((buf (get-buffer name)))
(with-current-buffer buf
(vterm-send-string cj/ai-vterm-claude-command)
(vterm-send-return))
(display-buffer buf)
buf)))))
(defun cj/--ai-vterm-pick-project ()
"Prompt for a Claude-template project; return its absolute path.
Candidates come from `cj/--ai-vterm-candidates'. Display uses
`abbreviate-file-name' so paths read as ~/code/foo instead of the
full home-dir form. Signals `user-error' when no candidates exist."
(let ((candidates (cj/--ai-vterm-candidates)))
(unless candidates
(user-error "No Claude-template projects found under %s"
(mapconcat #'identity
(append cj/ai-vterm-project-roots
cj/ai-vterm-container-roots)
", ")))
(let* ((display-alist
(mapcar (lambda (p) (cons (abbreviate-file-name p) p))
candidates))
(chosen (completing-read "AI vterm project: "
display-alist nil t)))
(or (cdr (assoc chosen display-alist))
(expand-file-name chosen)))))
(defun cj/ai-vterm (&optional arg)
"Open or reuse a Claude-running vterm for a chosen project.
The project is picked from a filtered completing-read list of dirs
that contain .ai/protocols.org. The vterm buffer is named
\"claude [<basename>]\" and is routed to a right-side window via
`display-buffer-alist'. Multiple projects coexist as separate
buffers; reinvoking on the same project reuses its existing vterm.
With prefix ARG, display the buffer without selecting its window."
(interactive "P")
(let* ((dir (cj/--ai-vterm-pick-project))
(name (cj/--ai-vterm-buffer-name dir))
(buf (cj/--ai-vterm-show-or-create dir name)))
(unless arg
(let ((win (get-buffer-window buf)))
(when win (select-window win))))
buf))
(keymap-global-set "<f9>" #'cj/ai-vterm)
(provide 'ai-vterm)
;;; ai-vterm.el ends here
|
