From 154d3bc9495ec4d8183616711d03f4b9f82c458a Mon Sep 17 00:00:00 2001
From: Jeff Filipovits <jrfilipovits@gmail.com>
Date: Tue, 7 Jan 2020 08:02:50 -0500
Subject: [PATCH] Fix: (org-ql-select) Sorting with single atom sorter

Closes #90.  Thanks to Jeff Filipovits (@legalnonsense).
---
 README.org  |  1 +
 org-ql.el   |  2 +-
 org-ql.info | 26 ++++++++++++++------------
 3 files changed, 16 insertions(+), 13 deletions(-)

diff --git a/README.org b/README.org
index a201ab7..3cf51fa 100644
--- a/README.org
+++ b/README.org
@@ -411,6 +411,7 @@ Expands into a call to ~org-ql-select~ with the same arguments.  For convenience
 +  Search/view buffers now always end with a newline, which prevents side-scrolling of the window when calling =end-of-buffer=.
 +  Face for done to-do keywords in =org-ql-view= buffers.  (Thanks to [[https://github.com/dsdshcym][Yiming Chen]].)
 +  Make view buffers read-only.  (Fixes [[https://github.com/alphapapa/org-ql/issues/72][#72]].  Thanks to [[https://github.com/xeijin][xeijin]].)
++  Sorting with single sorter specified as an atom.  (Thanks to [[https://github.com/legalnonsense][Jeff Filipovits]].)
 
 *Internal*
 +  Added generic node data cache to speed up recursive, tree-based queries.
diff --git a/org-ql.el b/org-ql.el
index 27ede79..7e7c0fb 100644
--- a/org-ql.el
+++ b/org-ql.el
@@ -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)))
diff --git a/org-ql.info b/org-ql.info
index d9923f0..5618077 100644
--- a/org-ql.info
+++ b/org-ql.info
@@ -748,6 +748,8 @@ File: README.info,  Node: 04-pre,  Next: 032,  Up: Changelog
    • Make view buffers read-only.  (Fixes #72
      (https://github.com/alphapapa/org-ql/issues/72).  Thanks to xeijin
      (https://github.com/xeijin).)
+   • Sorting with single sorter specified as an atom.  (Thanks to Jeff
+     Filipovits (https://github.com/legalnonsense).)
 
    *Internal*
    • Added generic node data cache to speed up recursive, tree-based
@@ -1040,18 +1042,18 @@ Node: Agenda-like views18025
 Node: Listing / acting-on results19430
 Node: Changelog24032
 Node: 04-pre24569
-Node: 03227288
-Node: 03127669
-Node: 0327864
-Node: 02330837
-Node: 02231063
-Node: 02131329
-Node: 0231526
-Node: 0135559
-Node: Notes35658
-Node: Comparison with Org Agenda searches35820
-Node: org-sidebar36691
-Node: License36970
+Node: 03227414
+Node: 03127795
+Node: 0327990
+Node: 02330963
+Node: 02231189
+Node: 02131455
+Node: 0231652
+Node: 0135685
+Node: Notes35784
+Node: Comparison with Org Agenda searches35946
+Node: org-sidebar36817
+Node: License37096
 
 End Tag Table