diff options
Diffstat (limited to 'emacs/inits/30-irc.el')
| -rw-r--r-- | emacs/inits/30-irc.el | 112 |
1 files changed, 57 insertions, 55 deletions
diff --git a/emacs/inits/30-irc.el b/emacs/inits/30-irc.el index 99d2e2f..7e20970 100644 --- a/emacs/inits/30-irc.el +++ b/emacs/inits/30-irc.el @@ -1,60 +1,62 @@ -;; Time-stamp: <2021-04-19 09h46 EDT (hobbies)> +;; Time-stamp: <2021-09-27 08h48 EDT (hobbies)> (use-package rcirc - :ensure t - :defer - :hook (rcirc-mode . (lambda () - (rcirc-track-minor-mode 1) - (rcirc-omit-mode 1) - (spell-fu-mode 1) - (visual-line-mode) - (set (make-local-variable 'scroll-conservatively) 8192))) - :config - (use-package rcirc-color - :ensure t - :if (window-system)) - (use-package rcirc-styles - :ensure t - :if (window-system)) + :ensure t + :defer + :hook (rcirc-mode . (lambda () + (rcirc-track-minor-mode 1) + (rcirc-omit-mode 1) + (spell-fu-mode 1) + (visual-line-mode) + (set (make-local-variable 'scroll-conservatively) 8192))) + :config + (use-package rcirc-color + :ensure t + :if (window-system)) + (use-package rcirc-styles + :ensure t + :if (window-system)) - (require 'auth-source) - (defadvice rcirc (before rcirc-read-from-authinfo activate) - (unless arg - (custom-set-variables - '(epg-gpg-program "/usr/bin/qubes-gpg-client-wrapper")) - (setq rcirc-server-alist (copy-tree rcirc-server-alist-template)) - (dolist (server rcirc-server-alist) - (let* ((pl (cdr server)) - (host (plist-get pl :host)) - (user (plist-get pl :user)) - (port (plist-get pl :port)) - (pass (plist-get pl :password))) - (when (string-equal "%LOOKUP%" pass) - (plist-put (cdr server) :password - (concat user ":" - (let ((match (car (auth-source-search :host host)))) - (if match - (let ((secret (plist-get match :secret))) - (if (functionp secret) (funcall secret) secret)) - (error "Password not found for %s" host))))) - (message "Found authorisation information for %s." host)))))) + (require 'auth-source) + (defadvice rcirc (before rcirc-read-from-authinfo activate) + (unless arg + (custom-set-variables + '(epg-gpg-program "/usr/bin/qubes-gpg-client-wrapper")) + (setq rcirc-server-alist (copy-tree rcirc-server-alist-template)) + (dolist (server rcirc-server-alist) + (let* ((pl (cdr server)) + (host (plist-get pl :host)) + (user (plist-get pl :user)) + (port (plist-get pl :port)) + (pass (plist-get pl :password))) + (when (string-equal "%LOOKUP%" pass) + (plist-put (cdr server) :password + (concat user ":" + (let ((match (car (auth-source-search :host host)))) + (if match + (let ((secret (plist-get match :secret))) + (if (functionp secret) (funcall secret) secret)) + (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) - (custom-set-variables - '(epg-gpg-program "gpg2"))) + (defadvice rcirc (after rcirc-clean-passwords activate) + (setq rcirc-server-alist nil) + (custom-set-variables + '(epg-gpg-program "gpg2"))) - (setq rcirc-default-full-name "tslil" - rcirc-default-nick "op_4" - rcirc-default-user-name "op_4" - rcirc-default-part-reason "leaving" - rcirc-time-format "%Y-%m-%d %H:%M " - rcirc-log-directory "~/logs/irc/" - rcirc-fill-column 80 - rcirc-log-flag t - rcirc-server-alist-template '(("l-3.space" - :host "l-3.space" - :port 6697 - :user "tslil" - :password "%LOOKUP%" - :encryption tls)))) + (setq rcirc-default-full-name "tslil" + rcirc-default-nick "op_4" + rcirc-default-user-name "op_4" + rcirc-default-part-reason "leaving" + rcirc-time-format "%Y-%m-%d %H:%M " + rcirc-log-directory "~/logs/irc/" + rcirc-fill-column 80 + rcirc-log-flag t + rcirc-ignore-list '("esowiki") + rcirc-server-alist-template '(("l-3.space" + :server-alias "libera.chat" + :host "l-3.space" + :port 6697 + :user "tslil/liberachat" + :password "%LOOKUP%" + :encryption tls)))) |