contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[chronometrist] fix contrapunctus-display-key-values-helper

This commit is contained in:
contrapunctus 2021-07-31 22:16:40 +05:30
parent c50a1fcccc
commit 1e6660d73a
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
init.org
View File

@ -694,14 +694,17 @@ Return nil (and run `magit-status') if the user answers no."
(seq-filter #'identity args))
separator))
(defun contrapunctus-display-key-values-helper (objects)
(cl-loop for object in objects
collect (cl-typecase object
(string object)
(list (contrapunctus-display-key-values-helper object))
(cons (format "%s %s" (car object) (cdr object)))
(t "")) into strings
finally return (mapconcat #'identity (seq-filter #'identity strings) ", ")))
(defun contrapunctus-display-key-values-helper (list)
(cl-loop for elt in list
collect
(cond ((stringp elt) elt)
((chronometrist-plist-pp-pair-p elt)
(format "%s %s" (car elt) (cdr elt)))
((listp elt)
(contrapunctus-display-key-values-function elt))
(t "")) into strings
finally return
(mapconcat #'identity (seq-filter #'identity strings) ", ")))
(defun contrapunctus-display-key-values-function (plist)
"Function used to print key-values in `chronometrist-details' buffers."