[emacs] add alternative bindings for launching gnus{,-unplugged}

[~bandali/configs] / etc / secrets.el

diff --git a/etc/secrets.el b/etc/secrets.el
index 9feeceb..e881fb0 100644 (file)
--- a/etc/secrets.el
+++ b/etc/secrets.el
@@ -1,7 +1,10 @@
-(require 'auth-source)
+(eval-when-compile (require 'auth-source))

 (defvar uw-apv-client-id      (eval-when-compile (plist-get (car (auth-source-search :host "uw-apv.slack.com"  :max 1)) :client-id)))
 (defvar uw-apv-client-secret  (eval-when-compile (plist-get (car (auth-source-search :host "uw-apv.slack.com"  :max 1)) :client-secret)))
 (defvar uw-apv-token          (eval-when-compile (plist-get (car (auth-source-search :host "uw-apv.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 uw-apv-client-id      (eval-when-compile (plist-get (car (auth-source-search :host "uw-apv.slack.com"  :max 1)) :client-id)))
 (defvar uw-apv-client-secret  (eval-when-compile (plist-get (car (auth-source-search :host "uw-apv.slack.com"  :max 1)) :client-secret)))
 (defvar uw-apv-token          (eval-when-compile (plist-get (car (auth-source-search :host "uw-apv.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))))
+