Convert user presets to strings
This commit is contained in:
parent
3962c63f93
commit
7cf2c86afd
|
@ -433,7 +433,8 @@ used in `chronometrist-before-out-functions'."
|
||||||
Return t, to permit use in `chronometrist-before-out-functions'."
|
Return t, to permit use in `chronometrist-before-out-functions'."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let* ((backend (chronometrist-active-backend))
|
(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
|
(key-values
|
||||||
(when chronometrist-key-value-use-database-history
|
(when chronometrist-key-value-use-database-history
|
||||||
(cl-loop for plist in (chronometrist-to-list backend)
|
(cl-loop for plist in (chronometrist-to-list backend)
|
||||||
|
|
|
@ -749,7 +749,8 @@ Return t, to permit use in `chronometrist-before-out-functions'."
|
||||||
Return t, to permit use in `chronometrist-before-out-functions'."
|
Return t, to permit use in `chronometrist-before-out-functions'."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let* ((backend (chronometrist-active-backend))
|
(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
|
(key-values
|
||||||
(when chronometrist-key-value-use-database-history
|
(when chronometrist-key-value-use-database-history
|
||||||
(cl-loop for plist in (chronometrist-to-list backend)
|
(cl-loop for plist in (chronometrist-to-list backend)
|
||||||
|
|
Reference in New Issue