diff options
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/emacs/password-store.el | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el index e9acaad..5ec35eb 100644 --- a/contrib/emacs/password-store.el +++ b/contrib/emacs/password-store.el @@ -55,18 +55,18 @@ Nil arguments are ignored. Returns the output on success, or outputs error message on failure." (with-temp-buffer (let* ((tempfile (make-temp-file "")) - (exit-code - (apply 'call-process - (append - (list password-store-executable nil (list t tempfile) nil) - (-reject 'null args))))) + (exit-code + (apply 'call-process + (append + (list password-store-executable nil (list t tempfile) nil) + (-reject 'null args))))) (unless (zerop exit-code) - (erase-buffer) - (insert-file-contents tempfile)) + (erase-buffer) + (insert-file-contents tempfile)) (delete-file tempfile) (if (zerop exit-code) - (s-chomp (buffer-string)) - (error (s-chomp (buffer-string))))))) + (s-chomp (buffer-string)) + (error (s-chomp (buffer-string))))))) (defun password-store--run-init (gpg-ids &optional folder) (apply 'password-store--run "init" @@ -149,8 +149,8 @@ outputs error message on failure." (unless subdir (setq subdir "")) (let ((dir (f-join (password-store-dir) subdir))) (if (f-directory? dir) - (mapcar 'password-store--file-to-entry - (f-files dir (lambda (file) (equal (f-ext file) "gpg")) t))))) + (mapcar 'password-store--file-to-entry + (f-files dir (lambda (file) (equal (f-ext file) "gpg")) t))))) ;;;###autoload (defun password-store-edit (entry) @@ -204,11 +204,11 @@ Separate multiple IDs with spaces." (defun password-store-insert (entry password) "Insert a new ENTRY containing PASSWORD." (interactive (list (read-string "Password entry: ") - (read-passwd "Password: " t))) + (read-passwd "Password: " t))) (message (shell-command-to-string (format "echo %s | %s insert -m -f %s" - (shell-quote-argument password) - password-store-executable - (shell-quote-argument entry))))) + (shell-quote-argument password) + password-store-executable + (shell-quote-argument entry))))) ;;;###autoload (defun password-store-generate (entry &optional password-length) @@ -216,8 +216,8 @@ Separate multiple IDs with spaces." Default PASSWORD-LENGTH is `password-store-password-length'." (interactive (list (read-string "Password entry: ") - (when current-prefix-arg - (abs (prefix-numeric-value current-prefix-arg))))) + (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. @@ -252,8 +252,8 @@ avoid sending a password to the browser." (interactive (list (password-store--completing-read))) (let ((url (password-store-get entry))) (if (or (string-prefix-p "http://" url) - (string-prefix-p "https://" url)) - (browse-url url) + (string-prefix-p "https://" url)) + (browse-url url) (error "%s" "String does not look like a URL")))) (provide 'password-store) |