From a4573c4c0db0cf65159d4d82c65a5222f3eb95f0 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 16 Jun 2024 17:31:49 +0300 Subject: emacs: Update gptel models & add window nav bindings --- .config/emacs/init.el | 29 ++++++++++++++++++++++++----- 1 file changed, 24 insertions(+), 5 deletions(-) (limited to '.config/emacs/init.el') 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-" . '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 ;;;; ;;;;;;;;;;;;;;;;;;;;;;;; -- cgit v1.2.3