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

(chore): org-map-entries -> org-map-region (#2107)

Browse Source 
org-map-entries is affected by agenda, while org-map-region is not
This commit is contained in:
Jethro Kuan
2022-02-26 18:07:45 -08:00
committed by GitHub
parent c8a360afdd
commit 62d311de22
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
org-roam-node.el
View File

@@ -816,7 +816,8 @@ Any tags declared on #+FILETAGS: are transferred to tags on the new top heading.
Any top level properties drawers are incorporated into the new heading."
(interactive)
(org-with-point-at 1
(org-map-entries 'org-do-demote)
(org-map-region #'org-do-demote
(point-min) (point-max))
(insert "* "
(org-roam--get-keyword "title")
"\n")
@@ -831,9 +832,11 @@ Converts a file containing a headline node at the top to a file
node."
(interactive)
(org-with-point-at 1
(org-map-entries (lambda ()
(when (> (org-outline-level) 1)
(org-do-promote))))
(org-map-region
(lambda ()
(when (> (org-outline-level) 1)
(org-do-promote)))
(point-min) (point-max))
(let ((title (nth 4 (org-heading-components)))
(tags (nth 5 (org-heading-components))))
(beginning-of-line)