From 017d8c9bcfd357d0b7c6e5566b8801411f921491 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 20 Feb 2023 05:56:12 -0600 Subject: [PATCH] Remove duplicate tags --- taxy-org-ql-view.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/taxy-org-ql-view.el b/taxy-org-ql-view.el index 573ce89..1ace158 100644 --- a/taxy-org-ql-view.el +++ b/taxy-org-ql-view.el @@ -166,10 +166,11 @@ Inherited by level-specific faces.") (with-current-buffer (marker-buffer marker) (org-with-wide-buffer (goto-char marker) - (cl-loop for type in (org-ql--tags-at marker) - unless (or (eq 'org-ql-nil type) - (not type)) - append type))) + (delete-dups + (cl-loop for type in (org-ql--tags-at marker) + unless (or (eq 'org-ql-nil type) + (not type)) + append type)))) ;; No marker found ;; TODO: Use `display-warning' with `org-ql' as the type. (warn "No marker found for item: %s" item)