chris/emacs-rpgdm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Yank the latest displayed message

Browse source 
When rolling on tables or dice, I may want to paste that into the
document I'm writing.
This commit is contained in:
Howard Abrams 2022-02-05 21:31:05 -08:00
parent 5455785b08
commit bb62828fb1
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
rpgdm.el
View file

@ -59,6 +59,8 @@
("N" rpgdm-npc) ("N" rpgdm-npc)
("y" rpgdm-paste-last-message)
("C-m" rpgdm-last-results) ("C-m" rpgdm-last-results)
("C-n" rpgdm-last-results-next) ("C-p" rpgdm-last-results-previous) ("C-n" rpgdm-last-results-next) ("C-p" rpgdm-last-results-previous)
("s-l" rpgdm-last-results) ("s-l" rpgdm-last-results)
@ -104,6 +106,11 @@ Meant to be used with `rpgdm-last-results-previous'."
(decf rpgdm-last-results-ptr)) (decf rpgdm-last-results-ptr))
(message "%d> %s" rpgdm-last-results-ptr (ring-ref rpgdm-last-results rpgdm-last-results-ptr))) (message "%d> %s" rpgdm-last-results-ptr (ring-ref rpgdm-last-results rpgdm-last-results-ptr)))
(defun rpgdm-paste-last-message ()
"Yank, e.g. paste, the last displayed message."
(interactive)
(insert (rpgdm-last-results)))
(ert-deftest rpgdm-last-results-test () (ert-deftest rpgdm-last-results-test ()
(progn (progn
(setq rpgdm-last-results (make-ring 10)) (setq rpgdm-last-results (make-ring 10))