Add acdw/fetch-password and circe network configuration

2 files changed, 29 insertions, 3 deletions

@@ -1119,9 +1119,24 @@ like a dumbass."
   
   (setq acdw-irc/post-my-nick "-> ")
   
-  (setq circe-default-part-message "See You, Space Cowpokes . . ."
+  (setq circe-default-nick "acdw"
+        circe-default-part-message "See You, Space Cowpokes . . ."
         circe-highlight-nick-type 'all
-        ;; circe-network-options in private.el
+        circe-network-options
+        (("Libera Chat"
+          :channels ("#emacs" "#systemcrafters" "##webpals")
+          :sasl-username "acdw"
+          :sasl-password ,(acdw/fetch-password :host "libera.chat"))
+         ("Tilde Chat"
+          :channels ("#meta" "#bread" "#dadjokes" "#team")
+          :host "irc.tilde.chat" :port 6697 :use-tls t
+          :sasl-username "acdw"
+          :sasl-password ,(acdw/fetch-password :host "tilde.chat"))
+         ("Casa"
+          :channels ("#basement")
+          :host "m455.casa" :port 6697 :use-tls t
+          :sasl-username "acdw"
+          :sasl-password ,(acdw/fetch-password :host "m455.casa")))
         circe-reduce-lurker-spam t
         circe-server-auto-join-default-type :after-auth)
 
@@ -579,7 +579,18 @@ It's called 'require-private' for historical reasons."
       (switch-to-buffer nil)
     (other-window (or arg 1))))
 
-
+
+;;; Auth-sources
+;; https://github.com/emacs-circe/circe/wiki/Configuration
+(defun acdw/fetch-password (&rest params)
+  (require 'auth-source)
+  (let ((match (car (apply #'auth-source-search params))))
+    (if match
+        (let ((secret (plist-get match :secret)))
+          (if (functionp secret)
+              (funcall secret)
+            secret))
+      (warn "Password not found for %S" params))))
 
 (provide 'acdw)
 ;;; acdw.el ends here