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

Clean up dispass-labels--refresh

Browse source 
* dispass.el (dispass-labels--refresh): Store information once and
  reuse.
This commit is contained in:
Tom Willemsen 2012-07-08 22:46:55 +02:00
parent 41e2eb2b80
commit 688bee7ca1
1 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
dispass.el
View file

@ -254,16 +254,21 @@ thrown."
(while (re-search-forward
"\\(\\(?:\\sw\\|\\s_\\)+\\) .*length=\\([0-9]+\\) .*hash=\\(\\sw+\\)$"
nil t)
(add-to-list 'tmp-list `(,(match-string 1)
[(,(match-string 1)
face link
help-echo ,(concat "Generate passphrase for " (match-string 1))
follow-link t
dispass-label ,(match-string 1)
dispass-length ,(match-string 2)
action dispass-from-button)
,(match-string 2)
,(match-string 3)]))))
(let ((label (match-string 1))
(length (match-string 2))
(hashmethod (match-string 3)))
(add-to-list 'tmp-list
`(,label
[(,label
face link
help-echo ,(concat "Generate passphrase for "
label)
follow-link t
dispass-label ,label
dispass-length ,length
action dispass-from-button)
,length
,hashmethod])))))
(setq tabulated-list-entries tmp-list)))
(define-derived-mode dispass-labels-mode tabulated-list-mode "DisPass"