awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-22 16:20:55 -05:00
Code Issues Packages Projects Releases Wiki Activity

Teach node deletion how to handle nodes not at top-level

Browse Source
This commit is contained in:
Chris Barrett
2022-09-06 11:34:03 +12:00
parent b34b615bcc
commit c128693b93
1 changed files with 19 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/org-roam-rewrite.el
View File

@@ -130,9 +130,25 @@ It is called with the new node as the current buffer."
(save-buffer))
(defun org-roam-rewrite--delete-node-kill-buffer (node)
(when-let* ((buf (find-buffer-visiting (org-roam-node-file node))))
(kill-buffer buf))
(delete-file (org-roam-node-file node)))
(cond
((zerop (org-roam-node-level node))
(when-let* ((buf (find-buffer-visiting (org-roam-node-file node))))
(kill-buffer buf))
(delete-file (org-roam-node-file node)))
(t
(let ((buffer-visiting-p (find-buffer-visiting (org-roam-node-file node))))
(org-with-point-at (org-roam-node-marker node)
(goto-char (point-min))
(when (search-forward-regexp (rx-to-string `(and
bol
(* space) ":ID:"
(* space)
,(org-roam-node-id node))))
(let ((message-log-max))
(org-cut-subtree)))
(save-buffer)
(unless buffer-visiting-p
(kill-buffer)))))))
;;;###autoload
(defun org-roam-rewrite-rename (node new-title)