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. ;; pass it to lower functions.
(declare (indent defun)) (declare (indent defun))
;; I think it's reasonable to use `eval' here. ;; I think it's reasonable to use `eval' here.
(let* ((entries (->> (eval `(org-ql ',files (let* ((entries (--> (eval `(org-ql ',files
,pred ,pred
:sort ,sort :sort ,sort
:markers t)) :markers t))
(mapcar #'org-agenda-ng--format-element) (mapcar #'org-agenda-ng--format-element it)
(s-join "\n"))) (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")) (target-buffer (get-buffer-create "test-agenda-ng"))
(inhibit-read-only t)) (inhibit-read-only t))
(with-current-buffer target-buffer (with-current-buffer target-buffer
(erase-buffer) (erase-buffer)
(insert entries) (insert entries)