exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Try to refine Org QL query for currently active DATE entries

Browse Source 
`ts-now` should be better than `today`, as it includes the current time.
This commit is contained in:
Daniel Borchmann 2024-07-10 15:23:56 +02:00
parent 2114c22d3f
commit 21200d8bc4
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
site-lisp/db-org.el
View File

@ -1289,11 +1289,12 @@ inserting the checklist."
:select '(cons :select '(cons
(org-entry-get (point) "ITEM") (org-entry-get (point) "ITEM")
(org-id-get-create)) (org-id-get-create))
:where '(and ; XXX: this is not quite right yet :where `(and ; XXX: this is not quite right yet
(tags "DATE") (tags "DATE")
(not (done)) (not (done))
(ts-active :from today) ;; XXX: calling `ts-now' twice might be stupid
(ts-active :to today))))) (ts-active :from ,(ts-now))
(ts-active :to ,(ts-now))))))
(insert "Concurrent DATEs:\n") (insert "Concurrent DATEs:\n")
(dolist (date concurrent-dates) (dolist (date concurrent-dates)
(insert "- " (org-link-make-string (cdr date) (car date)) "\n")) (insert "- " (org-link-make-string (cdr date) (car date)) "\n"))