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
|
;; Install claude-code via quelpa if not already installed
|
||||||
(unless (package-installed-p 'claude-code)
|
(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
|
;; Claude Code - AI assistant integration
|
||||||
(use-package claude-code
|
(use-package claude-code
|
||||||
:ensure nil ; Already installed via quelpa
|
:ensure nil ; Already installed via quelpa
|
||||||
:bind-keymap ("C-c C-c" . claude-code-command-map)
|
: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
|
:custom
|
||||||
;; Terminal backend preference (eat is now installed via quelpa)
|
;; Terminal backend preference (eat is now installed via quelpa)
|
||||||
(claude-code-terminal-type 'eat)
|
(claude-code-terminal-type 'eat)
|
||||||
|
@ -39,6 +31,7 @@
|
||||||
(claude-code-newline-and-send-style 'modern)
|
(claude-code-newline-and-send-style 'modern)
|
||||||
|
|
||||||
:config
|
:config
|
||||||
|
(claude-code-mode)
|
||||||
;; Smart terminal detection - eat should be available via quelpa
|
;; Smart terminal detection - eat should be available via quelpa
|
||||||
(defun claude-code-detect-best-terminal ()
|
(defun claude-code-detect-best-terminal ()
|
||||||
"Detect the best available terminal for Claude Code."
|
"Detect the best available terminal for Claude Code."
|
||||||
|
@ -73,7 +66,7 @@
|
||||||
(use-package eat
|
(use-package eat
|
||||||
:ensure nil ; Already installed via quelpa
|
:ensure nil ; Already installed via quelpa
|
||||||
:custom
|
:custom
|
||||||
(eat-term-name "xterm-256color")OB
|
(eat-term-name "xterm-256color")
|
||||||
(eat-kill-buffer-on-exit t))
|
(eat-kill-buffer-on-exit t))
|
||||||
|
|
||||||
;; Alternative terminal emulator (if eat fails or user prefers vterm)
|
;; Alternative terminal emulator (if eat fails or user prefers vterm)
|
||||||
|
|
|
@ -64,10 +64,12 @@
|
||||||
|
|
||||||
;; Package linting
|
;; Package linting
|
||||||
(use-package package-lint
|
(use-package package-lint
|
||||||
|
:if (not (string-equal system-name "little-rascal"))
|
||||||
:commands package-lint-current-buffer)
|
:commands package-lint-current-buffer)
|
||||||
|
|
||||||
;; Flycheck for syntax checking
|
;; Flycheck for syntax checking
|
||||||
(use-package flycheck
|
(use-package flycheck
|
||||||
|
:if (not (string-equal system-name "little-rascal"))
|
||||||
:hook (emacs-lisp-mode . flycheck-mode)
|
:hook (emacs-lisp-mode . flycheck-mode)
|
||||||
:config
|
:config
|
||||||
;; Enhanced Emacs Lisp checking
|
;; Enhanced Emacs Lisp checking
|
||||||
|
@ -87,6 +89,8 @@
|
||||||
|
|
||||||
;; Package development helpers
|
;; Package development helpers
|
||||||
(use-package auto-compile
|
(use-package auto-compile
|
||||||
|
:if (and (package-installed-p 'auto-compile)
|
||||||
|
(not (string-equal system-name "little-rascal")))
|
||||||
:config
|
:config
|
||||||
(auto-compile-on-load-mode)
|
(auto-compile-on-load-mode)
|
||||||
(auto-compile-on-save-mode))
|
(auto-compile-on-save-mode))
|
||||||
|
|
|
@ -114,7 +114,15 @@ Home lab root: ~a
|
||||||
|
|
||||||
(define (cmd-deploy machine-name . args)
|
(define (cmd-deploy machine-name . args)
|
||||||
"Deploy configuration to machine using deploy-rs"
|
"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)
|
(log-info "Deploying to machine: ~a using deploy-rs" machine-name)
|
||||||
(if (validate-machine-name machine-name)
|
(if (validate-machine-name machine-name)
|
||||||
(let ((result (deploy-machine machine-name "default" options)))
|
(let ((result (deploy-machine machine-name "default" options)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue