Browse Source

Code cleanup.

Bastien Guerry 15 years ago
parent
commit
575192b4a4
1 changed files with 4 additions and 8 deletions
  1. 4 8
      lisp/org-clock.el

+ 4 - 8
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."
 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