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

Change: Consolidate action

Browse source
This commit is contained in:
Adam Porter 2018-08-20 07:09:48 -05:00
parent 88cf7f395e
commit 4822f1406f
1 changed files with 23 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

42
org-ql.el
View file

@ -17,12 +17,14 @@
;;;; Macros ;;;; Macros
(cl-defmacro org-ql (buffers-or-files pred-body &key (action-fn '#'identity) (cl-defmacro org-ql (buffers-or-files pred-body &key sort narrow markers
sort narrow markers) (action '(org-element-headline-parser (line-end-position))))
"Find entries in BUFFERS-OR-FILES that match PRED-BODY, and return the results of running ACTION-FN on each matching entry. "Find entries in BUFFERS-OR-FILES that match PRED-BODY, and return the results of running ACTION-FN on each matching entry.
ACTION-FN should take a single argument, which will be the result ACTION is a sexp which will be evaluated at each matching entry
of calling `org-element-headline-parser' at each matching entry. with point at the beginning of its heading. It is passed to
`org-ql--query' as a lambda. By default, `org-element-headline-parser'
is called to return an Org element.
SORT is a user defined sorting function, or an unquoted list of SORT is a user defined sorting function, or an unquoted list of
one or more sorting methods, including: `date', `deadline', one or more sorting methods, including: `date', `deadline',
@ -33,19 +35,20 @@ buffer (the default is to widen and search the entire buffer).
If MARKERS is non-nil, `org-agenda-ng--add-markers' is used to If MARKERS is non-nil, `org-agenda-ng--add-markers' is used to
add markers to each item, pointing to the item in its source add markers to each item, pointing to the item in its source
buffer." buffer. In this case, ACTION should return an Org element."
(declare (indent defun)) (declare (indent defun))
(when markers (setq action (cl-ecase markers
(setq action-fn (pcase action-fn ('t `(lambda ()
(`(function identity) '#'org-agenda-ng--add-markers) ;; FIXME: Document that, when markers is t, `action' should return an Org
(_ (byte-compile `(lambda (item) ;; headline element, which --add-markers works with. On the other hand,
(--> item ;; maybe this should be on the agenda-ng side.
;; Add the markers before calling the action fn (->> ,action
org-agenda-ng--add-markers org-agenda-ng--add-markers)))
,action-fn))))))) ('nil `(lambda ()
,action))))
`(org-ql--query ,buffers-or-files `(org-ql--query ,buffers-or-files
',pred-body ',pred-body
:action-fn ,action-fn :action ,action
:narrow ,narrow :narrow ,narrow
:sort ',sort)) :sort ',sort))
@ -58,7 +61,7 @@ buffer."
;;;; Functions ;;;; Functions
(cl-defun org-ql--query (buffers-or-files pred-body &key (action-fn #'identity) narrow sort) (cl-defun org-ql--query (buffers-or-files pred-body &key action narrow sort)
"FIXME: Add docstring." "FIXME: Add docstring."
;; MAYBE: Set :narrow t for buffers and nil for files. ;; MAYBE: Set :narrow t for buffers and nil for files.
(declare (indent defun)) (declare (indent defun))
@ -75,6 +78,7 @@ buffer."
(<= #'<=) (<= #'<=)
(>= #'>=)) (>= #'>=))
,pred-body)))) ,pred-body))))
(action (byte-compile action))
;; TODO: Figure out how to use or reimplement the org-scanner-tags feature. ;; TODO: Figure out how to use or reimplement the org-scanner-tags feature.
;; (org-use-tag-inheritance t) ;; (org-use-tag-inheritance t)
;; (org-trust-scanner-tags t) ;; (org-trust-scanner-tags t)
@ -91,9 +95,7 @@ buffer."
(user-error "Can't open file: %s" it))))) (user-error "Can't open file: %s" it)))))
;; Filter buffers (i.e. select items) ;; Filter buffers (i.e. select items)
(--map (with-current-buffer it (--map (with-current-buffer it
;; action-fn must be called inside the source buffer. (org-ql--select :predicate predicate :action action :narrow narrow)))
(mapcar action-fn
(org-ql--select :predicate predicate :narrow narrow))))
;; Flatten items ;; Flatten items
(-flatten-n 1)))) (-flatten-n 1))))
;; Sort items ;; Sort items
@ -127,7 +129,7 @@ Or, when possible, fix the problem."
(org-ql--sanity-check-form (cdr elem))) (org-ql--sanity-check-form (cdr elem)))
else do (check elem)))) else do (check elem))))
(cl-defun org-ql--select (&key predicate narrow) (cl-defun org-ql--select (&key predicate action narrow)
;; FIXME: Docstring ;; FIXME: Docstring
"Return positions of entries in current buffer matching PREDICATE. "Return positions of entries in current buffer matching PREDICATE.
Headings should return non-nil for any ANY-PREDS and nil for all Headings should return non-nil for any ANY-PREDS and nil for all
@ -156,7 +158,7 @@ first."
(when (org-before-first-heading-p) (when (org-before-first-heading-p)
(outline-next-heading)) (outline-next-heading))
(cl-loop when (funcall predicate) (cl-loop when (funcall predicate)
collect (org-element-headline-parser (line-end-position)) collect (funcall action)
while (outline-next-heading)))))) while (outline-next-heading))))))
;;;;; Predicates ;;;;; Predicates