Add (smtp-get-pass)

1 files changed, 14 insertions, 3 deletions

diff --git a/emacs.org b/emacs.org
index 076b57b..b334438 100755
--- a/emacs.org
+++ b/emacs.org
@@ -237,11 +237,22 @@ Fonts and basic appearance settings for each device
   (setq counsel-describe-variable-function #'helpful-variable)
 #+end_src
 * Pass
+** Misc Functions
+#+begin_src emacs-lisp
+  (defun smtp-get-pass ()
+    (interactive)
+    "get password for smtp"
+    (insert
+     (password-store-get-field "fastmail.com/[email protected]" "smtp")))
+#+end_src
 ** Keybindings
 #+begin_src emacs-lisp
-  (global-set-key (kbd "C-c p i") 'password-store-insert)
-  (global-set-key (kbd "C-c p e") 'password-store-edit)
-  (global-set-key (kbd "C-c p g") 'password-store-generate)
+  (define-prefix-command 'thanos/pass)
+  (global-set-key (kbd "C-c p") 'thanos/pass)
+  (define-key thanos/pass (kbd "i") 'password-store-insert)
+  (define-key thanos/pass (kbd "e") 'password-store-edit)
+  (define-key thanos/pass (kbd "g") 'password-store-generate)
+  (define-key thanos/pass (kbd "s") 'smtp-get-pass)
 #+end_src
 * Dired
 ** Functions