diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2019-01-06 07:06:44 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-01-06 07:47:32 +0000 |
commit | b863431b7a5877c2d549e3801840c83624bf4d25 (patch) | |
tree | 0948cfb2f9d03b44003ec62a69086c970c1e260d /org-d20.el | |
parent | 3f9eb2de342ea49c5b83f9dd72e8184096139b37 (diff) | |
download | org-d20-b863431b7a5877c2d549e3801840c83624bf4d25.tar.gz |
properly quote function names
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'org-d20.el')
-rw-r--r-- | org-d20.el | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -68,14 +68,14 @@ (defvar org-d20-mode-map (let ((map (make-sparse-keymap))) - (define-key map (kbd "<f9>") 'org-d20-initiative-dwim) - (define-key map (kbd "S-<f9>") 'org-d20-initiative-add) - (define-key map (kbd "<f10>") 'org-d20-damage) - (define-key map (kbd "S-<f10>") 'org-d20-roll-at-point) - (define-key map (kbd "<f11>") 'org-d20-roll) - (define-key map (kbd "S-<f11>") 'org-d20-roll-last) - (define-key map (kbd "<f12>") 'org-d20-d20) - (define-key map (kbd "S-<f12>") 'org-d20-d%) + (define-key map (kbd "<f9>") #'org-d20-initiative-dwim) + (define-key map (kbd "S-<f9>") #'org-d20-initiative-add) + (define-key map (kbd "<f10>") #'org-d20-damage) + (define-key map (kbd "S-<f10>") #'org-d20-roll-at-point) + (define-key map (kbd "<f11>") #'org-d20-roll) + (define-key map (kbd "S-<f11>") #'org-d20-roll-last) + (define-key map (kbd "<f12>") #'org-d20-d20) + (define-key map (kbd "S-<f12>") #'org-d20-d%) map) "Keymap for `org-d20-mode'.") @@ -97,7 +97,7 @@ the best N of them, e.g., 4d6k3." (ours (let ((chopped (s-chop-prefix "-" exp))) (if (string= (substring chopped 0 1) "d") (concat "1" chopped) chopped))) - (split (seq-map 'string-to-int (s-split "[dk]" ours))) + (split (seq-map #'string-to-int (s-split "[dk]" ours))) (times (seq-elt split 0)) (sides (ignore-errors (seq-elt split 1))) (keep (ignore-errors (seq-elt split 2))) @@ -112,7 +112,7 @@ the best N of them, e.g., 4d6k3." (setq times (- times 1))) (when keep ;; TODO this should drop the items without reordering the list - (setq new-rolls (seq-drop (sort new-rolls '<) (- times keep)))) + (setq new-rolls (seq-drop (sort new-rolls #'<) (- times keep)))) (dolist (new-roll new-rolls) (setq rolls (org-d20--rolls-concat sign rolls (org-d20--rolls-bracket sides new-roll))) @@ -293,7 +293,7 @@ the best N of them, e.g., 4d6k3." (interactive) (if (boundp 'org-d20-roll--last) (org-d20-roll org-d20-roll--last) - (call-interactively 'org-d20-roll))) + (call-interactively #'org-d20-roll))) (defun org-d20-d20 () "Roll two d20, showing result with advantage and disadvantage, and with neither." |