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

Fix: (org-ql-agenda) Restore super-groups functionality

Browse source 
Fixes #17.  Thanks to Dustin Lacewell (@dustinlacewell).
This commit is contained in:
Adam Porter 2018-12-14 23:55:51 -06:00
parent 50fab59fec
commit efb6938748
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
org-ql-agenda.el
View file

@ -65,11 +65,12 @@ When nil, buffers are widened before being searched.
BUFFER, when non-nil, is a buffer or buffer name to display the
agenda in, rather than the default."
(declare (indent defun)
(advertised-calling-convention (files-or-query &optional query &key sort narrow buffer) nil))
(advertised-calling-convention (files-or-query &optional query &key sort narrow buffer super-groups) nil))
(cl-macrolet ((set-keyword-args (args)
`(setq sort (plist-get ,args :sort)
narrow (plist-get ,args :narrow)
buffer (plist-get ,args :buffer))))
buffer (plist-get ,args :buffer)
super-groups (plist-get ,args :super-groups))))
(let ((files '(org-agenda-files))
query sort narrow buffer)
;; Parse args manually (so we can leave FILES nil for a default argument).
@ -98,18 +99,20 @@ agenda in, rather than the default."
',query
:sort ',sort
:buffer ,buffer
:narrow ,narrow))))
:narrow ,narrow
:super-groups ,super-groups))))
;;;; Functions
;; TODO: Move the action-fn down into --filter-buffer, so users can avoid calling the
;; headline-parser when they don't need it.
(cl-defun org-ql-agenda--agenda (buffers-files query &key sort buffer narrow)
(cl-defun org-ql-agenda--agenda (buffers-files query &key sort buffer narrow super-groups)
"FIXME: Docstring"
(declare (indent defun))
;; I think it's reasonable to use `eval' here.
(let* ((entries (--> (eval `(org-ql ',buffers-files
(let* ((org-super-agenda-groups super-groups)
(entries (--> (eval `(org-ql ',buffers-files
,query
:sort ,sort
:markers t