REF clean up syntax

This commit is contained in:
Nathan Dwarshuis 2021-04-18 22:10:33 -04:00
parent 58fe2a6659
commit e58c668d90
1 changed files with 3 additions and 4 deletions

View File

@ -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."