diff options
| author | bd <bdunahu@operationnull.com> | 2025-10-12 22:52:28 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-10-12 22:54:09 -0400 |
| commit | f1a4ebbbc3c590ee439ffa27b9286384ff940cb0 (patch) | |
| tree | 4d2baa15c08029f0c2edbb482fdfc486d6605988 /.config/emacs/modules/bd--irc.el | |
| parent | 1f224a94dc70d415ec821acc6081fb99b1a2e230 (diff) | |
Add llama-cpp and gptel
Diffstat (limited to '.config/emacs/modules/bd--irc.el')
| -rw-r--r-- | .config/emacs/modules/bd--irc.el | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/.config/emacs/modules/bd--irc.el b/.config/emacs/modules/bd--irc.el deleted file mode 100644 index fe2d58f..0000000 --- a/.config/emacs/modules/bd--irc.el +++ /dev/null @@ -1,63 +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 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)))) - - -(provide 'bd--irc) -;;; bd--irc.el ends here |
