REF clean up syntax
This commit is contained in:
parent
58fe2a6659
commit
e58c668d90
|
@ -444,10 +444,9 @@ compared to REF-TIME. Returns nil if no timestamp is found."
|
||||||
|
|
||||||
(defun org-x-headline-has-context-p ()
|
(defun org-x-headline-has-context-p ()
|
||||||
"Return non-nil if heading has a context tag."
|
"Return non-nil if heading has a context tag."
|
||||||
(let ((tags (org-get-tags)))
|
(--any
|
||||||
(--any (memq (elt it 0) (list org-x-tag-resource-prefix
|
(memq (elt it 0) `(,org-x-tag-resource-prefix ,org-x-tag-location-prefix))
|
||||||
org-x-tag-location-prefix))
|
(org-get-tags)))
|
||||||
tags)))
|
|
||||||
|
|
||||||
(defun org-x-headline-has-tag-p (tag)
|
(defun org-x-headline-has-tag-p (tag)
|
||||||
"Return t if heading has tag TAG."
|
"Return t if heading has tag TAG."
|
||||||
|
|
Loading…
Reference in New Issue