From 0285631e0458cf716abaf534caff6d3f5cad185a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 5 Jan 2019 17:02:35 +0000 Subject: TODO Signed-off-by: Sean Whitton --- org-d20.el | 1 + 1 file changed, 1 insertion(+) 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 -- cgit v1.2.3