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

[Literate migration] Add missing function

This commit is contained in:
contrapunctus 2021-02-11 14:52:50 +05:30
parent d87997a0cd
commit 2b02967dc9
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
elisp/chronometrist.el
View File

@ -518,6 +518,12 @@ If REPLACE is non-nil, replace the last event with PLIST."
(append it (list plist))
(puthash date it chronometrist-events))))
(defun chronometrist-events-last ()
"Return the last plist from `chronometrist-events'."
(--> (gethash (chronometrist-events-last-date) chronometrist-events)
(last it)
(car it)))
(defun chronometrist-events-subset (start end)
"Return a subset of `chronometrist-events'.
The subset will contain values between dates START and END (both

8
elisp/chronometrist.org
View File

@ -621,6 +621,14 @@ If REPLACE is non-nil, replace the last event with PLIST."
(append it (list plist))
(puthash date it chronometrist-events))))
#+END_SRC
**** events-last :function:query:
#+BEGIN_SRC emacs-lisp
(defun chronometrist-events-last ()
"Return the last plist from `chronometrist-events'."
(--> (gethash (chronometrist-events-last-date) chronometrist-events)
(last it)
(car it)))
#+END_SRC
**** events-subset :function:query:
#+BEGIN_SRC emacs-lisp
(defun chronometrist-events-subset (start end)