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

Rename date-properties -> record-properties

This commit is contained in:
contrapunctus 2022-02-15 20:31:09 +05:30
parent 92564720e6
commit 2aef569656
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
elisp/chronometrist.el
View File

@ -413,20 +413,20 @@ active backend."
:group 'chronometrist)
;; task-list:1 ends here
;; [[file:chronometrist.org::*date-properties][date-properties:1]]
(defun chronometrist-date-properties (date-records)
;; [[file:chronometrist.org::*record-properties][record-properties:1]]
(defun chronometrist-record-properties (plist-group)
"Return properties for DATE-RECORDS, if any.
DATE-RECORDS must be a tagged list acceptable as a hash value
in a hash table returned by `chronometrist-to-hash-table'."
PLIST-GROUP must be a tagged list as returned by
`chronometrist-latest-record'."
(cl-loop with valuep
for elt in date-records
for elt in plist-group
when (keywordp elt)
collect (progn (setq valuep t) elt) into plist
else when valuep
collect (progn (setq valuep nil) elt) into plist
else when (and (not (keywordp elt)) (not valuep))
do (cl-return plist)))
;; date-properties:1 ends here
;; record-properties:1 ends here
;; [[file:chronometrist.org::*record-intervals][record-intervals:1]]
(defun chronometrist-record-intervals (plist-group)

10
elisp/chronometrist.org
View File

@ -946,16 +946,16 @@ active backend."
:group 'chronometrist)
#+END_SRC
*** date-properties :function:
*** record-properties :function:
[[file:tests/chronometrist-tests.org::#date-properties][tests]]
#+BEGIN_SRC elisp
(defun chronometrist-date-properties (date-records)
(defun chronometrist-record-properties (plist-group)
"Return properties for DATE-RECORDS, if any.
DATE-RECORDS must be a tagged list acceptable as a hash value
in a hash table returned by `chronometrist-to-hash-table'."
PLIST-GROUP must be a tagged list as returned by
`chronometrist-latest-record'."
(cl-loop with valuep
for elt in date-records
for elt in plist-group
when (keywordp elt)
collect (progn (setq valuep t) elt) into plist
else when valuep