From 76efba9dd2a60738831e036eeab801e8a1bc8871 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Sun, 11 Nov 2018 13:37:06 -0500 Subject: [PATCH 1/1] [emacs] get canlock-password from auth --- etc/secrets.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/etc/secrets.el b/etc/secrets.el index 74642b2..e881fb0 100644 --- a/etc/secrets.el +++ b/etc/secrets.el @@ -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 canlock-password (eval-when-compile (funcall (plist-get (car (auth-source-search :host "gnus-canlock-password" :max 1)) :secret)))) + -- 2.20.1