diff --git a/org-roam-backlinks.el b/org-roam-backlinks.el index 91d30eb..1ae4105 100644 --- a/org-roam-backlinks.el +++ b/org-roam-backlinks.el @@ -76,7 +76,7 @@ Sorts by title." (org-roam-node-title (org-roam-backlink-source-node b)))) ;;; Section inserter -(cl-defun org-roam-backlinks-insert-section (&key node _file) +(defun org-roam-backlinks-insert-section (node) "Insert backlinks section for NODE." (let* ((backlinks (seq-sort #'org-roam-backlinks-sort (org-roam-backlinks-get node)))) (magit-insert-section (org-roam-backlinks) diff --git a/org-roam-mode.el b/org-roam-mode.el index d4b0e54..65fc8b9 100644 --- a/org-roam-mode.el +++ b/org-roam-mode.el @@ -154,20 +154,18 @@ which visits the thing at point." (interactive) (if-let ((node (org-roam-node-at-point))) (progn - (let ((file (buffer-file-name (buffer-base-buffer))) - (buffer (get-buffer-create + (let ((buffer (get-buffer-create (concat "org-roam: " (file-relative-name (buffer-file-name) org-roam-directory))))) (with-current-buffer buffer (let ((inhibit-read-only t)) (erase-buffer) (org-roam-mode) - (org-roam-set-header-line-format - (org-roam-node-title node)) - (magit-insert-section (demo-buffer) + (org-roam-set-header-line-format (org-roam-node-title node)) + (magit-insert-section (org-roam) (magit-insert-heading) (dolist (fn org-roam-mode-sections) - (funcall fn :node node :file file))))) + (funcall fn node))))) (switch-to-buffer-other-window buffer))) (user-error "No node at point"))) diff --git a/org-roam-reflinks.el b/org-roam-reflinks.el index bf2d311..7e532a3 100644 --- a/org-roam-reflinks.el +++ b/org-roam-reflinks.el @@ -74,7 +74,7 @@ Sorts by title." (org-roam-node-title (org-roam-reflink-source-node b)))) ;;; Section inserter -(cl-defun org-roam-reflinks-insert-section (&key node _file) +(defun org-roam-reflinks-insert-section (node) "Insert reflinks section for NODE." (when (org-roam-node-refs node) (let* ((reflinks (seq-sort #'org-roam-reflinks-sort (org-roam-reflinks-get node)))) diff --git a/org-roam-unlinked-references.el b/org-roam-unlinked-references.el index 9024219..2496651 100644 --- a/org-roam-unlinked-references.el +++ b/org-roam-unlinked-references.el @@ -116,7 +116,7 @@ This is the ROW within FILE." (end-of-line) (point))))) -(cl-defun org-roam-unlinked-references-insert-section (&key node file) +(defun org-roam-unlinked-references-insert-section (node) "Render unlinked references for NODE. References from FILE are excluded." (when (and (executable-find "rg") @@ -145,7 +145,7 @@ References from FILE are excluded." col (string-to-number (match-string 3 line)) match (match-string 4 line)) (when (and match - (not (f-equal-p file f)) + (not (f-equal-p (org-roam-node-file node) f)) (member (downcase match) (mapcar #'downcase titles))) (magit-insert-section section (org-roam-grep-section) (oset section file f)