awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -05:00
Code Issues Packages Projects Releases Wiki Activity

(fix): uniqify title and tag extraction (#1325)

Browse Source 
Remove duplicates from title and tag extraction, arising from
multiple (or the same) sources.

Fixes #1324
This commit is contained in:
Jethro Kuan
2020-11-24 20:00:49 +08:00
committed by GitHub
parent 9ca5461a2f
commit fb0662efe7
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
org-roam.el
View File

@ -687,7 +687,7 @@ If NESTED, return the first successful result from SOURCES."
(setq coll (nconc coll res))
(setq coll res)
(cl-return))))
coll)))
(-uniq coll))))
(defun org-roam--extract-tags-all-directories (file)
"Extract tags from using the directory path FILE.
@ -738,11 +738,12 @@ Tags are obtained via:
path is considered a tag.
2. The key #+roam_tags."
(let* ((file (or file (buffer-file-name (buffer-base-buffer))))
(tags (mapcan (lambda (source)
(funcall (intern (concat "org-roam--extract-tags-"
(symbol-name source)))
file))
org-roam-tag-sources)))
(tags (-uniq
(mapcan (lambda (source)
(funcall (intern (concat "org-roam--extract-tags-"
(symbol-name source)))
file))
org-roam-tag-sources))))
(pcase org-roam-tag-sort
('nil tags)
((pred booleanp) (cl-sort tags 'string-lessp :key 'downcase))