Lines Matching +defs:before +defs:string
50 ;; (define-key ctl-x-map "tw" 'timeclock-when-to-leave-string)
63 ;; You may also want Emacs to ask you before exiting, if you are
65 ;; `timeclock-ask-before-exiting' to t using M-x customize (this is
135 (defcustom timeclock-ask-before-exiting t
136 "*If non-nil, ask if the user wants to clock out before exiting Emacs.
142 (setq timeclock-ask-before-exiting value))
147 "The timer used to update `timeclock-mode-string'.")
191 Note that this hook is run before recording any events. Thus the
240 "A variable containing the time discrepancy before the last event.
264 (defvar timeclock-mode-string nil
265 "The timeclock string (optionally) displayed in the modeline.
285 (setq timeclock-mode-string "")
286 (or global-mode-string (setq global-mode-string '("")))
292 (or (memq 'timeclock-mode-string global-mode-string)
293 (setq global-mode-string
294 (append global-mode-string '(timeclock-mode-string))))
312 (setq global-mode-string
313 (delq 'timeclock-mode-string global-mode-string))
337 "Convert the TIME value to a textual date string."
338 (format-time-string "%Y/%m/%d" time))
378 (timeclock-log "h" (number-to-string
425 (defun timeclock-status-string (&optional show-seconds today-only)
440 (format-time-string "%-I:%M:%S %p"
442 (format-time-string "%-I:%M %p"
446 (timeclock-seconds-to-string remainder show-seconds t)
449 (timeclock-when-to-leave-string show-seconds today-only)))
486 (defun timeclock-seconds-to-string (seconds &optional show-seconds
488 "Convert SECONDS into a compact time string.
489 If SHOW-SECONDS is non-nil, make the resolution of the return string
510 (defun timeclock-workday-remaining-string (&optional show-seconds
512 "Return a string representing the amount of time left today.
518 (let ((string (timeclock-seconds-to-string
522 (message "%s" string)
523 string)))
536 (defun timeclock-workday-elapsed-string (&optional show-seconds)
537 "Return a string representing the amount of time worked today.
541 (let ((string (timeclock-seconds-to-string (timeclock-workday-elapsed)
544 (message "%s" string)
545 string)))
574 (defun timeclock-when-to-leave-string (&optional show-seconds
576 "Return a string representing the end of today's workday.
577 This string is relative to the value of `timeclock-workday'. If
584 (string
586 (format-time-string "%-I:%M:%S %p" then)
587 (format-time-string "%-I:%M %p" then))))
589 (message "%s" string)
590 string)))
624 "Update the `timeclock-mode-string' displayed in the modeline.
641 (setq timeclock-mode-string
645 (timeclock-seconds-to-string remainder nil t)
649 (put 'timeclock-mode-string 'risky-local-variable t)
653 If PROJECT is a string, it represents the project which the event is
665 (format-time-string "%Y/%m/%d %H:%M:%S" now)
693 (let ((code (match-string 1))
694 (year (string-to-number (match-string 2)))
695 (mon (string-to-number (match-string 3)))
696 (mday (string-to-number (match-string 4)))
697 (hour (string-to-number (match-string 5)))
698 (min (string-to-number (match-string 6)))
699 (sec (string-to-number (match-string 7)))
700 (project (match-string 8)))
888 \"owed\" before any work was done. For a new file (one without a 'b'
893 For ENTRIES-BY-DAY, the CAR is a textual date string, of the form
995 (setcar log-data (string-to-number (nth 2 event))))
998 last-date-seconds (* (string-to-number (nth 2 event))
1084 (setq accum (string-to-number (nth 2 event))))
1089 (* (string-to-number (nth 2 event)) 3600.0)))
1186 (insert " since " (format-time-string "%Y/%m/%d %-I:%M %p" begin))
1216 (timeclock-seconds-to-string today-len)
1218 (timeclock-seconds-to-string two-week-len))
1221 (timeclock-seconds-to-string two-week-len))))
1224 (timeclock-seconds-to-string (timeclock-workday-elapsed))
1226 (timeclock-seconds-to-string (timeclock-workday-remaining))
1228 (timeclock-when-to-leave-string) "\n")))
1231 (number-to-string
1318 (timeclock-seconds-to-string (aref time-in i))
1328 (timeclock-seconds-to-string (aref time-out i))
1338 (timeclock-seconds-to-string (aref breaks i))
1348 (timeclock-seconds-to-string (aref workday i))