Remove duplicate tags

2023-02-20 05:56:12 -06:00 · 2023-02-20 05:56:12 -06:00 · 017d8c9bcf
commit 017d8c9bcf
parent 72b9101e85
1 changed files with 5 additions and 4 deletions
--- 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)
+                              (delete-dups
                               (cl-loop for type in (org-ql--tags-at marker)
                                        unless (or (eq 'org-ql-nil type)
                                                   (not type))
-                                       append type)))
+                                        append type))))
                         ;; No marker found
                         ;; TODO: Use `display-warning' with `org-ql' as the type.
                         (warn "No marker found for item: %s" item)