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

Define accessor for intervals

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

11
elisp/chronometrist.el
View File

@ -428,6 +428,17 @@ in a hash table returned by `chronometrist-to-hash-table'."
do (cl-return plist)))
;; date-properties:1 ends here
;; [[file:chronometrist.org::*record-intervals][record-intervals:1]]
(defun chronometrist-record-intervals (plist-group)
"Return plists from PLIST-GROUP.
PLIST-GROUP must be a tagged list as returned by
`chronometrist-latest-record'."
(cl-loop for elt being the elements of plist-group
using (index i)
when (chronometrist-plist-p elt)
return (seq-drop plist-group i)))
;; record-intervals:1 ends here
;; [[file:chronometrist.org::*iso-to-ts][iso-to-ts:1]]
(defun chronometrist-iso-to-ts (timestamp)
"Convert TIMESTAMP to a TS struct. (see `ts.el')

12
elisp/chronometrist.org
View File

@ -964,6 +964,18 @@ in a hash table returned by `chronometrist-to-hash-table'."
do (cl-return plist)))
#+END_SRC
*** record-intervals :function:
#+BEGIN_SRC elisp
(defun chronometrist-record-intervals (plist-group)
"Return plists from PLIST-GROUP.
PLIST-GROUP must be a tagged list as returned by
`chronometrist-latest-record'."
(cl-loop for elt being the elements of plist-group
using (index i)
when (chronometrist-plist-p elt)
return (seq-drop plist-group i)))
#+END_SRC
** Time functions
*** iso-to-ts :function:
#+BEGIN_SRC emacs-lisp