jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove duplicate tags

Browse source
This commit is contained in:
Adam Porter 2023-02-20 05:56:12 -06:00
parent 72b9101e85
commit 017d8c9bcf
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
taxy-org-ql-view.el
View file

@ -166,10 +166,11 @@ Inherited by level-specific faces.")
(with-current-buffer (marker-buffer marker) (with-current-buffer (marker-buffer marker)
(org-with-wide-buffer (org-with-wide-buffer
(goto-char marker) (goto-char marker)
(cl-loop for type in (org-ql--tags-at marker) (delete-dups
unless (or (eq 'org-ql-nil type) (cl-loop for type in (org-ql--tags-at marker)
(not type)) unless (or (eq 'org-ql-nil type)
append type))) (not type))
append type))))
;; No marker found ;; No marker found
;; TODO: Use `display-warning' with `org-ql' as the type. ;; TODO: Use `display-warning' with `org-ql' as the type.
(warn "No marker found for item: %s" item) (warn "No marker found for item: %s" item)