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
|
(use-package pinentry
|
||||||
:config
|
:config
|
||||||
(setq epa-pinentry-mode 'loopback))
|
(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
|
#+end_src
|
||||||
** Password-Store
|
** Password-Store
|
||||||
#+begin_src emacs-lisp
|
#+begin_src emacs-lisp
|
||||||
|
|
Loading…
Reference in a new issue