From 9bbc43a4557adcfafe75c3970c16c5102bfdf195 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 1 Sep 2021 17:14:44 -0500
Subject: Add acdw/fetch-password and circe network configuration

---
 lisp/acdw.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index f23ca0e..796c2f1 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -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
-- 
cgit 1.4.1-21-gabe81