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

Remove anaphoric macro usage

This commit is contained in:
contrapunctus 2021-05-14 12:47:50 +05:30
parent b52ddb3e03
commit 53ed966671
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
chronometrist-goal.el
View File

@ -215,8 +215,9 @@ To use, add this to `chronometrist-after-out-functions', and
ENTRY must be a valid element in the list specified by ENTRY must be a valid element in the list specified by
`tabulated-list-entries'." `tabulated-list-entries'."
(-let* (((task vector) entry) (-let* (((task vector) entry)
(goal (aif (chronometrist-goal-get task) (format "% 4d" it) ""))) (goal-minutes (chronometrist-goal-get task))
(list task (vconcat vector `[,goal])))) (goal-string (if goal-minutes (format "% 4d" goal-minutes) "")))
(list task (vconcat vector `[,goal-string]))))
(defun chronometrist-goal-list-format-transformer (format) (defun chronometrist-goal-list-format-transformer (format)
"Add a goal column to the return value of `tabulated-list-format'. "Add a goal column to the return value of `tabulated-list-format'.