diff options
| -rw-r--r-- | nroam.el | 26 | ||||
| -rw-r--r-- | readme.org | 5 |
2 files changed, 18 insertions, 13 deletions
@@ -44,6 +44,8 @@ (defvar-local nroam-start-marker nil) (defvar-local nroam-end-marker nil) +(defvar nroam-work-buffer " nroam-work") + (defmacro with-nroam-markers (&rest body) "Evaluate BODY. Make the region inserted by BODY read-only, and marked with @@ -68,6 +70,7 @@ Make the region inserted by BODY read-only, and marked with :keymap nroam-mode-map (if nroam-mode (progn + (nroam--init-work-buffer) (add-hook 'before-save-hook #'nroam--prune-backlinks nil t) (add-hook 'after-save-hook #'nroam--update-backlinks-maybe nil t) (nroam-update-backlinks)) @@ -75,6 +78,13 @@ Make the region inserted by BODY read-only, and marked with (remove-hook 'after-save-hook #'nroam--update-backlinks-maybe t) (nroam--prune-backlinks))) +(defun nroam--init-work-buffer () + "Initiate nroam hidden buffer." + (get-buffer-create nroam-work-buffer t) + (with-current-buffer nroam-work-buffer + (delay-mode-hooks + (org-mode)))) + (defun nroam-ctrl-c-ctrl-c () "Update the backlinks for the current buffer, or fallback to `org-ctrl-c-ctrl-c'." (interactive) @@ -198,14 +208,14 @@ Make the region inserted by BODY read-only, and marked with (defun nroam--crawl-source (file point) "Return the source element in FILE at POINT." - (with-current-buffer (find-file-noselect file) - (save-excursion - (goto-char point) - (let ((elt (org-element-at-point))) - (let ((begin (org-element-property :begin elt)) - (end (org-element-property :end elt)) - (type (org-element-type elt))) - `(,type . ,(buffer-substring begin end))))))) + (with-current-buffer nroam-work-buffer + (insert-file-contents file nil nil nil 'replace) + (goto-char point) + (let ((elt (org-element-at-point))) + (let ((begin (org-element-property :begin elt)) + (end (org-element-property :end elt)) + (type (org-element-type elt))) + `(,type . ,(buffer-substring begin end)))))) (defun nroam--fix-links (content origin) "Correct all relative links in CONTENT from ORIGIN. @@ -26,8 +26,3 @@ It can also be manually updated by typing =C-c C-c= anywhere in the linked refer * Warning This package is in its infancy. Be careful when using it as it modifies your =org-mode= buffers—it should not modify your files though. Backup your data often. - -* Performance - -At the moment no caching is done when crawling source files for backlinks so there could be performance issues with very large number of org files as a lot of buffers could have to be open to crawl backlink content. - |