458 |
(% (truncate (/ (abs seconds) 60)) 60)))) |
(% (truncate (/ (abs seconds) 60)) 60)))) |
459 |
|
|
460 |
(defsubst timeclock-workday-remaining (&optional today-only) |
(defsubst timeclock-workday-remaining (&optional today-only) |
461 |
"Return a the number of seconds until the workday is complete. |
"Return the number of seconds until the workday is complete. |
462 |
The amount returned is relative to the value of `timeclock-workday'. |
The amount returned is relative to the value of `timeclock-workday'. |
463 |
If TODAY-ONLY is non-nil, the value returned will be relative only to |
If TODAY-ONLY is non-nil, the value returned will be relative only to |
464 |
the time worked today, and not to past time. This argument only makes |
the time worked today, and not to past time. This argument only makes |
491 |
string))) |
string))) |
492 |
|
|
493 |
(defsubst timeclock-workday-elapsed () |
(defsubst timeclock-workday-elapsed () |
494 |
"Return a the number of seconds worked so far today. |
"Return the number of seconds worked so far today. |
495 |
If RELATIVE is non-nil, the amount returned will be relative to past |
If RELATIVE is non-nil, the amount returned will be relative to past |
496 |
time worked. The default is to return only the time that has elapsed |
time worked. The default is to return only the time that has elapsed |
497 |
so far today." |
so far today." |