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

Change: (view--complete-sort) Separate with spaces, not comma

Browse source
This commit is contained in:
Adam Porter 2020-02-26 19:57:16 -06:00
parent 60d1bd1f97
commit a459204e78
1 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

25
org-ql-view.el
View file

@ -850,16 +850,21 @@ property."
(defun org-ql-view--complete-sort () (defun org-ql-view--complete-sort ()
"Return value for `org-ql-view-sort' using completion." "Return value for `org-ql-view-sort' using completion."
(let ((input (->> (completing-read-multiple "Sort by: " ;; Use space to separate sorting predicates, not comma.
(list "buffer-order" (let* ((crm-separator (rx space))
"date" (crm-local-completion-map (let ((map (copy-keymap crm-local-completion-map)))
"deadline" (define-key map (kbd "SPC") nil)
"priority" map))
"scheduled" (input (->> (completing-read-multiple "Sort by: "
"todo") (list "buffer-order"
nil nil (when org-ql-view-sort "date"
(prin1-to-string org-ql-view-sort))) "deadline"
(--remove (equal "buffer-order" it))))) "priority"
"scheduled"
"todo")
nil nil (when org-ql-view-sort
(prin1-to-string org-ql-view-sort)))
(--remove (equal "buffer-order" it)))))
(pcase input (pcase input
('nil nil) ('nil nil)
((and (pred listp) sort) ((and (pred listp) sort)