Convert user presets to strings

This commit is contained in:
contrapunctus 2022-02-25 15:20:21 +05:30
parent 3962c63f93
commit 7cf2c86afd
2 changed files with 4 additions and 2 deletions

View File

@ -433,7 +433,8 @@ used in `chronometrist-before-out-functions'."
Return t, to permit use in `chronometrist-before-out-functions'."
(interactive)
(let* ((backend (chronometrist-active-backend))
(presets (chronometrist-key-value-get-presets task))
(presets (--map (format "%S" it)
(chronometrist-key-value-get-presets task)))
(key-values
(when chronometrist-key-value-use-database-history
(cl-loop for plist in (chronometrist-to-list backend)

View File

@ -749,7 +749,8 @@ Return t, to permit use in `chronometrist-before-out-functions'."
Return t, to permit use in `chronometrist-before-out-functions'."
(interactive)
(let* ((backend (chronometrist-active-backend))
(presets (chronometrist-key-value-get-presets task))
(presets (--map (format "%S" it)
(chronometrist-key-value-get-presets task)))
(key-values
(when chronometrist-key-value-use-database-history
(cl-loop for plist in (chronometrist-to-list backend)