From 8a491f16961dd120fed6a4e154d0ef9b5a4cae7b Mon Sep 17 00:00:00 2001 From: Svend Sorensen Date: Wed, 7 May 2014 14:53:08 -0700 Subject: Reorder interactive function to match order of helper functions --- contrib/emacs/password-store.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'contrib') diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el index 59a12f7..25556d2 100644 --- a/contrib/emacs/password-store.el +++ b/contrib/emacs/password-store.el @@ -185,6 +185,13 @@ after `password-store-timeout' seconds." (message "Copied %s to the kill ring. Will clear in %s seconds." entry password-store-timeout) (run-at-time password-store-timeout nil 'password-store-clear))) +;;;###autoload +(defun password-store-insert (entry password) + "Insert a new ENTRY containing PASSWORD." + (interactive (list (read-string "Password entry: ") + (read-passwd "Password: " t))) + (message (shell-command-to-string (format "echo %s | %s insert -m -f %s" password password-store-executable entry)))) + ;;;###autoload (defun password-store-generate (entry &optional password-length) "Generate a new password for ENTRY with PASSWORD-LENGTH. @@ -199,19 +206,18 @@ Default PASSWORD-LENGTH is `password-store-password-length'." (password-store--run-generate entry password-length t) nil) -;;;###autoload -(defun password-store-insert (entry password) - "Insert a new ENTRY containing PASSWORD." - (interactive (list (read-string "Password entry: ") - (read-passwd "Password: " t))) - (message (shell-command-to-string (format "echo %s | %s insert -m -f %s" password password-store-executable entry)))) - ;;;###autoload (defun password-store-remove (entry) "Remove existing password for ENTRY." (interactive (list (password-store--completing-read))) (message (password-store--run-remove entry t))) +;;;###autoload +(defun password-store-version () + "Show version of pass executable." + (interactive) + (message (password-store--run-version))) + ;;;###autoload (defun password-store-url (entry) "Browse URL stored in ENTRY. @@ -225,12 +231,6 @@ avoid sending a password to the browser." (browse-url url) (error "%s" "String does not look like a URL")))) -;;;###autoload -(defun password-store-version () - "Show version of pass executable." - (interactive) - (message (password-store--run-version))) - (provide 'password-store) ;;; password-store.el ends here -- cgit v1.2.3-59-g8ed1b