From 2cc136a95dc34aafdba4ba9354d85023d3719f36 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Sat, 23 Dec 2023 16:38:35 +0100
Subject: Emacs: Setup up basic gptel bindings

---
 gui/conf/init.el | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gui/conf/init.el b/gui/conf/init.el
index 9ef5e47..c94b4f0 100644
--- a/gui/conf/init.el
+++ b/gui/conf/init.el
@@ -567,6 +567,39 @@
     ad-do-it
     (message "org-tangle took %f sec" (float-time (time-subtract (current-time) time)))))
 
+(use-package gptel
+  :ensure t
+  :config
+  (defvar gptel--atlas
+    (gptel-make-openai "atlas"
+                       :stream t
+                       :protocol "http"
+                       :host "10.100.0.3:8081")
+    "GPTel remote backend on atlas")
+  (setq-default gptel-backend gptel--atlas)
+  (setq-default gptel-max-tokens 4096)
+  (defvar gptel-quick--history nil)
+  (defun gptel-quick (&optional prompt)
+    (interactive)
+    (unless prompt
+      (if (use-region-p)
+          (setq prompt (buffer-substring-no-properties (region-beginning) (region-end)))
+        (setq prompt (read-string "AI: "))))
+    (when (string= prompt "") (user-error "Text selection or prompt is required."))
+    (gptel-request
+     prompt
+     :callback
+     (lambda (response info)
+       (if (not response)
+           (message "gptel-quick failed with message: %s" (plist-get info :status))
+         (with-current-buffer (get-buffer-create "*gptel-quick*")
+           (let ((inhibit-read-only t))
+             (erase-buffer)
+             (insert response))
+           (special-mode)
+           (switch-to-buffer "*gptel-quick*"))))))
+  (evil-leader/set-key "g" 'gptel-quick))
+
 (let ((mu4e-config "~/.emacs.d/email.el"))
  (when (file-exists-p mu4e-config)
    (load-file mu4e-config)))
-- 
cgit v1.2.3