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