From e58c668d90d848f5282de07a339a205dd1c174df Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sun, 18 Apr 2021 22:10:33 -0400 Subject: [PATCH] REF clean up syntax --- local/lib/org-x/org-x.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/local/lib/org-x/org-x.el b/local/lib/org-x/org-x.el index 62d6167..625a765 100644 --- a/local/lib/org-x/org-x.el +++ b/local/lib/org-x/org-x.el @@ -444,10 +444,9 @@ compared to REF-TIME. Returns nil if no timestamp is found." (defun org-x-headline-has-context-p () "Return non-nil if heading has a context tag." - (let ((tags (org-get-tags))) - (--any (memq (elt it 0) (list org-x-tag-resource-prefix - org-x-tag-location-prefix)) - tags))) + (--any + (memq (elt it 0) `(,org-x-tag-resource-prefix ,org-x-tag-location-prefix)) + (org-get-tags))) (defun org-x-headline-has-tag-p (tag) "Return t if heading has tag TAG."