branch: externals/tmr
commit 3a41b7ff9d7ef862ae7ac200b337079fef5b3720
Author: Damien Cassou <dam...@cassou.me>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Delete the log buffer feature
tmr-tabulated-view supersedes this feature.
---
README.org | 4 +---
tmr.el | 31 ++-----------------------------
2 files changed, 3 insertions(+), 32 deletions(-)
diff --git a/README.org b/README.org
index c9f864da24..a4a2f2df9e 100644
--- a/README.org
+++ b/README.org
@@ -94,9 +94,7 @@ description.
When the timer is set, a message is sent to the echo area recording the
current time and the point in the future when the timer elapses. Echo
area messages can be reviewed with the ~view-echo-area-messages~ which is
-bound to =C-h e= by default. Though TMR provides its own buffer for
-reviewing its log: it is named =*tmr-messages*= and can be accessed with
-the command ~tmr-view-echo-area-messages~.
+bound to =C-h e= by default.
#+vindex: tmr-sound-file
#+vindex: tmr-notification-urgency
diff --git a/tmr.el b/tmr.el
index d5ca9c325c..d057a01ce0 100644
--- a/tmr.el
+++ b/tmr.el
@@ -53,9 +53,7 @@
;; When the timer is set, a message is sent to the echo area recording the
;; current time and the point in the future when the timer elapses. Echo
;; area messages can be reviewed with the `view-echo-area-messages' which is
-;; bound to `C-h e' by default. Though TMR provides its own buffer for
-;; reviewing its log: it is named `*tmr-messages*' and can be accessed with
-;; the command `tmr-view-echo-area-messages'.
+;; bound to `C-h e' by default.
;;
;; Once the timer runs its course, it produces a desktop notification and
;; plays an alarm sound. The notification's message is practically the
@@ -231,28 +229,6 @@ It should take two string arguments: the title and the
message."
(call-process-shell-command
(format "ffplay -nodisp -autoexit %s >/dev/null 2>&1" sound) nil 0))))
-(defun tmr--log-in-buffer (log)
- "Insert LOG message in tmr buffer."
- (when-let ((buf (get-buffer-create "*tmr-messages*")))
- (with-current-buffer buf
- (messages-buffer-mode)
- (goto-char (point-max))
- (let ((inhibit-read-only t))
- (insert (concat log "\n"))))))
-
-(defun tmr-view-echo-area-messages ()
- "View the '*tmr-messages*' buffer if present."
- (interactive)
- (if-let ((buf (get-buffer "*tmr-messages*")))
- (with-current-buffer buf
- (goto-char (point-max))
- (let ((win (display-buffer (current-buffer))))
- ;; If the buffer is already displayed, we need to forcibly set
- ;; the window point to scroll to the end of the buffer.
- (set-window-point win (point))
- win))
- (user-error "No *tmr-messages* buffer; have you used `tmr'?")))
-
(defun tmr-notifications-notify (title message)
"Dispatch notification titled TITLE with MESSAGE via D-Bus.
@@ -288,7 +264,6 @@ Read: (info \"(elisp) Desktop Notifications\") for details."
(propertize "Start:" 'face 'success) start
(propertize "End:" 'face 'error) end
desc-propertized)
- (tmr--log-in-buffer (format "Completed at %s what started at %s" end
start))
(unless (plist-get (notifications-get-capabilities) :sound)
(tmr--play-sound))))
@@ -309,7 +284,6 @@ completion."
(if (not timer)
(user-error "No `tmr' to cancel")
(cancel-timer (tmr--timer-timer-object timer))
- (tmr--log-in-buffer (format "CANCELLED <<%s>>" (tmr--long-description
timer)))
(setq tmr--timers (cl-delete timer tmr--timers))))
(defun tmr--read-timer ()
@@ -406,8 +380,7 @@ command `tmr-with-description' instead of this one."
#'tmr--notify timer)))
(setf (tmr--timer-timer-object timer) timer-object)
(tmr--echo-area time description)
- (push timer tmr--timers)
- (tmr--log-in-buffer (tmr--long-description timer))))
+ (push timer tmr--timers)))
;;;###autoload
(defun tmr-with-description (time description)
