Yank the latest displayed message
When rolling on tables or dice, I may want to paste that into the document I'm writing.
This commit is contained in:
parent
5455785b08
commit
bb62828fb1
1 changed files with 7 additions and 0 deletions
7
rpgdm.el
7
rpgdm.el
|
|
@ -59,6 +59,8 @@
|
|||
|
||||
("N" rpgdm-npc)
|
||||
|
||||
("y" rpgdm-paste-last-message)
|
||||
|
||||
("C-m" rpgdm-last-results)
|
||||
("C-n" rpgdm-last-results-next) ("C-p" rpgdm-last-results-previous)
|
||||
("s-l" rpgdm-last-results)
|
||||
|
|
@ -104,6 +106,11 @@ Meant to be used with `rpgdm-last-results-previous'."
|
|||
(decf 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 ()
|
||||
(progn
|
||||
(setq rpgdm-last-results (make-ring 10))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue