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

Add: random sorter

Browse source
This commit is contained in:
Adam Porter 2019-08-25 20:11:24 -05:00
parent f26052eb79
commit a52d421fd7
2 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
README.org
View file

@ -356,7 +356,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).
~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~, or ~priority~); 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~, ~todo~, ~priority~, or ~random~); or a user-defined comparator function that accepts two items as arguments and returns nil or non-nil.
Examples:
@ -459,6 +459,7 @@ Expands into a call to ~org-ql-select~ with the same arguments. For convenience
+ Customization group ~org-ql~.
+ Command ~org-ql-view~, which displays views saved to variable ~org-ql-views~, which can be saved from ~org-ql-search~ buffers with command ~org-ql-search-save~, which is bound to =C-x C-s= in view buffers.
+ Variable ~org-ql-view-map~, active in view buffers displayed by ~org-ql-search~, ~org-ql-agenda~, and ~org-ql-view~.
+ =random= sort method.
*Changed*
+ Function ~org-ql-query~ renamed to ~org-ql-select~. ~org-ql-query~ now refers to a new function.

12
org-ql.el
View file

@ -163,9 +163,9 @@ 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', or `priority'); or a user-defined comparator
function that accepts two items as arguments and returns nil or
non-nil."
`scheduled', `todo', `priority', or `random'); or a user-defined
comparator function that accepts two items as arguments and
returns nil or non-nil."
(declare (indent defun))
(-let* ((buffers (->> (cl-typecase buffers-or-files
(null (list (current-buffer)))
@ -217,9 +217,9 @@ non-nil."
;; Sort items
(pcase sort
(`nil items)
((or 'date 'deadline 'scheduled 'todo 'priority
((or 'date 'deadline 'scheduled 'todo 'priority 'random
(guard (cl-loop for elem in sort
always (memq elem '(date deadline scheduled todo priority)))))
always (memq elem '(date deadline scheduled todo priority 'random)))))
;; Default sorting functions
(org-ql--sort-by items (-list sort)))
;; Sort by user-given comparator.
@ -938,6 +938,8 @@ PREDICATES is a list of one or more sorting methods, including:
(apply-partially #'org-ql--date-type< (intern (concat ":" (symbol-name symbol)))))
('date #'org-ql--date<)
('priority #'org-ql--priority<)
('random (lambda (&rest _ignore)
(= 0 (random 2))))
;; NOTE: 'todo is handled below
;; FIXME: Add more?
(_ (user-error "Invalid sorting predicate: %s" symbol))))