[elpa] externals/tmr cc5970202f 2/5: tmr-tabulated: Bind "K" to tmr-tabulated-remove-finished

[ELPA Syncer]

branch: externals/tmr
commit cc5970202f47af6003466cb54f1652b76d84d563
Author: Damien Cassou <damien@cassou.me>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    tmr-tabulated: Bind "K" to tmr-tabulated-remove-finished
---
 tmr-tabulated.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tmr-tabulated.el b/tmr-tabulated.el
index e99fb9d526..1fa2b5180c 100644
--- a/tmr-tabulated.el
+++ b/tmr-tabulated.el
@@ -64,6 +64,7 @@
 (defvar tmr-tabulated-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "k" #'tmr-tabulated-cancel)
+    (define-key map "K" #'tmr-tabulated-remove-finished)
     (define-key map "+" #'tmr)
     (define-key map "c" #'tmr-tabulated-clone)
     (define-key map "w" #'tmr-tabulated-rewrite-description)
@@ -92,6 +93,12 @@ Optional NO-HOOKS has the same meaning as in `tmr-cancel'."
   (tmr-tabulated--move-point-to-closest-entry)
   (revert-buffer))
 
+(defun tmr-tabulated-remove-finished ()
+  "Remove all finished timers."
+  (interactive)
+  (tmr-remove-finished)
+  (revert-buffer))
+
 (defun tmr-tabulated-clone (timer)
   "Create a new timer by cloning TIMER.
 Interactively, use the timer at point."