599 |
(defun timeclock-ask-for-project () |
(defun timeclock-ask-for-project () |
600 |
"Ask the user for the project they are clocking into." |
"Ask the user for the project they are clocking into." |
601 |
(timeclock-completing-read |
(timeclock-completing-read |
602 |
(format "Clock into which project (default \"%s\"): " |
(format "Clock into which project (default %s): " |
603 |
(or timeclock-last-project |
(or timeclock-last-project |
604 |
(car timeclock-project-list))) |
(car timeclock-project-list))) |
605 |
(mapcar 'list timeclock-project-list) |
(mapcar 'list timeclock-project-list) |