Browse Source

org-timer: Further simplification

* lisp/org-timer.el (org-timer-seconds): Remove function.
(org-timer-value-string): Fix docstring.  Remove call to
`org-timer-seconds'.
Nicolas Goaziou 6 years ago
parent
commit
8e9b8dc2eb
1 changed files with 4 additions and 7 deletions
  1. 4 7
      lisp/org-timer.el

+ 4 - 7
lisp/org-timer.el

@@ -226,15 +226,12 @@ it in the buffer."
       (insert (org-timer-value-string)))))
 
 (defun org-timer-value-string ()
-  "Set the timer string."
+  "Return current timer string."
   (format org-timer-format
 	  (org-timer-secs-to-hms
-	   (abs (floor (org-timer-seconds))))))
-
-(defun org-timer-seconds ()
-  (funcall (if org-timer-countdown-timer #'+ #'-)
-	   (- (float-time org-timer-start-time)
-	      (float-time org-timer-pause-time))))
+	   (let ((time (- (float-time org-timer-pause-time)
+			  (float-time org-timer-start-time))))
+	     (abs (floor (if org-timer-countdown-timer (- time) time)))))))
 
 ;;;###autoload
 (defun org-timer-change-times-in-region (beg end delta)