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

small refactor

Browse Source
This commit is contained in:
Jethro Kuan
2020-02-02 17:21:07 +08:00
parent 6c2897cbd9
commit 45b1fe7326
1 changed files with 20 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
org-roam.el
View File

@ -108,10 +108,20 @@ Valid states are 'visible, 'exists and 'none."
(require 'org)
(require 'org-element)
,(async-inject-variables "org-roam-")
(let ((backlinks (make-hash-table :test #'equal)))
(let ((backlinks (make-hash-table :test #'equal))
(org-roam-parse-content (lambda (file)
(with-temp-buffer
(insert-file-contents file)
(with-current-buffer (current-buffer)
(org-element-map (org-element-parse-buffer) 'link
(lambda (link)
(let ((type (org-element-property :type link))
(path (org-element-property :path link)))
(when (and (string= type "file")
(string= (file-name-extension path) "org"))
path)))))))))
(mapcar (lambda (file)
(with-temp-buffer
(insert-file-contents file)
(let (paths (org-roam-parse-content file))
(mapcar (lambda (link)
(let* ((item (gethash link backlinks))
(updated (if item
@ -123,14 +133,7 @@ Valid states are 'visible, 'exists and 'none."
(list (file-name-nondirectory
file)))))
(puthash link updated backlinks)))
(with-current-buffer (current-buffer)
(org-element-map (org-element-parse-buffer) 'link
(lambda (link)
(let ((type (org-element-property :type link))
(path (org-element-property :path link)))
(when (and (string= type "file")
(string= (file-name-extension path) "org"))
path))))))))
paths)))
org-roam-files)
(prin1-to-string backlinks)))
(lambda (backlinks)
@ -206,10 +209,12 @@ This needs to be quick/infrequent, because this is run at
that are amongst deft files, and `org-roam' not already
displaying information for the correct file."
(interactive)
(when (and (eq major-mode 'org-mode)
(not (string= org-roam-current-file (buffer-file-name (current-buffer))))
(member (buffer-file-name (current-buffer)) (deft-find-all-files)))
(org-roam-update (file-name-nondirectory (buffer-file-name (current-buffer))))))
(while-no-input
(redisplay)
(when (and (eq major-mode 'org-mode)
(not (string= org-roam-current-file (buffer-file-name (current-buffer))))
(member (buffer-file-name (current-buffer)) (deft-find-all-files)))
(org-roam-update (file-name-nondirectory (buffer-file-name (current-buffer)))))))
(provide 'org-roam)