summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-09-01 17:14:44 -0500
committerCase Duckworth2021-09-01 17:14:44 -0500
commit9bbc43a4557adcfafe75c3970c16c5102bfdf195 (patch)
treefe275b3930c51cad9e05c476c3cc95d36a289823 /lisp
parentChange fonts depending on system (diff)
downloademacs-9bbc43a4557adcfafe75c3970c16c5102bfdf195.tar.gz
emacs-9bbc43a4557adcfafe75c3970c16c5102bfdf195.zip
Add acdw/fetch-password and circe network configuration
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el13
1 files changed, 12 insertions, 1 deletions
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."
579 (switch-to-buffer nil) 579 (switch-to-buffer nil)
580 (other-window (or arg 1)))) 580 (other-window (or arg 1))))
581 581
582 582
583;;; Auth-sources
584;; https://github.com/emacs-circe/circe/wiki/Configuration
585(defun acdw/fetch-password (&rest params)
586 (require 'auth-source)
587 (let ((match (car (apply #'auth-source-search params))))
588 (if match
589 (let ((secret (plist-get match :secret)))
590 (if (functionp secret)
591 (funcall secret)
592 secret))
593 (warn "Password not found for %S" params))))
583 594
584(provide 'acdw) 595(provide 'acdw)
585;;; acdw.el ends here 596;;; acdw.el ends here