From d0220a6d38f8eef32609eb92507fc0e1956cbeb5 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 16 Jul 2023 16:27:34 +0300 Subject: Add (smtp-get-pass) --- emacs.org | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) (limited to 'emacs.org') 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/thanosapollo@fastmail.com" "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 -- cgit v1.2.3