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 ()
"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)