[emacs] get canlock-password from auth
authorAmin Bandali <bandali@gnu.org>
Sun, 11 Nov 2018 18:37:06 +0000 (13:37 -0500)
committerAmin Bandali <bandali@gnu.org>
Sun, 11 Nov 2018 18:37:06 +0000 (13:37 -0500)
etc/secrets.el

index 74642b2..e881fb0 100644 (file)
@@ -5,3 +5,6 @@
 (defvar watform-client-id     (eval-when-compile (plist-get (car (auth-source-search :host "watform.slack.com" :max 1)) :client-id)))
 (defvar watform-client-secret (eval-when-compile (plist-get (car (auth-source-search :host "watform.slack.com" :max 1)) :client-secret)))
 (defvar watform-token         (eval-when-compile (plist-get (car (auth-source-search :host "watform.slack.com" :max 1)) :token)))
 (defvar watform-client-id     (eval-when-compile (plist-get (car (auth-source-search :host "watform.slack.com" :max 1)) :client-id)))
 (defvar watform-client-secret (eval-when-compile (plist-get (car (auth-source-search :host "watform.slack.com" :max 1)) :client-secret)))
 (defvar watform-token         (eval-when-compile (plist-get (car (auth-source-search :host "watform.slack.com" :max 1)) :token)))
+
+(defvar canlock-password (eval-when-compile (funcall (plist-get (car (auth-source-search :host "gnus-canlock-password" :max 1)) :secret))))
+