Lines Matching defs:project
34 ;; Use `timeclock-in' when you start on a project, and `timeclock-out'
64 ;; currently working on a project. This can be done either by setting
108 (defcustom timeclock-get-project-function 'timeclock-ask-for-project
109 "*The function used to determine the name of the current project.
110 When clocking in, and no project is specified, this function will be
111 called to determine what is the current project to be worked on.
221 "*A hook run every time a project is marked as completed."
341 (defun timeclock-in (&optional arg project find-project)
350 PROJECT is the project being clocked into. If PROJECT is nil, and
352 interactively -- call the function `timeclock-get-project-function' to
353 discover the name of the project."
381 (timeclock-log "i" (or project
382 (and timeclock-get-project-function
383 (or find-project (interactive-p))
384 (funcall timeclock-get-project-function))))
390 If a prefix ARG is given, the user has completed the project that was
455 (defun timeclock-change (&optional arg project)
456 "Change to working on a different project.
457 This clocks out of the current project, then clocks in on a new one.
458 With a prefix ARG, consider the previous project as finished at the
459 time of changeover. PROJECT is the name of the last project you were
463 (timeclock-in nil project (interactive-p)))
594 (defvar timeclock-project-list nil)
595 (defvar timeclock-last-project nil)
606 (defun timeclock-ask-for-project ()
607 "Ask the user for the project they are clocking into."
609 (format "Clock into which project (default %s): "
610 (or timeclock-last-project
611 (car timeclock-project-list)))
612 (mapcar 'list timeclock-project-list)
613 (or timeclock-last-project
614 (car timeclock-project-list))))
651 (defun timeclock-log (code &optional project)
653 If PROJECT is a string, it represents the project which the event is
654 being logged for. Normally only \"in\" events specify a project."
666 (or (and project
667 (stringp project)
668 (> (length project) 0)
669 (concat " " project))
680 (setq timeclock-last-event (list code now project)))))
700 (project (match-string 8)))
701 (list code (encode-time sec min hour mday mon year) project))))
726 (defsubst timeclock-entry-project (entry)
757 (let ((project (timeclock-entry-project (car entry-list))))
759 (add-to-list 'projects project)
760 (setq projects (list project))))
845 (defsubst timeclock-project-alist (&optional log-data)
874 project worked on.
879 O Final clock out. Whatever project was being worked on, it is
894 YYYY/MM/DD. For ENTRIES-BY-PROJECT, it is the name of the project
895 worked on, or t for the default project.
913 the user is expected to manipulate to the day(s) or project(s) that he
938 timeclock-entry-project
966 `project' is the project that was worked on, and `projects' is a
975 timeclock-project-alist LOG-DATA
1073 (setq timeclock-project-list nil
1074 timeclock-last-project nil
1093 (add-to-list 'timeclock-project-list (nth 2 event))
1094 (setq timeclock-last-project (nth 2 event)))
1176 (let ((project (nth 2 timeclock-last-event))
1181 (if (or (null project) (= (length project) 0))
1193 (insert project "</b><br>\n")
1194 (insert project "*\n"))
1195 (let ((proj-data (cdr (assoc project (timeclock-project-alist log))))