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

Fix: Compatibility with org>=9.2

Browse source 
The API for `org-get-tags-at` and `org-timestamp--to-internal-time`
changed in org-mode version 9.2.

Thanks to Ataias Pereira Reis (@ataias) and Daniel Kraus (@dakra).

Closes #27.  Closes #31.
This commit is contained in:
Daniel Kraus 2019-07-12 18:53:06 +02:00 • committed by Adam Porter
parent 0b7628c1f7
commit adcb96cb1e
3 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
org-ql.el
View file

@ -25,6 +25,12 @@
(require 'dash)
;;;; Compatibility
(when (version< org-version "9.2")
(defalias 'org-get-tags 'org-get-tags-at)
(defalias 'org-timestamp-to-time 'org-timestamp--to-internal-time))
;;;; Variables
(defvar org-ql--today nil)
@ -457,8 +463,8 @@ With KEYWORDS, return non-nil if its keyword is one of KEYWORDS (a list of strin
(org-ql--defpredicate tags (&rest tags)
"Return non-nil if current heading has one or more of TAGS (a list of strings)."
;; TODO: Try to use `org-make-tags-matcher' to improve performance. It would be nice to not have
;; to run `org-get-tags-at' for every heading, especially with inheritance.
(when-let ((tags-at (org-get-tags-at (point) (not org-use-tag-inheritance))))
;; to run `org-get-tags' for every heading, especially with inheritance.
(when-let ((tags-at (org-get-tags (point) (not org-use-tag-inheritance))))
(cl-typecase tags
(null t)
(otherwise (seq-intersection tags tags-at)))))