From 575192b4a4a5114c06bf7ae118ce68100d362c28 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 26 Jul 2009 20:58:35 +0800 Subject: [PATCH] Code cleanup. --- lisp/org-clock.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 9275433cf..bf37d5302 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -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 -- 2.11.4.GIT