From a88a3bb5e43940c2965edd8de27ecf7a2065d86b Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 31 Dec 2018 18:47:31 +0000 Subject: add org-d20-roll-at-point Signed-off-by: Sean Whitton --- NEWS.md | 1 + TODO.md | 1 - org-d20.el | 7 +++++++ 3 files changed, 8 insertions(+), 1 deletion(-) diff --git a/NEWS.md b/NEWS.md index bf18bd6..1f466d4 100644 --- a/NEWS.md +++ b/NEWS.md @@ -3,6 +3,7 @@ - First public release. - Remove hardcoded path to my dice rolling wav. +- Add org-d20-roll-at-point. 0.1 (2017) ---------- diff --git a/TODO.md b/TODO.md index 1048861..04c6991 100644 --- a/TODO.md +++ b/TODO.md @@ -2,7 +2,6 @@ Soon ---- - Dice expression roller shows results for each die -- Function to roll the dice expression at point - Option to use letters, rather than digits, to individuate monsters - Option to continue numbering/lettering between types of monsters - So there is exactly one monster with a given digit/letter diff --git a/org-d20.el b/org-d20.el index ff31123..79e2004 100644 --- a/org-d20.el +++ b/org-d20.el @@ -60,6 +60,7 @@ (define-key map (kbd "") 'org-d20-initiative-dwim) (define-key map (kbd "S-") 'org-d20-initiative-add) (define-key map (kbd "") 'org-d20-damage) + (define-key map (kbd "S-") 'org-d20-roll-at-point) (define-key map (kbd "") 'org-d20-roll) (define-key map (kbd "S-") 'org-d20-roll-last) (define-key map (kbd "") 'org-d20-d20) @@ -301,6 +302,12 @@ the best N of them, e.g., 4d6k3." (concat "+" (int-to-string k)) (int-to-string k)))) +(defun org-d20-roll-at-point () + "Roll the dice expression at point and display result in minibuffer." + (interactive) + (let ((exp (thing-at-point 'sexp t))) + (org-d20-roll exp))) + ;;;###autoload (define-minor-mode org-d20-mode "Bind convenience functions for running a d20-like game in an -- cgit v1.2.3