From d73175714cf3e230be13b631a98ded7c14f23d4f Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sun, 19 Aug 2018 13:21:00 -0500 Subject: [PATCH] Fix: (org-ql) Work when not sorting Don't know when I broke this. Oops. --- org-ql.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/org-ql.el b/org-ql.el index c18dc76..ba39ca5 100644 --- a/org-ql.el +++ b/org-ql.el @@ -55,14 +55,17 @@ buffer." :action-fn ,action-fn :narrow ,narrow :sort ,(pcase sort - ;; Custom sort function - (`(function ,_) sort) - ((and sort (guard (cl-loop for elem in sort - always (memq elem '(date deadline scheduled todo priority))))) + (`(function ,_) + ;; Custom sort function + sort) + ((guard (and sort + (cl-loop for elem in sort + always (memq elem '(date deadline scheduled todo priority))))) ;; Default sorting functions (list 'quote sort)) - ;; Other expression to evaluate - (_ sort)))) + (_ + ;; Other expression to evaluate + sort)))) (defmacro org-ql--fmap (fns &rest body) (declare (indent defun) (debug (listp body)))