fix(details): flatten key-values, remove keywords
This commit is contained in:
parent
1931e88c85
commit
7976b53d91
|
@ -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)))
|
||||
"")))
|
||||
|
|
|
@ -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)))
|
||||
"")))
|
||||
|
|
Reference in New Issue