mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-16 17:19:49 +00:00
Code

Clock: Improve messages

Browse Source
This commit is contained in:
Carsten Dominik 2009-06-02 17:10:23 +02:00
parent a5dc9456dd
commit 90c38a0045
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-clock.el
View File

@ -527,7 +527,7 @@ the clocking selection, associated with the letter `d'."
(org-clock-update-mode-line)
(setq org-clock-mode-line-timer
(run-with-timer 60 60 'org-clock-update-mode-line))
(message "Clock started at %s. %s" ts msg-extra)))))))
(message "Clock starts at %s - %s" ts msg-extra)))))))
(defvar msg-extra)
(defun org-clock-get-sum-start ()
@ -542,10 +542,10 @@ decides which time to use."
(lr (org-entry-get nil "LAST_REPEAT")))
(cond
((equal cmt "current")
(setq msg-extra "Showing instance task time.")
(setq msg-extra "showing time in current clock instance")
(current-time))
((equal cmt "today")
(setq msg-extra "Showing today's task time.")
(setq msg-extra "showing today's task time.")
(let* ((dt (decode-time (current-time))))
(setq dt (append (list 0 0 0) (nthcdr 3 dt)))
(if org-extend-today-until
@ -554,12 +554,12 @@ decides which time to use."
((or (equal cmt "all")
(and (or (not cmt) (equal cmt "auto"))
(not lr)))
(setq msg-extra "Showing entire task time.")
(setq msg-extra "showing entire task time.")
nil)
((or (equal cmt "repeat")
(and (or (not cmt) (equal cmt "auto"))
lr))
(setq msg-extra "Showing task time since last repeat.")
(setq msg-extra "showing task time since last repeat.")
(if (not lr)
nil
(org-time-string-to-time lr)))