contrapunctus
/
chronometrist-goal
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use cl-defun + default values where applicable

This commit is contained in:
contrapunctus 2020-05-16 10:09:26 +05:30
parent fa438dc53d
commit 740b83dd8f
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
chronometrist-goals.el
View File

@ -170,17 +170,14 @@ within the function passed to `run-at-time'."
;; goal (i.e. `(int "task1" "task2" ...)'), and the user has reached
;; the goal for one of those tasks, don't display the goal for the
;; other associated tasks
(defun chronometrist-get-goal (task &optional goals-list)
(defun chronometrist-get-goal (task &optional (goals-list chronometrist-goals-list))
"Return time goal for TASK from GOALS-LIST.
Return value is minutes as an integer, or nil.
If GOALS-LIST is not supplied, `chronometrist-time-goals-list' is used."
(let ((goals-list (if goals-list
goals-list
chronometrist-goals-list)))
(cl-loop for list in goals-list
when (member task list)
return (car list))))
If GOALS-LIST is not supplied, `chronometrist-goals-list' is used."
(cl-loop for list in goals-list
when (member task list)
return (car list)))
(defun chronometrist-minutes-string (minutes)
(format "%s minutes" minutes))