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

Change hash(method) to algo(rithm)

Browse source 
To keep terminology in line with the internal workings of DisPass,
hash(method) should be replaced by algo or algorithm, depending on the
situation.
This commit is contained in:
Tom Willemsen 2013-01-08 00:40:32 +01:00
parent 0a8d1b6163
commit 322d83f441
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
dispass.el
View file

@ -136,7 +136,7 @@ an eye out for LABEL."
nil t)
(let ((label (match-string 1))
(length (match-string 2))
(hashmethod (match-string 3)))
(algo (match-string 3)))
(add-to-list 'result
(list label
`[(,label
@ -147,7 +147,7 @@ an eye out for LABEL."
dispass-length ,length
action dispass-from-button)
,length
,hashmethod])))))
,algo])))))
result))
;;;###autoload
@ -170,8 +170,8 @@ an eye out for LABEL."
;; Labels management
;;;###autoload
(defun dispass-add-label (label length hashtype)
"Add LABEL with length LENGTH and hashtype HASHTYPE to DisPass."
(defun dispass-add-label (label length algo)
"Add LABEL with length LENGTH and algorithm ALGO to DisPass."
(interactive
(list (read-from-minibuffer "Label: ")
(read-from-minibuffer
@ -180,8 +180,7 @@ an eye out for LABEL."
(symbol-name (read-from-minibuffer
"Algorithm (dispass1): " nil nil t nil "dispass1"))))
(shell-command
(format "%s --add %s:%d:%s" dispass-labels-executable label length
hashtype)))
(format "%s --add %s:%d:%s" dispass-labels-executable label length algo)))
;;;###autoload
(defun dispass-remove-label (label)
@ -217,7 +216,7 @@ thrown."
\\{dispass-labels-mode-map}"
(setq tabulated-list-format [("Label" 30 t)
("Length" 6 nil)
("Hash" 0 t)]
("Algorithm" 0 t)]
tabulated-list-sort-key '("Label" . nil))
(add-hook 'tabulated-list-revert-hook 'dispass-labels--refresh)
(tabulated-list-init-header))