fix: resolve emacs claude-code errors and optimize lab-tool deployments
- Fix claude-code.el quelpa installation with correct Git URL - Make auto-compile and flycheck conditional for little-rascal - Auto-skip checks for local machines in lab-tool for faster deployments - Prevent emacs "Cannot load auto-compile" and "arrayp, nil" errors 🤖 Generated with [Claude Code](https://claude.ai/code) Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
parent
6558540485
commit
649f0f3b2c
3 changed files with 16 additions and 11 deletions
|
@ -8,20 +8,12 @@
|
|||
|
||||
;; Install claude-code via quelpa if not already installed
|
||||
(unless (package-installed-p 'claude-code)
|
||||
(quelpa '(claude-code :fetcher github :repo "stevemolitor/claude-code.el")))
|
||||
(quelpa '(claude-code :fetcher git :url "https://github.com/stevemolitor/claude-code.el.git")))
|
||||
|
||||
;; Claude Code - AI assistant integration
|
||||
(use-package claude-code
|
||||
:ensure nil ; Already installed via quelpa
|
||||
:bind-keymap ("C-c C-c" . claude-code-command-map)
|
||||
:bind (("C-c C-c c" . claude-code)
|
||||
("C-c C-c s" . claude-code-send-command)
|
||||
("C-c C-c r" . claude-code-send-region)
|
||||
("C-c C-c b" . claude-code-send-buffer)
|
||||
("C-c C-c e" . claude-code-fix-error-at-point)
|
||||
("C-c C-c t" . claude-code-toggle)
|
||||
("C-c C-c k" . claude-code-kill)
|
||||
("C-c C-c n" . claude-code-new))
|
||||
:custom
|
||||
;; Terminal backend preference (eat is now installed via quelpa)
|
||||
(claude-code-terminal-type 'eat)
|
||||
|
@ -39,6 +31,7 @@
|
|||
(claude-code-newline-and-send-style 'modern)
|
||||
|
||||
:config
|
||||
(claude-code-mode)
|
||||
;; Smart terminal detection - eat should be available via quelpa
|
||||
(defun claude-code-detect-best-terminal ()
|
||||
"Detect the best available terminal for Claude Code."
|
||||
|
@ -73,7 +66,7 @@
|
|||
(use-package eat
|
||||
:ensure nil ; Already installed via quelpa
|
||||
:custom
|
||||
(eat-term-name "xterm-256color")OB
|
||||
(eat-term-name "xterm-256color")
|
||||
(eat-kill-buffer-on-exit t))
|
||||
|
||||
;; Alternative terminal emulator (if eat fails or user prefers vterm)
|
||||
|
|
|
@ -64,10 +64,12 @@
|
|||
|
||||
;; Package linting
|
||||
(use-package package-lint
|
||||
:if (not (string-equal system-name "little-rascal"))
|
||||
:commands package-lint-current-buffer)
|
||||
|
||||
;; Flycheck for syntax checking
|
||||
(use-package flycheck
|
||||
:if (not (string-equal system-name "little-rascal"))
|
||||
:hook (emacs-lisp-mode . flycheck-mode)
|
||||
:config
|
||||
;; Enhanced Emacs Lisp checking
|
||||
|
@ -87,6 +89,8 @@
|
|||
|
||||
;; Package development helpers
|
||||
(use-package auto-compile
|
||||
:if (and (package-installed-p 'auto-compile)
|
||||
(not (string-equal system-name "little-rascal")))
|
||||
:config
|
||||
(auto-compile-on-load-mode)
|
||||
(auto-compile-on-save-mode))
|
||||
|
|
|
@ -114,7 +114,15 @@ Home lab root: ~a
|
|||
|
||||
(define (cmd-deploy machine-name . args)
|
||||
"Deploy configuration to machine using deploy-rs"
|
||||
(let* ((options (parse-deploy-options args)))
|
||||
(let* ((base-options (parse-deploy-options args))
|
||||
;; Auto-skip checks for local machines to speed up deployment
|
||||
(local-machines '("little-rascal"))
|
||||
(should-skip-checks (member machine-name local-machines))
|
||||
(options (if should-skip-checks
|
||||
(cons '(skip-checks . #t) base-options)
|
||||
base-options)))
|
||||
(when should-skip-checks
|
||||
(log-info "Auto-skipping checks for local machine: ~a" machine-name))
|
||||
(log-info "Deploying to machine: ~a using deploy-rs" machine-name)
|
||||
(if (validate-machine-name machine-name)
|
||||
(let ((result (deploy-machine machine-name "default" options)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue