fscotto/infra
1
0
Fork 0
mirror of https://github.com/fscotto/infra.git synced 2026-05-30 15:39:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add Claude to Emacs project agent picker

Browse Source
This commit is contained in:
Fabio Scotto di Santolo
2026-04-28 17:40:43 +02:00
parent b0e3be3e58
commit c650f54795
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/desktop/.emacs.d/lisp/misc/custom-functions.el
View File

@@ -132,8 +132,10 @@ Each entry is a cons cell of display string and session id."
(defun fscotto/project-agent-dwim () (defun fscotto/project-agent-dwim ()
"Choose an agent for the current project and launch it externally." "Choose an agent for the current project and launch it externally."
(interactive) (interactive)
(let ((agent (completing-read "Agent: " '("Codex" "Gemini" "OpenCode") nil t))) (let ((agent (completing-read "Agent: " '("Claude" "Codex" "Gemini" "OpenCode") nil t)))
(pcase agent (pcase agent
("Claude"
(fscotto/launch-external-terminal '("claude" "--continue")))
("OpenCode" ("OpenCode"
(let ((session-id (fscotto/project-opencode-latest-session-id))) (let ((session-id (fscotto/project-opencode-latest-session-id)))
(if session-id (if session-id
@@ -219,8 +221,10 @@ Tries JSON output first, falls back to text parsing if unavailable."
(defun fscotto/project-agent-session () (defun fscotto/project-agent-session ()
"Choose an agent and resume a saved session for the current project." "Choose an agent and resume a saved session for the current project."
(interactive) (interactive)
(let ((agent (completing-read "Agent session: " '("Codex" "Gemini" "OpenCode") nil t))) (let ((agent (completing-read "Agent session: " '("Claude" "Codex" "Gemini" "OpenCode") nil t)))
(pcase agent (pcase agent
("Claude"
(fscotto/launch-external-terminal '("claude" "--resume")))
("OpenCode" ("OpenCode"
(fscotto/project-opencode-session)) (fscotto/project-opencode-session))
("Codex" ("Codex"