emacs: Update gptel models & add window nav bindings

1 files changed, 24 insertions, 5 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 0a57979..d827c23 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -123,7 +123,9 @@
   :bind (("M-<backspace>" . 'backward-kill-sexp)
 	 ("C-c L" . 'display-line-numbers-mode)
 	 ("C-z" . nil)
-	 ("C-c r" . 'rename-visited-file))
+	 ("C-c r" . 'rename-visited-file)
+	 ("C-x 7" . 'window-swap-states)
+	 ("C-c t" . 'create-text-scratch))
   :hook ((emacs-lisp-mode . prettify-symbols-mode)
 	 (lisp-mode . prettify-symbols-mode)
 	 (scheme-mode . prettify-symbols-mode)))
@@ -846,6 +848,13 @@ By default, returns all jabber related buffers format."
 	       networks ring autojoin noncommands irccontrols move-to-prompt stamp
 	       menu list log notifications)
 	erc-log-channels-directory (expand-file-name "erc" user-emacs-directory))
+
+  (defun thanos/erc-login ()
+    "Login to libera.chat"
+    (erc-tls :server "irc.libera.chat" :port 6697
+	     :nick "thanosapollo"
+	     :user "thanosapollo"
+	     :password (password-store-get "liberachat/thanos_apollo")))
   :bind (("C-c E" . 'erc-libera)
 	 :map erc-mode-map
 	 ("C-c RET" . 'erc-cmd-QUERY)))
@@ -983,12 +992,12 @@ By default, returns all jabber related buffers format."
 			   (code-review . "You are an expert programmer within Emacs reviewing code. Respond concisely")
 			   (writer . "You are an expert writer and FOSS enthusiast. Improve only the article sections provided as a hacker, do not add extra paragraphs.")))
 
-  (setq-default  gptel-model "llama3:latest")
+  (setq-default  gptel-model "dolphin-llama3:latest")
   
   (setq gptel-backend (gptel-make-ollama "Ollama"
 			:host (if is-zeus "localhost:11434" "zeus:11434")
 			:stream t
-			:models '("llama3:latest" "zephyr:latest" "codellama:latest"
+			:models '("dolphin-llama3:latest" "zephyr:latest" "llama3:latest"
 				  "mistral:latest" "mixtral:8x22b" "neural-chat:latest"
 				  "dolphin-mixtral:latest" "phi")))
   :bind (("C-c g" . 'gptel-send)
@@ -1042,8 +1051,8 @@ By default, returns all jabber related buffers format."
 
     (setf mu4e-get-mail-command "mbsync -a")
 
-    (when (and is-zeus (server-running-p))
-      (setf mu4e-update-interval (* 10 60)))
+    ;; (when (and is-zeus (server-running-p))
+    ;;   (setf mu4e-update-interval (* 10 60)))
 
     (defun set-mu4e-context (context-name full-name mail-address signature)
       "Return a mu4e context named CONTEXT-NAME with :match-func matching
@@ -1147,6 +1156,16 @@ By default, returns all jabber related buffers format."
 (use-package debbugs
   :ensure nil)
 
+;; (use-package guix
+;;   :straight nil
+;;   :config
+;;   (defvar guix-home-file "~/dotfiles/guix/home.scm")
+
+;;   (defun guix-home-reconfigure (&optional home-config)
+;;     (interactive)
+;;     (let ((home-config (or home-config guix-home-file)))
+;;       (async-shell-command (format "guix home reconfigure %s" home-config)))))
+
 
 ;;; Random commands ;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;