Fix: (org-ql-select) Sorting with single atom sorter

Closes #90.  Thanks to Jeff Filipovits (@legalnonsense).
This commit is contained in:
Jeff Filipovits 2020-01-07 08:02:50 -05:00 committed by Adam Porter
parent 9bd1235e00
commit 154d3bc949
3 changed files with 16 additions and 13 deletions

View file

@ -242,7 +242,7 @@ returns nil or non-nil."
(pcase sort
(`nil items)
((or 'date 'deadline 'scheduled 'todo 'priority 'random
(guard (cl-loop for elem in sort
(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)))