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

Fix: (org-ql) Work when not sorting

Browse source 
Don't know when I broke this.  Oops.
This commit is contained in:
Adam Porter 2018-08-19 13:21:00 -05:00
parent 22bf0ae9c0
commit d73175714c
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
org-ql.el
View file

@ -55,14 +55,17 @@ buffer."
:action-fn ,action-fn :action-fn ,action-fn
:narrow ,narrow :narrow ,narrow
:sort ,(pcase sort :sort ,(pcase sort
;; Custom sort function (`(function ,_)
(`(function ,_) sort) ;; Custom sort function
((and sort (guard (cl-loop for elem in sort sort)
always (memq elem '(date deadline scheduled todo priority))))) ((guard (and sort
(cl-loop for elem in sort
always (memq elem '(date deadline scheduled todo priority)))))
;; Default sorting functions ;; Default sorting functions
(list 'quote sort)) (list 'quote sort))
;; Other expression to evaluate (_
(_ sort)))) ;; Other expression to evaluate
sort))))
(defmacro org-ql--fmap (fns &rest body) (defmacro org-ql--fmap (fns &rest body)
(declare (indent defun) (debug (listp body))) (declare (indent defun) (debug (listp body)))