diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2018-12-31 18:47:31 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2018-12-31 18:47:31 +0000 |
commit | a88a3bb5e43940c2965edd8de27ecf7a2065d86b (patch) | |
tree | f39dfefdd23a6e3168c7b7e8a77777e639da0587 /org-d20.el | |
parent | e065190580932fedd2a0d7963f843cbd5dedc346 (diff) | |
download | org-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.el | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -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 |