diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-11-07 13:57:29 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-11-07 17:10:49 -0700 |
commit | cfbd4ae7343733b508feaf453b91facd1d0fb44d (patch) | |
tree | 71bffdd05423d464e39d3292b5a2470f4f1940b0 /org-d20.el | |
parent | e39134094c6384f0f09346208546137f4fc36e5e (diff) | |
download | org-d20-cfbd4ae7343733b508feaf453b91facd1d0fb44d.tar.gz |
use nth rather than seq-elt, and use a static quoted list
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'org-d20.el')
-rw-r--r-- | org-d20.el | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -411,10 +411,8 @@ the best N of them, e.g., 4d6k3." ;; Return the number or letter with which a monster name should be suffixed (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") - (1- n)) + (nth (1- n) '("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")) (int-to-string n))) ;; Concat b onto a as a signed term, where a is possibly empty |