From c4eb3a9841b4aef775f5ce3b04dde4e7354bd957 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 2 Sep 2021 23:51:36 -0500
Subject: Change to acdw/make-password-fetcher

---
 lisp/acdw.el | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lisp')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index 2acef4f..ded65f8 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -593,6 +593,7 @@ It's called 'require-private' for historical reasons."
 ;;; Auth-sources
 ;; https://github.com/emacs-circe/circe/wiki/Configuration
 (defun acdw/fetch-password (&rest params)
+  "Fetch a password from `auth-source'."
   (require 'auth-source)
   (let ((match (car (apply #'auth-source-search params))))
     (if match
@@ -602,6 +603,11 @@ It's called 'require-private' for historical reasons."
             secret))
       (message "Password not found for %S" params))))
 
+(defun acdw/make-password-fetcher (&rest params)
+  "Make a function that will fetch a password using `acdw/fetch-password'."
+  (lambda (&rest _)
+    (apply #'acdw/fetch-password params)))
+
 
 ;;; Paren annoyances
 (defun acdw/stop-paren-annoyances (&optional buffer)
-- 
cgit 1.4.1-21-gabe81