Add gptel to Emacs desktop profile

dotfiles/desktop/.emacs.d/init.el

@@ -31,15 +31,16 @@
  'lang/shell
  'lang/yaml
 
- ;; Misc
- 'misc/dashboard
- 'misc/custom-functions
- 'misc/doom-modeline
- 'misc/which-key
- 'misc/email
- 'misc/rss
- 'misc/terminal
- 'misc/vcs
+ ;; Misc
+ 'misc/dashboard
+ 'misc/custom-functions
+ 'misc/doom-modeline
+ 'misc/which-key
+ 'misc/gptel
+ 'misc/email
+ 'misc/rss
+ 'misc/terminal
+ 'misc/vcs
  ;; FIXME PDF viewer with annotations
  ;; 'misc/pdf
  'misc/epub

dotfiles/desktop/.emacs.d/lisp/core/keybindings.el

@@ -57,6 +57,10 @@
 (autoload 'elfeed "elfeed" nil t)
 (define-key fscotto/open (kbd "f") #'elfeed)
 
+;; -------- gptel --------
+(autoload 'gptel "gptel" nil t)
+(define-key fscotto/open (kbd "l") #'gptel)
+
 ;;;; Elfeed mode maps
 (with-eval-after-load 'elfeed
   (define-key elfeed-search-mode-map (kbd "w") #'elfeed-search-yank)

dotfiles/desktop/.emacs.d/lisp/misc/gptel.el

@@ -0,0 +1,14 @@
+;;; gptel.el -*- lexical-binding: t; -*-
+
+(use-package gptel
+  :ensure t
+  :commands (gptel gptel-send gptel-rewrite)
+  :config
+  (let ((private-config
+         (expand-file-name "lisp/misc/gptel-private.el" user-emacs-directory)))
+    (when (file-readable-p private-config)
+      (load private-config nil 'nomessage))))
+
+(provide 'fscotto-gptel)
+
+;;; gptel.el ends here

dotfiles/desktop/.emacs.d/lisp/misc/which-key.el

@@ -31,6 +31,7 @@
   ;; --------------------------------------------------------------------------
   (which-key-add-key-based-replacements
     "C-c o f" "RSS (Elfeed)"
+    "C-c o l" "LLM chat (gptel)"
     "C-c o m" "mu4e (Email Client)"
     "C-c o T" "Terminal (vterm)")