From a459204e7868a656fa106e288c099fb410ab4742 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Wed, 26 Feb 2020 19:57:16 -0600 Subject: [PATCH] Change: (view--complete-sort) Separate with spaces, not comma --- org-ql-view.el | 25 +++++++++++++++---------- 1 file changed, 15 insertions(+), 10 deletions(-) diff --git a/org-ql-view.el b/org-ql-view.el index 5244508..1d7393d 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -850,16 +850,21 @@ property." (defun org-ql-view--complete-sort () "Return value for `org-ql-view-sort' using completion." - (let ((input (->> (completing-read-multiple "Sort by: " - (list "buffer-order" - "date" - "deadline" - "priority" - "scheduled" - "todo") - nil nil (when org-ql-view-sort - (prin1-to-string org-ql-view-sort))) - (--remove (equal "buffer-order" it))))) + ;; Use space to separate sorting predicates, not comma. + (let* ((crm-separator (rx space)) + (crm-local-completion-map (let ((map (copy-keymap crm-local-completion-map))) + (define-key map (kbd "SPC") nil) + map)) + (input (->> (completing-read-multiple "Sort by: " + (list "buffer-order" + "date" + "deadline" + "priority" + "scheduled" + "todo") + nil nil (when org-ql-view-sort + (prin1-to-string org-ql-view-sort))) + (--remove (equal "buffer-order" it))))) (pcase input ('nil nil) ((and (pred listp) sort)