summaryrefslogtreecommitdiff
path: root/contrib/emacs/password-store.el
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--contrib/emacs/password-store.el63
1 files changed, 59 insertions, 4 deletions
diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el
index e02d4d7..142928d 100644
--- a/contrib/emacs/password-store.el
+++ b/contrib/emacs/password-store.el
@@ -60,6 +60,61 @@ outputs error message on failure."
(buffer-string)
(error (s-chomp (buffer-string)))))))
+(defun password-store--run-init (gpg-ids &optional folder)
+ (apply 'password-store--run "init"
+ (if folder (format "--path=%s" folder))
+ gpg-ids))
+
+(defun password-store--run-list (&optional subdir)
+ (error "Not implemented"))
+
+(defun password-store--run-grep (&optional string)
+ (error "Not implemented"))
+
+(defun password-store--run-find (&optional string)
+ (error "Not implemented"))
+
+(defun password-store--run-show (entry)
+ (password-store--run "show"
+ entry))
+
+(defun password-store--run-insert (entry password &optional force)
+ (error "Not implemented"))
+
+(defun password-store--edit (entry)
+ (error "Not implemented"))
+
+(defun password-store--run-generate (entry password-length &optional force no-symbols)
+ (password-store--run "generate"
+ (if force "--force")
+ (if no-symbols "--no-symbols")
+ entry
+ (number-to-string password-length)))
+
+(defun password-store--run-remove (entry &optional force)
+ (password-store--run "remove"
+ (if force "--force")
+ entry))
+
+(defun password-store--run-rename (entry new-entry &optional force)
+ (password-store--run "rename"
+ (if force "--force")
+ entry
+ new-entry))
+
+(defun password-store--run-copy (entry new-entry &optional force)
+ (password-store--run "copy"
+ (if force "--force")
+ entry
+ new-entry))
+
+(defun password-store--run-git (&rest args)
+ (apply 'password-store--run "git"
+ args))
+
+(defun password-store--run-version ()
+ (password-store--run "version"))
+
(defvar password-store-kill-ring-pointer nil
"The tail of of the kill ring ring whose car is the password.")
@@ -98,7 +153,7 @@ need to be commited manually if git is being used."
"Return password for ENTRY.
Returns the first line of the password data."
- (car (s-lines (password-store--run "show" entry))))
+ (car (s-lines (password-store--run-show entry))))
;;;###autoload
(defun password-store-clear ()
@@ -136,7 +191,7 @@ Default PASSWORD-LENGTH is `password-store-password-length'."
(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.
- (password-store--run "generate" "-f" entry (number-to-string password-length))
+ (password-store--run-generate entry (number-to-string password-length) t)
nil)
;;;###autoload
@@ -150,7 +205,7 @@ Default PASSWORD-LENGTH is `password-store-password-length'."
(defun password-store-remove (entry)
"Remove existing password for ENTRY."
(interactive (list (completing-read "Password entry: " (password-store-list))))
- (message (s-chomp (password-store--run "rm" "-f" entry))))
+ (message (s-chomp (password-store--run-remove entry t))))
;;;###autoload
(defun password-store-url (entry)
@@ -169,6 +224,6 @@ avoid sending a password to the browser."
(defun password-store-version ()
"Show version of pass executable."
(interactive)
- (message (s-chomp (password-store--run "version"))))
+ (message (s-chomp (password-store--run-version))))
;;; password-store.el ends here