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))) "")))