From cdd25e8a7fc53663c8398b4cfe887707498aa717 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 20 Aug 2018 07:41:46 -0500 Subject: [PATCH] Add: Support org-super-agenda Since we aren't calling org-agenda-finalize-entries anymore, we call org-super-agenda--group-items directly when appropriate. --- org-agenda-ng.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/org-agenda-ng.el b/org-agenda-ng.el index eee6e05..52f200d 100644 --- a/org-agenda-ng.el +++ b/org-agenda-ng.el @@ -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)