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

Add property matcher

Browse source
This commit is contained in:
Adam Porter 2018-05-10 18:58:21 -05:00
parent 58b2cca65f
commit 39a8c36b92
3 changed files with 30 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
org-agenda-ng.el
View file

@ -128,6 +128,7 @@ NONE-PREDS."
(todo #'org-agenda-ng--todo-p)
(done #'org-agenda-ng--done-p)
(tags #'org-agenda-ng--tags-p)
(property #'org-ql--property-p)
(regexp #'org-ql--regexp-p)
(org-back-to-heading #'outline-back-to-heading))
(org-with-wide-buffer
@ -474,3 +475,15 @@ comparator, PRIORITY should be a priority string."
(save-excursion
(goto-char (line-beginning-position))
(re-search-forward regexp end t))))
(defun org-ql--property-p (property &optional value)
"Return non-nil if current entry has PROPERTY, and optionally VALUE."
(pcase property
('nil (user-error "Property matcher requires a PROPERTY argument."))
(_ (pcase value
('nil
;; Check that PROPERTY exists
(org-entry-get (point) property))
(_
;; Check that PROPERTY has VALUE
(string-equal value (org-entry-get (point) property 'selective)))))))