aboutsummaryrefslogtreecommitdiff
path: root/org-d20.el
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2018-12-31 18:47:31 +0000
committerSean Whitton <spwhitton@spwhitton.name>2018-12-31 18:47:31 +0000
commita88a3bb5e43940c2965edd8de27ecf7a2065d86b (patch)
treef39dfefdd23a6e3168c7b7e8a77777e639da0587 /org-d20.el
parente065190580932fedd2a0d7963f843cbd5dedc346 (diff)
downloadorg-d20-a88a3bb5e43940c2965edd8de27ecf7a2065d86b.tar.gz
add org-d20-roll-at-point
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'org-d20.el')
-rw-r--r--org-d20.el7
1 files changed, 7 insertions, 0 deletions
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 "<f9>") 'org-d20-initiative-dwim)
(define-key map (kbd "S-<f9>") 'org-d20-initiative-add)
(define-key map (kbd "<f10>") 'org-d20-damage)
+ (define-key map (kbd "S-<f10>") 'org-d20-roll-at-point)
(define-key map (kbd "<f11>") 'org-d20-roll)
(define-key map (kbd "S-<f11>") 'org-d20-roll-last)
(define-key map (kbd "<f12>") '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