contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

fix(details): correct error

This commit is contained in:
contrapunctus 2021-06-28 07:50:19 +05:30
parent cc77b18797
commit a04ca1fd28
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
elisp/chronometrist.el
View File

@ -2189,7 +2189,7 @@ FILTER must be a filter specifier as described by
`chronometrist-details-filter'." `chronometrist-details-filter'."
(cond ((null filter) plist) (cond ((null filter) plist)
((seq-every-p #'keywordp filter) ((seq-every-p #'keywordp filter)
(when (--map (plist-get plist keyword) filter) (when (--every-p (plist-get plist it) filter)
plist)) plist))
((chronometrist-plist-p filter) ((chronometrist-plist-p filter)
(when (cl-loop for (keyword value) on filter by #'cddr (when (cl-loop for (keyword value) on filter by #'cddr

2
elisp/chronometrist.org
View File

@ -3450,7 +3450,7 @@ FILTER must be a filter specifier as described by
`chronometrist-details-filter'." `chronometrist-details-filter'."
(cond ((null filter) plist) (cond ((null filter) plist)
((seq-every-p #'keywordp filter) ((seq-every-p #'keywordp filter)
(when (--map (plist-get plist keyword) filter) (when (--every-p (plist-get plist it) filter)
plist)) plist))
((chronometrist-plist-p filter) ((chronometrist-plist-p filter)
(when (cl-loop for (keyword value) on filter by #'cddr (when (cl-loop for (keyword value) on filter by #'cddr