From 7976b53d91b8b87658ee8099023f211d40cc6437 Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Sat, 3 Jul 2021 06:19:27 +0530 Subject: [PATCH] fix(details): flatten key-values, remove keywords --- elisp/chronometrist.el | 8 +++++--- elisp/chronometrist.org | 8 +++++--- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/elisp/chronometrist.el b/elisp/chronometrist.el index b6c8d58..fffbe08 100644 --- a/elisp/chronometrist.el +++ b/elisp/chronometrist.el @@ -2029,9 +2029,11 @@ LIST is either tags (a list of symbols) or a plist." (if (and contents custom) (pcase custom ((pred stringp) - (mapconcat - (lambda (elt) (format custom elt)) - contents " ")) + (--> (flatten-list contents) + (seq-remove #'keywordp it) + (mapconcat + (lambda (elt) (format custom elt)) + it ", "))) ((pred functionp) (funcall custom list))) ""))) diff --git a/elisp/chronometrist.org b/elisp/chronometrist.org index c4c7ca8..e504437 100644 --- a/elisp/chronometrist.org +++ b/elisp/chronometrist.org @@ -3234,9 +3234,11 @@ LIST is either tags (a list of symbols) or a plist." (if (and contents custom) (pcase custom ((pred stringp) - (mapconcat - (lambda (elt) (format custom elt)) - contents " ")) + (--> (flatten-list contents) + (seq-remove #'keywordp it) + (mapconcat + (lambda (elt) (format custom elt)) + it ", "))) ((pred functionp) (funcall custom list))) "")))