feat[emacs]: claude code support

Author: kassick

dots/emacs/spacemacs.d/layers/kzk-copilot/funcs.el

@@ -288,3 +288,10 @@ When called with prefix, adds the file read only.
     (unless existing-buffer
       (kill-buffer buffer))
     (message "Added file %s to aider context" path)))
+
+
+(defun kzk/claude-code-kill-advice (orig-fn buffer)
+  (let ((window (get-buffer-window buffer t)))
+    (funcall orig-fn buffer)
+    (when window
+      (delete-window window))))

dots/emacs/spacemacs.d/layers/kzk-copilot/packages.el

@@ -6,6 +6,14 @@
     lsp-mode
     shell-maker
     aider
+    (claude-code :location (recipe
+                            :fetcher github
+                            :repo "stevemolitor/claude-code.el"
+                            :files ("*")))
+    (monet :location (recipe
+                      :fetcher github
+                      :repo "stevemolitor/monet"
+                      :files ("*")))
     (copilot-chat :location (recipe
                              :fetcher github
                              :repo "chep/copilot-chat.el"
@@ -49,6 +57,44 @@
          popwin:special-display-config)
    (pupo/update-purpose-config)))
 
+(defun kzk-copilot/init-claude-code ()
+  (use-package claude-code
+    :defer t
+    :vc (:url "https://github.com/stevemolitor/claude-code.el" :rev :newest)
+    :custom
+    (claude-code-program "ifood-ccr-helper")
+    (claude-code-program-switches '("code"))
+    (claude-code-terminal-backend 'vterm)
+    (claude-code-toggle-auto-select t)
+    (claude-code-display-window-fn #'display-buffer)  ;; use default display buffer and let popwin handle it
+    :config
+    ;; optional IDE integration with Monet
+    (add-hook 'claude-code-process-environment-functions #'monet-start-server-function)
+    (monet-mode 1)
+
+    (claude-code-mode)
+
+    (advice-add #'claude-code--kill-buffer :around #'kzk/claude-code-kill-advice)
+
+    :bind-keymap ("C-$" . claude-code-command-map)
+
+    ;; Optionally define a repeat map so that "M" will cycle thru Claude auto-accept/plan/confirm modes after invoking claude-code-cycle-mode / C-c M.
+    :bind
+    (:repeat-map my-claude-code-map ("M" . claude-code-cycle-mode)))
+
+  (kzk/after-init
+   ;; "*claude:~/Sources/aider-helper/:default*"
+
+   (let ((buffer-regexp "^\\*claude:.+:.+\\*$"))
+     (push `(,buffer-regexp :regexp t :width 78 :position left :stick t :noselect nil :dedicated nil)
+           popwin:special-display-config))
+   (pupo/update-purpose-config)))
+
+(defun kzk-copilot/init-monet ()
+  (use-package monet
+    :defer t
+    :vc (:url "https://github.com/stevemolitor/monet" :rev :newest)))
+
 
 (defun kzk-copilot/init-copilot-chat ()
   (use-package copilot-chat