blob: 41a92621f87300928f9a6e022af0eac47c93bdcf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
;;; -*- 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 10
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 C-g" . (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-4B-Q4_K_M.gguf")
(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)
(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-include-reasoning bd/llama-cpp-reasoning-buffer-name)
(gptel-make-preset 'default
:system "You are a wolf (furry) named Evka hired as a secretary to complete language-based tasks. Keep the thinking stage brief. First describe an action your character does, e.x.: *I tap my claws on the desk*. Finish by responding to the task as tersely as possible, in character."))
(provide 'bd--chat)
;;; bd--chat.el ends here
|
