diff options
Diffstat (limited to 'guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--chat.el')
| -rw-r--r-- | guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--chat.el | 118 |
1 files changed, 0 insertions, 118 deletions
diff --git a/guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--chat.el b/guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--chat.el deleted file mode 100644 index 5fa0c2d..0000000 --- a/guix/kolwynia/home/bdunahu/files/.config/emacs/modules/bd--chat.el +++ /dev/null @@ -1,118 +0,0 @@ -;;; -*- lexical-binding: t; -*- -;;; Commentary: -;;; Code: - - -(require 'fill-column) -(use-package rcirc - :bind (:map rcirc-mode-map - ("C-c j" . #'bd/rcirc-jump-net) - ("C-c q" . #'bd/rcirc-detach-buffer)) - :hook - ((rcirc-mode . (lambda () - (setq-local fill-column-desired-width 80) - (fill-column-mode) - (rcirc-omit-mode)))) - :config - (setopt bd/rcirc-networks '("libera" "furnet")) - (defun bd/rcirc-jump-net () - "Prompts the user for a irc network in BD/RCIRC-NETWORKS, then issues -ZNC to hop networks." - (interactive) - (let ((buffer (current-buffer))) - (when (and (buffer-local-value 'rcirc-server-buffer buffer) - (eq (process-status (rcirc-buffer-process)) 'open)) - (let ((target (completing-read "Jump to: " bd/rcirc-networks))) - (if (stringp target) - (rcirc-send-string (rcirc-buffer-process) - "PRIVMSG" "*status" : - (concat "JUMPNETWORK " target))))))) - (defun bd/rcirc-detach-buffer () - "If the current buffer is an rcirc channel, detaches through ZNC and -deletes the buffer. This bypasses the default behavior of deleting an active -channel, which is issuing the PART command." - (interactive) - (let ((buffer (current-buffer))) - (when (and (rcirc-buffer-process) - (eq (process-status (rcirc-buffer-process)) 'open)) - (with-rcirc-server-buffer - (setq rcirc-buffer-alist - (rassq-delete-all buffer rcirc-buffer-alist))) - (rcirc-update-short-buffer-names) - (if (rcirc-channel-p rcirc-target) - (rcirc-send-string (rcirc-buffer-process) - "PRIVMSG" "*status" : - (concat "DETACH " rcirc-target)))) - (setq rcirc-target nil) - (kill-buffer buffer))) - (setopt rcirc-fill-column 80 - rcirc-omit-threshold 5 - rcirc-reconnect-delay 60 - rcirc-omit-responses '("JOIN" "PART" "QUIT" "NICK" "AWAY") - rcirc-track-minor-mode t - rcirc-track-ignore-server-buffer-flag t - rcirc-server-alist - '(("operationnull.com" - :nick "Gondul" - :user-name "Gondul" - :port 6697 - :encryption tls)))) - -(use-package gptel - :bind (("C-c g" . gptel-menu) - ("C-c k" . (lambda () (interactive) (gptel "*evka*") (switch-to-buffer "*evka*")))) - :config - (defvar bd/llama-cpp-buffer-name "*llama-cpp-proc*") - (defvar bd/llama-cpp-reasoning-buffer-name "*llama-cpp-reasoning*") - (defvar bd/llama-cpp-port "4568") - (defvar bd/llama-cpp-threads "8") - (defvar bd/llama-cpp-model-file "Qwen3-8B.Q4_K_M.gguf") - ;; most models seem to ignore this, or llama-cpp doesn't add /no_think like it's supposed to - (defvar bd/llama-cpp-reasoning-budget nil) - (defun bd/gptel-start-backend () - (interactive) - (let ((process (get-buffer-process bd/llama-cpp-buffer-name))) - (if process - (message "llama-cpp process is already running!") - (progn - (start-process-shell-command - "llama-cpp" bd/llama-cpp-buffer-name - (concat "llama-server --reasoning-budget " - (if bd/llama-cpp-reasoning-budget "-1" "0") - " --port " bd/llama-cpp-port - " -t " bd/llama-cpp-threads - " -m " (expand-file-name bd/llama-cpp-model-file "~/.config/guix/assets/")))) - (unless (get-buffer bd/llama-cpp-reasoning-buffer-name) - (generate-new-buffer bd/llama-cpp-reasoning-buffer-name))))) - (defun bd/gptel-stop-backend () - (interactive) - (let ((process (get-buffer-process bd/llama-cpp-buffer-name))) - (if process - (progn - (delete-process process) - (kill-buffer bd/llama-cpp-buffer-name) - (message "Killed %s." process)) - (message "No llama-cpp process is running.")))) - (defun bd/gptel-restart-backend () - (interactive) - (bd/gptel-stop-backend) - (bd/gptel-start-backend)) - - (bd/gptel-start-backend) - - (add-to-list 'gptel-directives - '(evka . "You are a wolf (furry) named Evka hired as a secretary to complete language-based tasks. First describe an action your character does, e.x.: *I tap my claws on the desk*. Finish by responding to the task tersely, in character./no_think")) - - (setopt gptel-model 'qwen-4b - gptel-backend (gptel-make-openai "llama-cpp" - :stream t - :protocol "http" - :host (concat "localhost:" bd/llama-cpp-port) - :models '(qwen-4b)) - gptel-max-tokens 500 - gptel--system-message (alist-get 'evka gptel-directives) - gptel-include-reasoning bd/llama-cpp-reasoning-buffer-name)) - - -(provide 'bd--chat) -;;; bd--chat.el ends here |