From 2b2326a65cdadaa7da4b706b9a848b5a92fe9547 Mon Sep 17 00:00:00 2001
From: Andrea Ciceri <andrea.ciceri@autistici.org>
Date: Fri, 6 Dec 2024 11:44:46 +0100
Subject: [PATCH] Emacs stuff

---
 hmModules/emacs/init.el | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/hmModules/emacs/init.el b/hmModules/emacs/init.el
index e1bd97a..11b765b 100644
--- a/hmModules/emacs/init.el
+++ b/hmModules/emacs/init.el
@@ -881,6 +881,8 @@ This is meant to be an helper to be called from the window manager."
   :custom
   (gptel-api-key (lambda () (require 'f) (f-read-text (getenv "OPENAI_API_KEY_PATH"))))
   (gptel-model 'gpt-4o)
+  (gptel-default-mode 'org-mode)
+  (gptel-org-branching-context 't)
   :config
   (require 'gptel-curl)
 
@@ -919,6 +921,9 @@ This is meant to be an helper to be called from the window manager."
     ) ;; destroy frame on exit
   )
 
+(use-package mixed-pitch
+  :hook (text-mode . mixed-pitch-mode))
+
 (use-package pass
   :config
   (require 'password-store-otp) ;; FIXME use `use-pacakge' idiomatic way
@@ -967,5 +972,26 @@ This is meant to be an helper to be called from the window manager."
      (:name "GitHub" :query "tag:github" :key "g")
      (:name "Trash" :query "tag:trash" :key "t"))))
 
+;;; Experiments, remove from here
+
+(defun ccr/test ()
+  "test"
+  (interactive)
+  (with-selected-frame 
+      (make-frame '((name . "emacs-run-launcher")
+                    (minibuffer . only)
+                    (fullscreen . 0) ; no fullscreen
+                    (undecorated . t) ; remove title bar
+                    ;;(auto-raise . t) ; focus on this frame
+                    ;;(tool-bar-lines . 0)
+                    ;;(menu-bar-lines . 0)
+                    (internal-border-width . 10)
+                    (width . 80)
+                    (height . 11)))
+    (unwind-protect
+	(completing-read "ciao " '("foo" "bar") nil t "")
+      (delete-frame))))
+
+
 (provide 'init)
 ;;; init.el ends here