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

Update names (list-format -> schema; entries -> rows)

This commit is contained in:
contrapunctus 2021-05-25 16:28:48 +05:30
parent 53ed966671
commit b115c8644d
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
chronometrist-goal.el
View File

@ -210,33 +210,33 @@ To use, add this to `chronometrist-after-out-functions', and
(chronometrist-goal-run-alert-timers (plist-get last :name)))))
;;;; minor mode
(defun chronometrist-goal-entry-transformer (entry)
"Add goal information to the return value of `chronometrist-entries'.
ENTRY must be a valid element in the list specified by
(defun chronometrist-goal-row-transformer (row)
"Add goal information to the return value of `chronometrist-rows'.
ROW must be a valid element in the list specified by
`tabulated-list-entries'."
(-let* (((task vector) entry)
(-let* (((task vector) row)
(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)
(defun chronometrist-goal-schema-transformer (schema)
"Add a goal column to the return value of `tabulated-list-format'.
FORMAT should be a vector (see `tabulated-list-format')."
(vconcat format `[("Target" 3 t)]))
SCHEMA should be a vector (see `tabulated-list-format')."
(vconcat schema `[("Target" 3 t)]))
(defun chronometrist-goal-setup ()
"Add `chronometrist-goal' functions to `chronometrist' hooks."
(add-to-list 'chronometrist-entry-transformers #'chronometrist-goal-entry-transformer)
(add-to-list 'chronometrist-list-format-transformers #'chronometrist-goal-list-format-transformer)
(add-hook 'chronometrist-after-in-functions #'chronometrist-goal-run-alert-timers)
(add-hook 'chronometrist-after-out-functions #'chronometrist-goal-stop-alert-timers))
(add-to-list 'chronometrist-row-transformers #'chronometrist-goal-row-transformer)
(add-to-list 'chronometrist-schema-transformers #'chronometrist-goal-schema-transformer)
(add-hook 'chronometrist-after-in-functions #'chronometrist-goal-run-alert-timers)
(add-hook 'chronometrist-after-out-functions #'chronometrist-goal-stop-alert-timers))
(defun chronometrist-goal-teardown ()
"Remove `chronometrist-goal' functions from `chronometrist' hooks."
(setq chronometrist-entry-transformers
(remove #'chronometrist-goal-entry-transformer chronometrist-entry-transformers)
chronometrist-list-format-transformers
(remove #'chronometrist-goal-list-format-transformer chronometrist-list-format-transformers))
(setq chronometrist-row-transformers
(remove #'chronometrist-goal-row-transformer chronometrist-row-transformers)
chronometrist-schema-transformers
(remove #'chronometrist-goal-schema-transformer chronometrist-schema-transformers))
(remove-hook 'chronometrist-after-in-functions #'chronometrist-goal-run-alert-timers)
(remove-hook 'chronometrist-after-out-functions #'chronometrist-goal-stop-alert-timers))