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

Change: Enable lexical-binding

Browse source 
Hopefully this doesn't break anything...
This commit is contained in:
Adam Porter 2018-06-08 18:03:21 -05:00
parent 1143414f67
commit 977e9aa0a2
1 changed files with 28 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

52
org-ql.el
View file

@ -1,3 +1,6 @@
;; -*- lexical-binding: t; -*-
;;; Code: ;;; Code:
;;;; Requirements ;;;; Requirements
@ -79,30 +82,31 @@ Headings should return non-nil for any ANY-PREDS and nil for all
NONE-PREDS. If NARROW is non-nil, buffer will not be widened NONE-PREDS. If NARROW is non-nil, buffer will not be widened
first." first."
;; Cache `org-today' so we don't have to run it repeatedly. ;; Cache `org-today' so we don't have to run it repeatedly.
(cl-letf ((today org-ql--today)) (let (today)
(org-ql--fmap ((category #'org-ql--category-p) (cl-letf ((today org-ql--today))
(date #'org-ql--date-plain-p) (org-ql--fmap ((category #'org-ql--category-p)
(deadline #'org-ql--deadline-p) (date #'org-ql--date-plain-p)
(scheduled #'org-ql--scheduled-p) (deadline #'org-ql--deadline-p)
(closed #'org-ql--closed-p) (scheduled #'org-ql--scheduled-p)
(habit #'org-ql--habit-p) (closed #'org-ql--closed-p)
(priority #'org-ql--priority-p) (habit #'org-ql--habit-p)
(todo #'org-ql--todo-p) (priority #'org-ql--priority-p)
(done #'org-ql--done-p) (todo #'org-ql--todo-p)
(tags #'org-ql--tags-p) (done #'org-ql--done-p)
(property #'org-ql--property-p) (tags #'org-ql--tags-p)
(regexp #'org-ql--regexp-p) (property #'org-ql--property-p)
(org-back-to-heading #'outline-back-to-heading)) (regexp #'org-ql--regexp-p)
(save-excursion (org-back-to-heading #'outline-back-to-heading))
(save-restriction (save-excursion
(unless narrow (save-restriction
(widen)) (unless narrow
(goto-char (point-min)) (widen))
(when (org-before-first-heading-p) (goto-char (point-min))
(outline-next-heading)) (when (org-before-first-heading-p)
(cl-loop when (funcall pred) (outline-next-heading))
collect (org-element-headline-parser (line-end-position)) (cl-loop when (funcall pred)
while (outline-next-heading))))))) collect (org-element-headline-parser (line-end-position))
while (outline-next-heading))))))))
;;;;; Predicates ;;;;; Predicates