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

Add: Sort by (closed) for org-ql-select

Browse source
This commit is contained in:
Jianye Ye 2020-12-28 09:11:32 +08:00 • committed by Adam Porter
parent 8f307a8820
commit 80970856d6
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
README.org
View file

@ -348,7 +348,7 @@ Return items matching ~QUERY~ in ~BUFFERS-OR-FILES~.
If ~NARROW~ is non-nil, buffers are not widened (the default is to widen and search the entire buffer). If ~NARROW~ is non-nil, buffers are not widened (the default is to widen and search the entire buffer).
~SORT~ is either nil, in which case items are not sorted; or one or a list of defined ~org-ql~ sorting methods (~date~, ~deadline~, ~scheduled~, ~todo~, ~priority~, or ~random~); or a user-defined comparator function that accepts two items as arguments and returns nil or non-nil. ~SORT~ is either nil, in which case items are not sorted; or one or a list of defined ~org-ql~ sorting methods (~date~, ~deadline~, ~scheduled~, ~closed~, ~todo~, ~priority~, or ~random~); or a user-defined comparator function that accepts two items as arguments and returns nil or non-nil.
Examples: Examples:

8
org-ql.el
View file

@ -349,7 +349,7 @@ widen and search the entire buffer).
SORT is either nil, in which case items are not sorted; or one or SORT is either nil, in which case items are not sorted; or one or
a list of defined `org-ql' sorting methods (`date', `deadline', a list of defined `org-ql' sorting methods (`date', `deadline',
`scheduled', `todo', `priority', `reverse', or `random'); or a `scheduled', `closed', `todo', `priority', `reverse', or `random'); or a
user-defined comparator function that accepts two items as user-defined comparator function that accepts two items as
arguments and returns nil or non-nil. Sorting methods are arguments and returns nil or non-nil. Sorting methods are
applied in the order given (i.e. later methods override earlier applied in the order given (i.e. later methods override earlier
@ -426,7 +426,7 @@ each priority the newest items would appear first."
;; Sort items ;; Sort items
(pcase sort (pcase sort
(`nil items) (`nil items)
((guard (cl-subsetp (-list sort) '(date deadline scheduled todo priority random reverse))) ((guard (cl-subsetp (-list sort) '(date deadline scheduled closed todo priority random reverse)))
;; Default sorting functions ;; Default sorting functions
(org-ql--sort-by items (-list sort))) (org-ql--sort-by items (-list sort)))
;; Sort by user-given comparator. ;; Sort by user-given comparator.
@ -2164,11 +2164,11 @@ any planning prefix); it defaults to 0 (i.e. the whole regexp)."
(defun org-ql--sort-by (items predicates) (defun org-ql--sort-by (items predicates)
"Return ITEMS sorted by PREDICATES. "Return ITEMS sorted by PREDICATES.
PREDICATES is a list of one or more sorting methods, including: PREDICATES is a list of one or more sorting methods, including:
`deadline', `scheduled', and `priority'." `deadline', `scheduled', `closed' and `priority'."
;; MAYBE: Use macrolet instead of flet. ;; MAYBE: Use macrolet instead of flet.
(cl-flet* ((sorter (symbol) (cl-flet* ((sorter (symbol)
(pcase symbol (pcase symbol
((or 'deadline 'scheduled) ((or 'deadline 'scheduled 'closed)
(apply-partially #'org-ql--date-type< (intern (concat ":" (symbol-name symbol))))) (apply-partially #'org-ql--date-type< (intern (concat ":" (symbol-name symbol)))))
;; TODO: Rename `date' to `planning'. `date' should be something else. ;; TODO: Rename `date' to `planning'. `date' should be something else.
('date #'org-ql--date<) ('date #'org-ql--date<)