aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--org-d20.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/org-d20.el b/org-d20.el
index cdb9c8b..2889839 100644
--- a/org-d20.el
+++ b/org-d20.el
@@ -110,6 +110,7 @@ the best N of them, e.g., 4d6k3."
(push new-roll new-rolls))
(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))))
(dolist (new-roll new-rolls)
(setq rolls (org-d20--rolls-concat sign rolls