diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2019-01-05 10:30:56 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-01-05 10:39:13 +0000 |
commit | 573de371815d1bc7012ecf13dc6408304de49e9d (patch) | |
tree | c5a16fbb91dbcb7a5c12b2c21169bf460dfcd0c2 /org-d20.el | |
parent | 55c15efda5119fbd5a2d480fd8fd551194896289 (diff) | |
download | org-d20-573de371815d1bc7012ecf13dc6408304de49e9d.tar.gz |
New defcustom, `org-d20-letter-monsters`
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'org-d20.el')
-rw-r--r-- | org-d20.el | 18 |
1 files changed, 16 insertions, 2 deletions
@@ -55,6 +55,10 @@ (defcustom org-d20-dice-sound nil "Path to a sound file that `play-sound-file' can play.") +(defcustom org-d20-letter-monsters nil + "Individuate up to 26 monsters/NPCs with letters, rather than + with digits.") + (defvar org-d20-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "<f9>") 'org-d20-initiative-dwim) @@ -122,7 +126,9 @@ the best N of them, e.g., 4d6k3." (while (>= monster 1) (let ((hp (int-to-string (org-d20--roll hd-input)))) (push (list - "" (concat name-input " " (int-to-string monster)) + "" (concat name-input + " " + (org-d20--monster-number monster)) (org-d20--num-to-term init-input) init hp "0") rows)) (setq monster (1- monster))))) @@ -281,7 +287,7 @@ the best N of them, e.g., 4d6k3." (org-table-next-field) (insert name-input) (insert " ") - (insert (int-to-string monster)) + (insert (org-d20--monster-number monster)) (org-table-next-field) (insert (org-d20--num-to-term init-input)) (org-table-next-field) @@ -302,6 +308,14 @@ the best N of them, e.g., 4d6k3." (concat "+" (int-to-string k)) (int-to-string k)))) +(defun org-d20--monster-number (n) + (if (and org-d20-letter-monsters (>= 26 n)) + (seq-elt + (list "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" + "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z") + n) + (int-to-string n))) + (defun org-d20-roll-at-point () "Roll the dice expression at point and display result in minibuffer." (interactive) |