From ed3741de4ba95497e4460694579fb794f2288a33 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sat, 15 Dec 2018 01:03:28 -0600 Subject: [PATCH] Add: (org-ql-agenda--agenda) org-super-agenda-mode error If groups are specified but the mode isn't active, the user will be confused. We might as well raise an error. --- org-ql-agenda.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/org-ql-agenda.el b/org-ql-agenda.el index 163351d..81d27c9 100644 --- a/org-ql-agenda.el +++ b/org-ql-agenda.el @@ -110,6 +110,8 @@ agenda in, rather than the default." (cl-defun org-ql-agenda--agenda (buffers-files query &key sort buffer narrow super-groups) "FIXME: Docstring" (declare (indent defun)) + (when (and super-groups (not org-super-agenda-mode)) + (user-error "`org-super-agenda-mode' must be activated to use grouping")) ;; I think it's reasonable to use `eval' here. (let* ((org-super-agenda-groups super-groups) (entries (--> (eval `(org-ql ',buffers-files