Function: timeclock-workday-elapsed

timeclock-workday-elapsed is a byte-compiled function defined in timeclock.el.gz.

Signature

(timeclock-workday-elapsed)

Documentation

Return the number of seconds worked so far today.

If RELATIVE is non-nil, the amount returned will be relative to past time worked. The default is to return only the time that has elapsed so far today.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/timeclock.el.gz
(defsubst timeclock-workday-elapsed ()
  "Return the number of seconds worked so far today.
If RELATIVE is non-nil, the amount returned will be relative to past
time worked.  The default is to return only the time that has elapsed
so far today."
  (let ((discrep (timeclock-find-discrep)))
    (if discrep
	(nth 2 discrep)
      0.0)))