tomatocream/doom
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update Claude and theme configuration.

Browse Source 
Configure claude-code/claudemacs runtime settings, switch theme setup to ewal-doom-one, and remove obsolete GPTEL setup docs.

Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
This commit is contained in:
Wong Ding Feng
2026-03-05 21:16:11 +08:00
parent 298a9913b5
commit c021bc8452
7 changed files with 72 additions and 289 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ai.el
+45 -18
View File
@@ -48,32 +48,32 @@
(after! gptel
;; Coding assistant preset
(gptel-make-preset 'coder
:description "Expert coding assistant"
:backend "OpenRouter"
:model 'anthropic/claude-sonnet-4.5
:system "You are an expert coding assistant. Provide high-quality code solutions, refactorings, and explanations. Be concise but thorough. Include error handling and follow best practices.")
:description "Expert coding assistant"
:backend "OpenRouter"
:model 'anthropic/claude-sonnet-4.5
:system "You are an expert coding assistant. Provide high-quality code solutions, refactorings, and explanations. Be concise but thorough. Include error handling and follow best practices.")
;; Code explainer preset
(gptel-make-preset 'explain
:description "Explain code to beginners"
:system "Explain this code to a novice programmer. Use simple language and break down complex concepts.")
:description "Explain code to beginners"
:system "Explain this code to a novice programmer. Use simple language and break down complex concepts.")
;; Refactoring preset
(gptel-make-preset 'refactor
:description "Code refactoring expert"
:model 'anthropic/claude-sonnet-4.5
:system "You are a code refactoring expert. Improve code quality, readability, and performance while maintaining functionality. Explain your changes.")
:description "Code refactoring expert"
:model 'anthropic/claude-sonnet-4.5
:system "You are a code refactoring expert. Improve code quality, readability, and performance while maintaining functionality. Explain your changes.")
;; Quick answers preset
(gptel-make-preset 'quick
:description "Quick, concise answers"
:model 'google/gemini-2.5-flash
:system "Provide quick, concise answers. Be direct and to the point.")
:description "Quick, concise answers"
:model 'google/gemini-2.5-flash
:system "Provide quick, concise answers. Be direct and to the point.")
;; Documentation writer preset
(gptel-make-preset 'docs
:description "Documentation writer"
:system "Write clear, comprehensive documentation. Include examples and explain edge cases."))
:description "Documentation writer"
:system "Write clear, comprehensive documentation. Include examples and explain edge cases."))
;;; ============================================================================
;;; gptel-quick - Quick lookups and explanations
@@ -161,9 +161,9 @@
(when (use-region-p)
(let ((code (buffer-substring-no-properties (region-beginning) (region-end))))
(gptel-request code
:system "Explain this code concisely in 2-3 sentences."
:callback (lambda (response info)
(message "Explanation: %s" response))))))
:system "Explain this code concisely in 2-3 sentences."
:callback (lambda (response info)
(message "Explanation: %s" response))))))
(defun my/gptel-proofread-region ()
"Proofread and improve selected text."
@@ -183,8 +183,11 @@
(use-package! claude-code
:defer t
:config
(setq claude-code-program "ccr"
claude-code-program-switches '("code" "--dangerously-skip-permissions"))
;; Use vterm backend
(setq claude-code-terminal-backend 'vterm)
(setq claude-code-terminal-backend 'eat)
;; Enable global mode
(claude-code-mode 1)
@@ -233,3 +236,27 @@
(lambda ()
(when (eq claude-code-terminal-backend 'vterm)
(setq-local vterm-max-scrollback 100000)))))
(use-package! claudemacs
:defer t
:commands (claudemacs claudemacs-transient-menu)
:init
(setq claudemacs-program "ccr"
claudemacs-program-switches '("code" "--dangerously-skip-permissions")
claudemacs-default-tool 'claude
claudemacs-prefer-projectile-root t)
:config
(map! :map prog-mode-map
"C-c C-e" #'claudemacs-transient-menu)
(map! :map emacs-lisp-mode-map
"C-c C-e" #'claudemacs-transient-menu)
(map! :map text-mode-map
"C-c C-e" #'claudemacs-transient-menu)
(after! python
(map! :map python-base-mode-map
"C-c C-e" #'claudemacs-transient-menu))
(after! eat
(setq eat-term-scrollback-size 400000))
(map! :leader
(:prefix ("C" . "claude-code")
:desc "Claudemacs menu" "E" #'claudemacs-transient-menu)))