From 334b68de3d9a5c8502b85250cc996b66cab4771d Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sat, 4 Aug 2018 15:47:55 -0500 Subject: [PATCH] Change: (org-ql) Handle arbitrary expressions for sort arg See https://github.com/alphapapa/org-agenda-ng/pull/1 --- org-ql.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/org-ql.el b/org-ql.el index d232090..d15533f 100644 --- a/org-ql.el +++ b/org-ql.el @@ -55,8 +55,14 @@ buffer." :action-fn ,action-fn :narrow ,narrow :sort ,(pcase sort + ;; Custom sort function (`(function ,_) sort) - (_ (list 'quote sort))))) + ((and sort (guard (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)))) (defmacro org-ql--fmap (fns &rest body) (declare (indent defun) (debug (listp body)))