Function: timeclock-day-base

timeclock-day-base is a byte-compiled function defined in timeclock.el.gz.

Signature

(timeclock-day-base &optional TIME)

Documentation

Given a time within a day, return 0:0:0 within that day.

If optional argument TIME is non-nil, use that instead of the current time.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/timeclock.el.gz
;;; A reporting function that uses timeclock-log-data

(defun timeclock-day-base (&optional time)
  "Given a time within a day, return 0:0:0 within that day.
If optional argument TIME is non-nil, use that instead of the current time."
  (let ((decoded (decode-time time)))
    (setf (decoded-time-second decoded) 0)
    (setf (decoded-time-minute decoded) 0)
    (setf (decoded-time-hour decoded) 0)
    (encode-time decoded)))