mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Code cleanup.

This commit is contained in:
Bastien Guerry 2009-07-26 20:58:35 +08:00
parent b536686e7d
commit 575192b4a4
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-clock.el
View File

@ -358,19 +358,15 @@ If an effort estimate was defined for current item, use
If not, show simply the clocked time like 01:50."
(let* ((clocked-time (org-clock-get-clocked-time))
(h (floor clocked-time 60))
(m (- clocked-time (* 60 h)))
)
(m (- clocked-time (* 60 h))))
(if (and org-clock-effort)
(let* ((effort-in-minutes (org-hh:mm-string-to-minutes org-clock-effort))
(effort-h (floor effort-in-minutes 60))
(effort-m (- effort-in-minutes (* effort-h 60)))
)
(effort-m (- effort-in-minutes (* effort-h 60))))
(format (concat "-[" org-time-clocksum-format "/" org-time-clocksum-format " (%s)]")
h m effort-h effort-m org-clock-heading)
)
h m effort-h effort-m org-clock-heading))
(format (concat "-[" org-time-clocksum-format " (%s)]")
h m org-clock-heading))
))
h m org-clock-heading))))
(defun org-clock-update-mode-line ()
(setq org-mode-line-string