Merge remote-tracking branch 'origin/main' into work-refactor-merge-configs

Author: regob

lisp/init-help.el

@@ -117,6 +117,50 @@
   :config
   (bind-key (kbd "d") #'dictionary-lookup-definition 'rb-user-keymap))
 
+;; ----------------------------------------------------------------------------
+;; GPTel - LLM interface for emacs
+;; ----------------------------------------------------------------------------
+
+(when-home
+ (use-package gptel
+   :ensure (:source "MELPA")
+   :config
+   (setq gptel-api-key (lambda () (getenv "OPENAI_API_KEY")))
+   (setq gptel-model 'gpt-4.1-nano)
+   (setq gptel-default-mode 'markdown-mode)
+   (bind-key (kbd "C-c RET") 'gptel-send global-map)
+   (bind-key (kbd "g") 'gptel-menu rb-help-keymap)
+   (bind-key (kbd "c") 'gptel rb-help-keymap)
+   (add-to-list 'gptel-directives '(verify . "You are a large language model living in Emacs and a helpful assistant.
+Please check the following text for semantical errors (ignore notation,
+as the text might be org-mode markup language), and if you see mistakes
+make a of the mistakes with brief explanations."))
+   )
+
+
+ (defun rb/gptel-verify ()
+   "Ask an LLM to check selected text for errors."
+   (interactive)
+   (let* ((buffer-name "*gptel-out*")
+          (rb-buf (get-buffer-create buffer-name)))
+     (with-current-buffer rb-buf
+       (setq-local buffer-read-only nil)
+       (erase-buffer))
+     (gptel-request nil
+       :callback (lambda (result info) (if (stringp result) (progn (with-current-buffer rb-buf
+                                                                     (insert result)
+                                                                     (help-mode)
+                                                                     (setq-local buffer-read-only t)
+                                                                     (display-buffer rb-buf)))))
+       :stream nil
+       :system "You are a large language model living in Emacs and a helpful assistant.
+Please check the following knowledge base snippet for errors, and if you see mistakes make
+a list of the mistakes with brief explanations and suggestion for improvement. Only focus on the correctness of the content and IGNORE grammatical and punctuational errors, or tags like :CARD:, since they are part of the markup language (org)! Make sure to output only a single list of issues and their explanations!")
+     )
+   nil)
+
+ (bind-key (kbd "v") 'rb/gptel-verify rb-help-keymap)
+ )
 
 (provide 'init-help)