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

Refactor org-roam-add-backlink

Browse source
This commit is contained in:
Jethro Kuan 2020-01-22 17:55:30 +08:00
parent 3ab4b2f286
commit 733a025825
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
org-roam.el
View file

@ -73,6 +73,15 @@ Valid states are 'visible, 'exists and 'none."
(string= (file-name-extension path) "org")) (string= (file-name-extension path) "org"))
path)))))) path))))))
(defun org-roam-add-backlink (hash link_a link_b)
"Adds a backlink link_a <- link_b to hash table `hash'."
(let* ((item (ht-get hash link_a))
(updated (if item
(if (member link_b item)
item
(cons link_b item))
(list link_b))))
(ht-set! hash link_a updated)))
(defun org-roam-build-backlinks () (defun org-roam-build-backlinks ()
"Builds the backlink hash table, saving it into `org-roam-hash-backlinks'." "Builds the backlink hash table, saving it into `org-roam-hash-backlinks'."
@ -82,14 +91,10 @@ Valid states are 'visible, 'exists and 'none."
(with-temp-buffer (with-temp-buffer
(insert-file-contents file) (insert-file-contents file)
(-map (lambda (link) (-map (lambda (link)
(let* ((item (ht-get backlinks link)) (org-roam-add-backlink
(added-item (file-name-nondirectory file)) backlinks
(updated (if (and item) link (file-name-nondirectory
(if (member added-item item) file)))
item
(cons added-item item))
(list added-item))))
(ht-set! backlinks link updated)))
(org-roam-get-links-from-buffer (current-buffer))))) (org-roam-get-links-from-buffer (current-buffer)))))
(deft-find-all-files)) (deft-find-all-files))
(setq org-roam-hash-backlinks backlinks))) (setq org-roam-hash-backlinks backlinks)))