sako/nixos
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

config/emacs: shennanigan test

Browse source
This commit is contained in:
Sakooooo 2024-10-06 17:08:58 +04:00
parent 737cbe2712
commit cacee6e280
Signed by: sako
GPG key ID: FE52FD65B76E4751
1 changed files with 28 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
config/emacs/emacs.org
View file

@ -1082,37 +1082,35 @@ does NOT WORK ON WINDOWS
#+end_src #+end_src
** rcirc (irc) ** rcirc (irc)
#+begin_src emacs-lisp #+begin_src emacs-lisp
(require 'rcirc) ;; (require 'rcirc)
(use-package rcirc
(defvar *rcirc-last-message-time* nil) :ensure nil
(defvar *rcirc-last-message-time-file* "~/.emacs.d/.rcirc-last-message-time") :custom
(defvar *rcirc-last-message-time-initial* nil) (rcirc-id-string "Emacs rcirc")
(rcirc-server-alist `(("znc.sako.box"
:port 7000
(setq rcirc-id-string "Emacs rcirc") :encryption tls
:nick "sako@emacs/Libera"
(setq rcirc-server-alist `(("znc.sako.box" :user-name "sako@emacs/Libera"
:port 7000 :password ,(concat "sako@emacs/Libera:" (password-store-get "SelfHosted/ZNC")))))
:encryption tls (rcirc-fill-column 120)
:nick "sako@emacs/Libera" (rcirc-reconnect-delay 5)
:user-name "sako@emacs/Libera" :config
:password ,(concat "sako@emacs/Libera:" (password-store-get "SelfHosted/ZNC"))))) (defun rcirc-detach-buffer ()
(interactive)
(defun rcirc-detach-buffer () (let ((buffer (current-buffer)))
(interactive) (when (and (rcirc-buffer-process)
(let ((buffer (current-buffer))) (eq (process-status (rcirc-buffer-process)) 'open))
(when (and (rcirc-buffer-process) (with-rcirc-server-buffer
(eq (process-status (rcirc-buffer-process)) 'open)) (setq rcirc-buffer-alist
(with-rcirc-server-buffer (rassq-delete-all buffer rcirc-buffer-alist)))
(setq rcirc-buffer-alist (rcirc-update-short-buffer-names)
(rassq-delete-all buffer rcirc-buffer-alist))) (if (rcirc-channel-p rcirc-target)
(rcirc-update-short-buffer-names) (rcirc-send-string (rcirc-buffer-process)
(if (rcirc-channel-p rcirc-target) (concat "DETACH " rcirc-target))))
(rcirc-send-string (rcirc-buffer-process) (setq rcirc-target nil)
(concat "DETACH " rcirc-target)))) (kill-buffer buffer))))
(setq rcirc-target nil)
(kill-buffer buffer)))
#+end_src #+end_src
** elfeed (rss) ** elfeed (rss)
Will configure later, (use elfeed protocol ok ty) Will configure later, (use elfeed protocol ok ty)