config/emacs: pinentry
This commit is contained in:
parent
c514b653d3
commit
67ce8ffdd6
1 changed files with 5 additions and 1 deletions
|
@ -621,7 +621,11 @@ kept-old-versions 5)
|
|||
(use-package pinentry
|
||||
:config
|
||||
(setq epa-pinentry-mode 'loopback))
|
||||
(pinentry-start))
|
||||
(pinentry-start)
|
||||
(defun pinentry-emacs (desc prompt ok error)
|
||||
(let ((str (read-passwd (concat (replace-regexp-in-string "%22" "\"" (replace-regexp-in-string "%0A" "\n" desc)) prompt ": "))))
|
||||
str))
|
||||
)
|
||||
#+end_src
|
||||
** Password-Store
|
||||
#+begin_src emacs-lisp
|
||||
|
|
Loading…
Reference in a new issue