jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change: (org-ql-view-recent-items) Disallow some selectors

Browse source
This commit is contained in:
Adam Porter 2019-08-18 23:37:04 -05:00
parent f8f18716ae
commit c2b8776eca
1 changed files with 19 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

18
org-ql-agenda.el
View file

@ -267,20 +267,28 @@ TITLE: An optional string displayed in the header."
(cl-defun org-ql-view-recent-items (days &optional (type 'ts) (files (org-agenda-files)))
"Show items in FILES from last DAYS days with timestamps of TYPE.
TYPE may be `ts', `ts-active', `ts-inactive', `clocked',
`closed', `deadline', `planning', or `scheduled'."
TYPE may be `ts', `ts-active', `ts-inactive', `clocked', or
`closed'."
(interactive (list (read-number "Days: ")
(->> '(ts ts-active ts-inactive clocked closed deadline planning scheduled)
(->> '(ts ts-active ts-inactive clocked closed)
(completing-read "Timestamp type: ")
intern)))
;; It doesn't make much sense to use other date-based selectors to
;; look into the past, so to prevent confusion, we won't allow them.
(-let* ((query (pcase-exhaustive type
((or 'ts 'ts-active 'ts-inactive)
;; These predicates look forward by default, so we must invert the number.
`(,type :from ,(* -1 days) :to 0))
((or 'clocked 'closed)
`(,type :from ,days :to 0)))))
(org-ql-search files
`(,type ,days)
query
:title "Recent items"
:sort '(date priority todo)
:groups '((:todo "DONE")
(:name "Log" :category "log" :tag "log")
(:auto-parent t)
(:auto-todo t))))
(:auto-todo t)))))
;;;; Functions