[emacs] cleanup

1 files changed, 62 insertions, 0 deletions

diff --git a/emacs/inits/NO-30-irc.el b/emacs/inits/NO-30-irc.el
new file mode 100644
index 0000000..7e20970
--- /dev/null
+++ b/emacs/inits/NO-30-irc.el
@@ -0,0 +1,62 @@
+;; 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))
+
+  (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")))
+
+  (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))))