jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tidy: (org-ql-select) Sorting pcase

Browse source
This commit is contained in:
Adam Porter 2020-01-22 17:28:11 -06:00
parent 79d9bd59cf
commit 2e0d38daae
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql.el
View file

@ -241,9 +241,8 @@ returns nil or non-nil."
;; Sort items ;; Sort items
(pcase sort (pcase sort
(`nil items) (`nil items)
((or 'date 'deadline 'scheduled 'todo 'priority 'random ((guard (cl-loop for elem in (-list sort)
(guard (cl-loop for elem in (-list sort) always (memq elem '(date deadline scheduled todo priority random))))
always (memq elem '(date deadline scheduled todo priority random)))))
;; Default sorting functions ;; Default sorting functions
(org-ql--sort-by items (-list sort))) (org-ql--sort-by items (-list sort)))
;; Sort by user-given comparator. ;; Sort by user-given comparator.