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

(node): fix org-roam-node-at-point check (#2195)

Browse Source 
org-roam-node-at-point returned the wrong value if point-min is a
level-1 heading node. We make sure that everytime we go up one
heading, the outline-level changes (reduces by 1) to prevent this error.
This commit is contained in:
Jethro Kuan
2022-05-15 16:51:38 -07:00
committed by GitHub
parent 2657f0b444
commit 1f51ec91d5
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
org-roam-node.el
View File

@ -224,9 +224,13 @@ populated."
(magit-section-up) (magit-section-up)
(org-roam-node-at-point))) (org-roam-node-at-point)))
(t (org-with-wide-buffer (t (org-with-wide-buffer
(org-back-to-heading-or-point-min t) (while (not (or (org-roam-db-node-p)
(while (and (not (org-roam-db-node-p)) (bobp)
(not (bobp))) ;; Handle case where top-level is a heading
(= (funcall outline-level)
(save-excursion
(org-roam-up-heading-or-point-min)
(funcall outline-level)))))
(org-roam-up-heading-or-point-min)) (org-roam-up-heading-or-point-min))
(when-let ((id (org-id-get))) (when-let ((id (org-id-get)))
(org-roam-populate (org-roam-populate