diff options
| -rw-r--r-- | emacs/inits/30-irc.el | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/emacs/inits/30-irc.el b/emacs/inits/30-irc.el index 1eecee4..d39e111 100644 --- a/emacs/inits/30-irc.el +++ b/emacs/inits/30-irc.el @@ -1,4 +1,4 @@ -;; Time-stamp: <2021-04-11 20h03 EDT (hobbies)> +;; Time-stamp: <2021-04-14 22h28 EDT (hobbies)> (use-package rcirc :ensure t @@ -6,6 +6,7 @@ :hook (rcirc-mode . (lambda () (rcirc-track-minor-mode) (spell-fu-mode 1) + (visual-line-mode) (set (make-local-variable 'scroll-conservatively) 8192))) :config (use-package rcirc-color @@ -18,6 +19,7 @@ (require 'auth-source) (defadvice rcirc (before rcirc-read-from-authinfo activate) (unless arg + (setq rcirc-server-alist (copy-tree rcirc-server-alist-template)) (dolist (server rcirc-server-alist) (let* ((pl (cdr server)) (host (plist-get pl :host)) @@ -34,6 +36,9 @@ (error "Password not found for %s" host))))) (message "Found authorisation information for %s." host)))))) + (defadvice rcirc (after rcirc-clean-passwords activate) + (setq rcirc-server-alist nil)) + (setq rcirc-default-full-name "tslil" rcirc-default-nick "tslil" rcirc-default-user-name "hiato" @@ -41,9 +46,9 @@ rcirc-log-directory "~/logs/irc/" rcirc-fill-column 80 rcirc-log-flag t - rcirc-server-alist '(("ZNC instance" - :host "znc.address.tld" - :port 6697 - :user "user" - :password "%LOOKUP%" - :encryption tls)))) + rcirc-server-alist-template '(("l-3.space" + :host "l-3.space" + :port 6697 + :user "tslil" + :password "%LOOKUP%" + :encryption tls)))) |