1 files changed, 12 insertions, 1 deletions

@@ -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