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

Add: Support org-super-agenda

Browse source 
Since we aren't calling org-agenda-finalize-entries anymore, we call
org-super-agenda--group-items directly when appropriate.
This commit is contained in:
Adam Porter 2018-08-20 07:41:46 -05:00
parent f6db1097dc
commit cdd25e8a7f
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
org-agenda-ng.el
View file

@ -104,14 +104,17 @@ When nil, buffers are widened before being searched."
;; pass it to lower functions.
(declare (indent defun))
;; I think it's reasonable to use `eval' here.
(let* ((entries (->> (eval `(org-ql ',files
(let* ((entries (--> (eval `(org-ql ',files
,pred
:sort ,sort
:markers t))
(mapcar #'org-agenda-ng--format-element)
(s-join "\n")))
(mapcar #'org-agenda-ng--format-element it)
(cond ((bound-and-true-p org-super-agenda-mode) (org-super-agenda--group-items it))
(t it))
(s-join "\n" it)))
(target-buffer (get-buffer-create "test-agenda-ng"))
(inhibit-read-only t))
(with-current-buffer target-buffer
(erase-buffer)
(insert entries)