From 2e0d38daae76af631d5d5ae438ca13b2e2948aea Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Wed, 22 Jan 2020 17:28:11 -0600 Subject: [PATCH] Tidy: (org-ql-select) Sorting pcase --- org-ql.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/org-ql.el b/org-ql.el index 7e7c0fb..effa411 100644 --- a/org-ql.el +++ b/org-ql.el @@ -241,9 +241,8 @@ returns nil or non-nil." ;; Sort items (pcase sort (`nil items) - ((or 'date 'deadline 'scheduled 'todo 'priority 'random - (guard (cl-loop for elem in (-list sort) - always (memq elem '(date deadline scheduled todo priority random))))) + ((guard (cl-loop for elem in (-list sort) + always (memq elem '(date deadline scheduled todo priority random)))) ;; Default sorting functions (org-ql--sort-by items (-list sort))) ;; Sort by user-given comparator.