Separate pass settings

README.org

@@ -4,6 +4,7 @@
 https://github.com/rime/home/wiki/UserGuide#同步用戶資料
 
 ** Pass
+https://www.masteringemacs.org/article/keeping-secrets-in-emacs-gnupg-auth-sources
 ~$HOME/.gnupg/gpg-agent.conf~
 #+begin_example
 allow-emacs-pinentry

cats/+default.el

@@ -174,3 +174,9 @@
 
 ;;; time
 (setq timeclock-file (concat cat-etc-dir "timelog"))
+
+;;; gpg
+(use-package epg-config
+  :ensure nil
+  :custom
+  (epg-pinentry-mode 'loopback))

cats/+pass.el

@@ -1,23 +1,25 @@
 ;; -*- lexical-binding: t; -*-
 
-(use-package pass
+(use-package pass)
+
+(use-package password-store
   :custom
   (password-store-password-length 16)
-  (epg-pinentry-mode 'loopback))
-
-(with-eval-after-load 'password-store
+  :config
   (defun password-store-generate (entry &optional password-length)
     "Generate a new password for ENTRY with PASSWORD-LENGTH.
 
 Default PASSWORD-LENGTH is `password-store-password-length'."
     (interactive (list (password-store--completing-read)
                        (when current-prefix-arg
                          (abs (prefix-numeric-value current-prefix-arg)))))
-    (unless password-length (setq password-length password-store-password-length))
-    ;; A message with the output of the command is not printed because
-    ;; the output contains the password.
+    ;; A message with the output of the command is not printed
+    ;; because the output contains the password.
     ;; Generate password in-place if entry file exists.
-    (password-store--run-generate entry password-length (if (file-exists-p (password-store--entry-to-file entry)) t nil))
+    (password-store--run-generate
+     entry
+     (or password-length password-store-password-length)
+     (if (file-exists-p (password-store--entry-to-file entry)) t nil))
     nil)
   (defun password-store--run-generate (entry password-length &optional in-place no-symbols)
     (password-store--run "generate"