441 |
"remaining" "over") |
"remaining" "over") |
442 |
(timeclock-when-to-leave-string show-seconds today-only))) |
(timeclock-when-to-leave-string show-seconds today-only))) |
443 |
(if (interactive-p) |
(if (interactive-p) |
444 |
(message status) |
(message "%s" status) |
445 |
status))) |
status))) |
446 |
|
|
447 |
;;;###autoload |
;;;###autoload |
512 |
(timeclock-workday-remaining today-only) |
(timeclock-workday-remaining today-only) |
513 |
show-seconds t))) |
show-seconds t))) |
514 |
(if (interactive-p) |
(if (interactive-p) |
515 |
(message string) |
(message "%s" string) |
516 |
string))) |
string))) |
517 |
|
|
518 |
(defsubst timeclock-workday-elapsed () |
(defsubst timeclock-workday-elapsed () |
534 |
(let ((string (timeclock-seconds-to-string (timeclock-workday-elapsed) |
(let ((string (timeclock-seconds-to-string (timeclock-workday-elapsed) |
535 |
show-seconds))) |
show-seconds))) |
536 |
(if (interactive-p) |
(if (interactive-p) |
537 |
(message string) |
(message "%s" string) |
538 |
string))) |
string))) |
539 |
|
|
540 |
(defsubst timeclock-time-to-seconds (time) |
(defsubst timeclock-time-to-seconds (time) |
579 |
(format-time-string "%-I:%M:%S %p" then) |
(format-time-string "%-I:%M:%S %p" then) |
580 |
(format-time-string "%-I:%M %p" then)))) |
(format-time-string "%-I:%M %p" then)))) |
581 |
(if (interactive-p) |
(if (interactive-p) |
582 |
(message string) |
(message "%s" string) |
583 |
string))) |
string))) |
584 |
|
|
585 |
;;; Internal Functions: |
;;; Internal Functions: |