From 7cf2c86afd8f6fb6235320ac9f7ebd76153d8bc6 Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Fri, 25 Feb 2022 15:20:21 +0530 Subject: [PATCH] Convert user presets to strings --- elisp/chronometrist-key-values.el | 3 ++- elisp/chronometrist-key-values.org | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/elisp/chronometrist-key-values.el b/elisp/chronometrist-key-values.el index 66e10a5..339fdd5 100644 --- a/elisp/chronometrist-key-values.el +++ b/elisp/chronometrist-key-values.el @@ -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) diff --git a/elisp/chronometrist-key-values.org b/elisp/chronometrist-key-values.org index 389b02f..3a1d891 100644 --- a/elisp/chronometrist-key-values.org +++ b/elisp/chronometrist-key-values.org @@ -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)