remove unnecessary nested guix dir

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