diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2018-02-11 12:45:43 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2018-02-11 12:46:08 -0700 |
| commit | 43b8b332c82d3dea9136a6e541a38582b4e0b875 (patch) | |
| tree | 6a75163fdb290b146025edfd019380522c7850dd /.emacs.d/site-lisp | |
| parent | d1641912837b6ed79570005761c76013115b2254 (diff) | |
| download | dotfiles-43b8b332c82d3dea9136a6e541a38582b4e0b875.tar.gz | |
add spwd20-d%
Diffstat (limited to '.emacs.d/site-lisp')
| -rw-r--r-- | .emacs.d/site-lisp/spwd20.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/.emacs.d/site-lisp/spwd20.el b/.emacs.d/site-lisp/spwd20.el index 4494d614..02e3360c 100644 --- a/.emacs.d/site-lisp/spwd20.el +++ b/.emacs.d/site-lisp/spwd20.el @@ -65,6 +65,7 @@ (define-key map (kbd "<f11>") 'spwd20-roll) (define-key map (kbd "S-<f11>") 'spwd20-roll-last) (define-key map (kbd "<f12>") 'spwd20-d20) + (define-key map (kbd "S-<f12>") 'spwd20-d%) map) "Keymap for `spwd20-mode'.") @@ -243,6 +244,11 @@ the best N of them, e.g., 4d6k3." fst* adv disadv)) (play-sound-file spwd20-dice-sound)) +(defun spwd20-d% () + "Roll a percentile dice." + (interactive) + (spwd20-roll "1d100")) + (defun spwd20-initiative-dwim () "Start a new combat or advance the turn tracker, based on point." (interactive "*") |