[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/tmr cc5970202f 2/5: tmr-tabulated: Bind "K" to tmr-tabu
From: |
ELPA Syncer |
Subject: |
[elpa] externals/tmr cc5970202f 2/5: tmr-tabulated: Bind "K" to tmr-tabulated-remove-finished |
Date: |
Tue, 17 May 2022 04:57:58 -0400 (EDT) |
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."