Lines Matching defs:entry
716 (defsubst timeclock-entry-length (entry)
717 (- (timeclock-time-to-seconds (cadr entry))
718 (timeclock-time-to-seconds (car entry))))
720 (defsubst timeclock-entry-begin (entry)
721 (car entry))
723 (defsubst timeclock-entry-end (entry)
724 (cadr entry))
726 (defsubst timeclock-entry-project (entry)
727 (nth 2 entry))
729 (defsubst timeclock-entry-comment (entry)
730 (nth 3 entry))
733 (defsubst timeclock-entry-list-length (entry-list)
735 (while entry-list
736 (setq length (+ length (timeclock-entry-length (car entry-list))))
737 (setq entry-list (cdr entry-list)))
740 (defsubst timeclock-entry-list-begin (entry-list)
741 (timeclock-entry-begin (car entry-list)))
743 (defsubst timeclock-entry-list-end (entry-list)
744 (timeclock-entry-end (car (last entry-list))))
746 (defsubst timeclock-entry-list-span (entry-list)
747 (- (timeclock-time-to-seconds (timeclock-entry-list-end entry-list))
748 (timeclock-time-to-seconds (timeclock-entry-list-begin entry-list))))
750 (defsubst timeclock-entry-list-break (entry-list)
751 (- (timeclock-entry-list-span entry-list)
752 (timeclock-entry-list-length entry-list)))
754 (defsubst timeclock-entry-list-projects (entry-list)
756 (while entry-list
757 (let ((project (timeclock-entry-project (car entry-list))))
761 (setq entry-list (cdr entry-list)))
769 (timeclock-entry-list-length (cdr day)))
776 (timeclock-entry-list-begin (cdr day)))
779 (timeclock-entry-list-end (cdr day)))
782 (timeclock-entry-list-span (cdr day)))
785 (timeclock-entry-list-break (cdr day)))
788 (timeclock-entry-list-projects (cdr day)))
856 A timelog contains data in the form of a single entry per line.
857 Each entry has the form:
869 be the first entry for that day. The COMMENT in this case is
889 entry), this is always zero.
935 timeclock-entry-length
936 timeclock-entry-begin
937 timeclock-entry-end
938 timeclock-entry-project
939 timeclock-entry-comment
941 timeclock-entry-list-length
942 timeclock-entry-list-begin
943 timeclock-entry-list-end
944 timeclock-entry-list-span
945 timeclock-entry-list-break
946 timeclock-entry-list-projects
971 There are a few more functions available, for locating day and entry
983 (line 0) last beg day entry event)
1004 (setq entry (list (cadr event) nil
1025 (setcar (cdr entry) (cadr event))
1029 (nconc entry (list (nth 2 event))))
1031 (nconc entry (if desc
1034 (nconc day (list entry))
1035 (setq desc (nth 2 entry))
1039 (cons (cons desc (list entry))
1041 (nconc (cdr proj) (list entry)))))))
1202 (timeclock-entry-begin (car proj-data)) today))
1203 (setq today-len (timeclock-entry-list-length proj-data)
1207 (timeclock-entry-begin (car proj-data))
1209 (setq two-week-len (timeclock-entry-list-length proj-data)))