ryuslash/dispass.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Separate copy action for extra flexibility

Browse source
This commit is contained in:
Tom Willemse 2014-02-02 16:13:14 +01:00
parent f39f845e74
commit 786fc80680
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
dispass.el
View file

@ -190,10 +190,13 @@ The LABEL, PASS, CREATE, LENGTH, ALGO and SEQNO arguments have
the same meanings as when passed to `dispass-start-process'. the same meanings as when passed to `dispass-start-process'.
The result is put in the `kill-ring'." The result is put in the `kill-ring'."
(kill-new (funcall (dispass--get-passphrase-matcher label)
(funcall (dispass--get-passphrase-matcher label) (dispass-start-process "generate" label pass create length
(dispass-start-process "generate" label pass create length algo seqno)))
algo seqno)))
(defun dispass--copy (str)
"Put STR in the `kill-ring'."
(kill-new str)
(message "Passphrase copied to kill ring")) (message "Passphrase copied to kill ring"))
;;;###autoload ;;;###autoload
@ -210,7 +213,7 @@ the ALGO algorithm with sequence number SEQNO."
(read-from-minibuffer (read-from-minibuffer
"Sequence no. (1): " nil nil t nil "1"))) "Sequence no. (1): " nil nil t nil "1")))
(let ((length (or length dispass-default-length))) (let ((length (or length dispass-default-length)))
(dispass--generate label pass t length algo seqno))) (dispass--copy (dispass--generate label pass t length algo seqno))))
;;;###autoload ;;;###autoload
(defun dispass (label pass &optional length algo seqno) (defun dispass (label pass &optional length algo seqno)
@ -231,7 +234,7 @@ not to have LABEL added to your labelfile for some other reason."
(setq seqno (read-from-minibuffer (setq seqno (read-from-minibuffer
"Sequence no. (1): " nil nil t nil "1"))) "Sequence no. (1): " nil nil t nil "1")))
(let ((length (or length dispass-default-length))) (let ((length (or length dispass-default-length)))
(dispass--generate label pass nil length algo seqno))) (dispass-copy (dispass--generate label pass nil length algo seqno))))
;; Labels management ;; Labels management
;;;###autoload ;;;###autoload