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

Add: (org-ql-views) Agenda-like and Review views

Browse source
This commit is contained in:
Adam Porter 2019-08-30 15:40:23 -05:00
parent e4c063e8db
commit bf14afdf4d
1 changed files with 21 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

22
org-ql-agenda.el
View file

@ -80,7 +80,27 @@ Based on `org-agenda-mode-map'.")
;;;; Customization ;;;; Customization
(defcustom org-ql-views (defcustom org-ql-views
(list (cons "Recent entries" #'org-ql-view-recent-items) (list (cons "Agenda-like" (lambda ()
(interactive)
(org-ql-search (org-agenda-files)
'(and (not (done))
(or (habit)
(deadline auto)
(scheduled :to today)
(ts-active :on today)))
:sort '(date priority todo)
:groups (when (boundp org-super-agenda-groups)
org-super-agenda-groups))))
(cons "Recent entries" #'org-ql-view-recent-items)
(cons "Review (to-do keyword without timestamp in past 2 weeks)"
(lambda ()
(interactive)
(org-ql-search (org-agenda-files)
'(and (todo)
(not (ts :from -14)))
:title "Review"
:sort '(date priority todo)
:groups '((:auto-parent t)))))
(cons "Stuck Projects" (lambda () (cons "Stuck Projects" (lambda ()
(interactive) (interactive)
(org-ql-search (org-agenda-files) (org-ql-search (org-agenda-files)