[elpa] externals/tmr c1e7580eec 05/10: tmr: print message for cancelled timer

[ELPA Syncer]

branch: externals/tmr
commit c1e7580eec570648975d9b7c3a279252c50ed08d
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    tmr: print message for cancelled timer
---
 tmr.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/tmr.el b/tmr.el
index 7eee5c9460..ef613f3fb6 100644
--- a/tmr.el
+++ b/tmr.el
@@ -146,7 +146,8 @@ Each function must accept a timer as argument."
                  #'tmr-sound-play
                  #'tmr-notification-notify))
 
-(defcustom tmr-timer-cancelled-functions nil
+(defcustom tmr-timer-cancelled-functions
+  (list #'tmr-print-message-for-cancelled-timer)
   "Functions to execute when a timer is created.
 Each function must accept a timer as argument."
   :type 'hook)
@@ -180,7 +181,12 @@ Each function must accept a timer as argument."
   (let ((start (tmr--format-creation-date timer))
         (end (tmr--format-end-date timer))
         (description (tmr--timer-description timer)))
-    (format "Started at %s and will end at %s%s"
+    ;; We prefix it with TMR just so it is easier to find in
+    ;; `view-echo-area-messages'.  The concise wording makes it flexible
+    ;; enough to be used when starting a timer but also when cancelling
+    ;; one: check `tmr-print-message-for-created-timer' and
+    ;; `tmr-print-message-for-cancelled-timer'.
+    (format "TMR start at %s; end at %s%s"
             (propertize start 'face 'success)
             (propertize end 'face 'error)
             (if description
@@ -280,6 +286,10 @@ there are no timers, return nil."
   "Show a `message' informing the user that TIMER has completed."
   (message "%s" (tmr--long-description-for-completed-timer timer)))
 
+(defun tmr-print-message-for-cancelled-timer (timer)
+  "Show a `message' informing the user that TIMER is cancelled."
+  (message "Cancelled: <<%s>>" (tmr--long-description timer)))
+
 (defvar tmr--duration-hist '()
   "Minibuffer history of `tmr' durations.")