chore: updated emacs config
f9d30f11
1 file(s) · +13 −17
| 12 | 12 | (setq display-line-numbers-type "relative") |
|
| 13 | 13 | (setq org-directory "~/org/") |
|
| 14 | 14 | ||
| 15 | - | ;; IRC password: prompted once per session, kept only in memory |
|
| 16 | - | (defvar my/soju--password nil) |
|
| 15 | + | ;; ZNC password: prompted once per session, kept only in memory |
|
| 16 | + | (defvar my/znc--password nil) |
|
| 17 | + | ||
| 18 | + | (defun my/znc-password (&rest _) |
|
| 19 | + | (or my/znc--password |
|
| 20 | + | (setq my/znc--password (read-passwd "ZNC password: ")))) |
|
| 17 | 21 | ||
| 18 | - | (defun my/soju-password (&rest _) |
|
| 19 | - | (or my/soju--password |
|
| 20 | - | (setq my/soju--password (read-passwd "Soju password: ")))) |
|
| 22 | + | (defun my/znc-pass (client) |
|
| 23 | + | "Build ZNC server password for CLIENT." |
|
| 24 | + | (concat "stevedylandev_@" client "/libera:" (my/znc-password))) |
|
| 21 | 25 | ||
| 22 | - | ;; Prompt before connecting, not mid-SASL handshake |
|
| 26 | + | ;; Prompt before connecting, not mid-handshake |
|
| 23 | 27 | (defadvice! my/irc-ask-password-a (&rest _) |
|
| 24 | 28 | :before #'+irc/connect |
|
| 25 | - | (my/soju-password)) |
|
| 29 | + | (my/znc-password)) |
|
| 26 | 30 | ||
| 27 | - | (set-irc-server! "soju" |
|
| 31 | + | (set-irc-server! "znc" |
|
| 28 | 32 | `(:host "138.197.115.89" |
|
| 29 | 33 | :port 6697 |
|
| 30 | 34 | :tls t |
|
| 31 | 35 | :nick "stevedylandev_" |
|
| 32 | - | :sasl-username "stevedylandev_/libera@emacs" |
|
| 33 | - | :sasl-password my/soju-password)) |
|
| 34 | - | ||
| 35 | - | (defun my/irc () |
|
| 36 | - | (interactive) |
|
| 37 | - | (erc-tls :server "138.197.115.89" :port 6697 |
|
| 38 | - | :nick "stevedylandev_" |
|
| 39 | - | :user "stevedylandev_/libera@emacspersonal" |
|
| 40 | - | :password "REDACTED")) |
|
| 36 | + | :pass ,(lambda (&rest _) (my/znc-pass "emacs")))) |
|
| 41 | 37 | ||
| 42 | 38 | (after! elfeed-org |
|
| 43 | 39 | (setq rmh-elfeed-org-files (list "~/org/elfeed.org"))) |