|
@@ -386,16 +386,15 @@ VALUE can be `on', `off', or `paused'."
|
|
|
(defun org-timer-show-remaining-time ()
|
|
|
"Display the remaining time before the timer ends."
|
|
|
(interactive)
|
|
|
- (require 'time)
|
|
|
- (if (not org-timer-countdown-timer)
|
|
|
- (message "No timer set")
|
|
|
- (let* ((rtime (decode-time
|
|
|
- (time-subtract (timer--time org-timer-countdown-timer)
|
|
|
- (current-time))))
|
|
|
- (rsecs (nth 0 rtime))
|
|
|
- (rmins (nth 1 rtime)))
|
|
|
- (message "%d minute(s) %d seconds left before next time out"
|
|
|
- rmins rsecs))))
|
|
|
+ (message
|
|
|
+ (if (not org-timer-countdown-timer)
|
|
|
+ "No timer set"
|
|
|
+ (format-seconds
|
|
|
+ "%m minute(s) %s seconds left before next time out"
|
|
|
+ ;; Note: Once our minimal require is Emacs 27, we can drop this
|
|
|
+ ;; org-time-convert-to-integer call.
|
|
|
+ (org-time-convert-to-integer
|
|
|
+ (org-time-subtract (timer--time org-timer-countdown-timer) nil))))))
|
|
|
|
|
|
;;;###autoload
|
|
|
(defun org-timer-set-timer (&optional opt)
|