From e39134094c6384f0f09346208546137f4fc36e5e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 7 Nov 2020 13:55:00 -0700 Subject: improve readability of org-d20--rolls-bracket Signed-off-by: Sean Whitton --- org-d20.el | 26 +++++++++----------------- 1 file changed, 9 insertions(+), 17 deletions(-) diff --git a/org-d20.el b/org-d20.el index 05b7510..dcb6c27 100644 --- a/org-d20.el +++ b/org-d20.el @@ -429,23 +429,15 @@ the best N of them, e.g., 4d6k3." ;; Bracket a number so it looks a bit like a dice roll result (defun org-d20--rolls-bracket (sides roll) - (let ((roll* (int-to-string roll))) - (cond ((= sides 4) - (concat "‹" roll* "›")) - ((= sides 6) - (concat "|" roll* "|")) - ((= sides 8) - (concat "/" roll* "/")) - ((= sides 10) - (concat "{" roll* "}")) - ((= sides 12) - (concat "⟨" roll* "⟩")) - ((= sides 20) - (concat "(" roll* ")")) - ((= sides 100) - (concat "«" roll* "»")) - (t - (concat "[" roll* "]"))))) + (let ((brackets (or (assoc sides '((4 "‹" "›") + (6 "|" "|") + (8 "/" "/") + (10 "{" "}") + (12 "⟨" "⟩") + (20 "(" ")") + (100 "«" "»"))) + '(nil "[" "]")))) + (concat (cadr brackets) (int-to-string roll) (caddr brackets)))) (defun org-d20--org-table-end-of-current-cell-content () "Move point to the end of the content of the current Org table cell." -- cgit v1.2.3