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

Notes: Add tasks

Browse source
This commit is contained in:
Adam Porter 2019-06-09 05:01:07 -05:00
parent 943bb6d6c0
commit c40eb050a9
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
org-ql.el
View file

@ -253,7 +253,12 @@ a list of defined `org-ql' sorting methods: `date', `deadline',
(cl-defun org-ql--select (&key predicate action narrow) (cl-defun org-ql--select (&key predicate action narrow)
"Return results of mapping function ACTION across entries in current buffer matching function PREDICATE. "Return results of mapping function ACTION across entries in current buffer matching function PREDICATE.
If NARROW is non-nil, buffer will not be widened." If NARROW is non-nil, buffer will not be widened."
;; Since the mappings are done at runtime, macros like `flet' can't be used, so we do it manually. ;; Since the mappings are stored in the variable `org-ql-predicates', macros like `flet'
;; can't be used, so we do it manually (this is same as the equivalent `flet' expansion).
;; Mappings are stored in the variable because it allows predicates to be defined with a
;; macro, which allows documentation to be easily generated for them.
;; MAYBE: Lift the `flet'-equivalent out of this function so it isn't done for each buffer.
(let (orig-fns) (let (orig-fns)
(--each org-ql-predicates (--each org-ql-predicates
;; Save original function mappings. ;; Save original function mappings.
@ -483,7 +488,9 @@ comparator, PRIORITY should be a priority string."
;;;;;; Timestamps ;;;;;; Timestamps
;; TODO: DRY these ts predicates. ;; TODO: Move active/inactive into (ts) predicate, allowing the first arg to be either inactive/active
;; or the comparator. Using numeric comparators is more powerful, concise, and language-independent
;; than using from/to. Alternatively, add :before/:after, but I think the comparators are better.
(org-ql--defpredicate ts (&key from to on) (org-ql--defpredicate ts (&key from to on)
"Return non-nil if current entry has a timestamp in given period. "Return non-nil if current entry has a timestamp in given period.
@ -739,6 +746,7 @@ COMPARATOR should be a function (like `<=')."
;;;;; Sorting ;;;;; Sorting
;; FIXME: These appear to work properly, but it would be good to have tests for them. ;; FIXME: These appear to work properly, but it would be good to have tests for them.
;; MAYBE: Add timestamp sorter. Could be slow in some cases, without clever caching of timestamps per-entry.
(defun org-ql--sort-by (items predicates) (defun org-ql--sort-by (items predicates)
"Return ITEMS sorted by PREDICATES. "Return ITEMS sorted by PREDICATES.