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
`tabulated-list-entries'."
(-let* (((task vector) entry)
(goal (aif (chronometrist-goal-get task) (format "% 4d" it) "")))
(list task (vconcat vector `[,goal]))))
(goal-minutes (chronometrist-goal-get task))
(goal-string (if goal-minutes (format "% 4d" goal-minutes) "")))
(list task (vconcat vector `[,goal-string]))))
(defun chronometrist-goal-list-format-transformer (format)
"Add a goal column to the return value of `tabulated-list-format'.