Re-added gptel, and added Crystal support.

This commit is contained in:
Micheal Smith 2026-02-09 06:30:02 -06:00
parent ed9b074868
commit a74b8b0f9f
Signed by: xulfer
GPG key ID: E40750BFE6702504
5 changed files with 51 additions and 18 deletions

View file

@ -104,9 +104,12 @@ loading as a blank slate with only the scratch buffer open.
(setq ring-bell-function #'ignore
inhibit-startup-screen t)
(push '(font . "Cartograph CF-11") default-frame-alist)
(set-face-font 'default "Cartograph CF-11")
(set-face-font 'variable-pitch "Cartograph CF-11")
(push '(font . "MonoLisa-12") default-frame-alist)
(set-face-font 'default "MonoLisa-12")
(set-face-font 'variable-pitch "MonoLisa-12")
;; Can open in normal browser from within EWW.
(setq browse-url-browser-function 'eww-browse-url)
(copy-face 'default 'fixed-pitch)
@ -739,6 +742,20 @@ looking for.
(embark-collect-mode . consult-preview-at-point-mode))
#+end_src
I've been using some LLMs for test generation, and search lately. For now
I'm going to try out gptel and see how I like it.
#+BEGIN_SRC emacs-lisp
(use-package gptel
:config
(setq
gptel-model 'gemini-3-pro-preview
gptel-api-key (auth-source-pick-first-password :host "generativelanguage.googleapis.com")
gptel-backend (gptel-make-gemini "Gemini"
:stream t
:key #'gptel-api-key-from-auth-source)))
#+END_SRC
* Hail Hydra?!
I find that [[https://github.com/abo-abo/hydra][Hydra]] is great for providing visual menus for tasks that might
@ -1516,6 +1533,7 @@ the package.
(c-ts-mode . lsp-deferred)
(c++-ts-mode . lsp-deferred)
(clojure-ts-mode . lsp-deferred)
(crystal-mode . lsp-deferred)
(elixir-ts-mode . lsp-deferred)
(gleam-ts-mode . lsp-deferred)
(go-ts-mode . lsp-deferred)
@ -1524,7 +1542,6 @@ the package.
(rust-ts-mode . lsp-deferred)
(slint-mode . lsp-deferred)
(toml-ts-mode . lsp-deferred)
(zig-mode . lsp-deferred)
;; if you want which-key integration
(lsp-mode . lsp-enable-which-key-integration))
:commands lsp-deferred
@ -1586,11 +1603,6 @@ bother with an explanation on each.
:config
(add-to-list 'auto-mode-alist '("\\.slint\\'" . slint-mode)))
(use-package zig-mode
:defer t
:config
(add-to-list 'auto-mode-alist '("\\.\\(zig\\|zon\\)\\'" . zig-mode)))
(use-package rainbow-mode
:commands (rainbow-mode))
@ -1620,6 +1632,11 @@ bother with an explanation on each.
:demand t
:mode "\\.build\\'")
;; Crystal
(use-package crystal-mode
:ensure t
:mode "\\.cr\\'")
;; rust-mode
(use-package rust-mode
:ensure t

View file

@ -104,9 +104,12 @@ loading as a blank slate with only the scratch buffer open.
(setq ring-bell-function #'ignore
inhibit-startup-screen t)
(push '(font . "Cartograph CF-11") default-frame-alist)
(set-face-font 'default "Cartograph CF-11")
(set-face-font 'variable-pitch "Cartograph CF-11")
(push '(font . "MonoLisa-12") default-frame-alist)
(set-face-font 'default "MonoLisa-12")
(set-face-font 'variable-pitch "MonoLisa-12")
;; Can open in normal browser from within EWW.
(setq browse-url-browser-function 'eww-browse-url)
(copy-face 'default 'fixed-pitch)

View file

@ -17,6 +17,7 @@ the package.
(c-ts-mode . lsp-deferred)
(c++-ts-mode . lsp-deferred)
(clojure-ts-mode . lsp-deferred)
(crystal-mode . lsp-deferred)
(elixir-ts-mode . lsp-deferred)
(gleam-ts-mode . lsp-deferred)
(go-ts-mode . lsp-deferred)
@ -25,7 +26,6 @@ the package.
(rust-ts-mode . lsp-deferred)
(slint-mode . lsp-deferred)
(toml-ts-mode . lsp-deferred)
(zig-mode . lsp-deferred)
;; if you want which-key integration
(lsp-mode . lsp-enable-which-key-integration))
:commands lsp-deferred

View file

@ -18,11 +18,6 @@ bother with an explanation on each.
:config
(add-to-list 'auto-mode-alist '("\\.slint\\'" . slint-mode)))
(use-package zig-mode
:defer t
:config
(add-to-list 'auto-mode-alist '("\\.\\(zig\\|zon\\)\\'" . zig-mode)))
(use-package rainbow-mode
:commands (rainbow-mode))
@ -52,6 +47,11 @@ bother with an explanation on each.
:demand t
:mode "\\.build\\'")
;; Crystal
(use-package crystal-mode
:ensure t
:mode "\\.cr\\'")
;; rust-mode
(use-package rust-mode
:ensure t

View file

@ -69,3 +69,16 @@ looking for.
(embark-collect-mode . consult-preview-at-point-mode))
#+end_src
I've been using some LLMs for test generation, and search lately. For now
I'm going to try out gptel and see how I like it.
#+BEGIN_SRC emacs-lisp
(use-package gptel
:config
(setq
gptel-model 'gemini-3-pro-preview
gptel-api-key (auth-source-pick-first-password :host "generativelanguage.googleapis.com")
gptel-backend (gptel-make-gemini "Gemini"
:stream t
:key #'gptel-api-key-from-auth-source)))
#+END_SRC