我希望在org文件的所有标题后面插入一些文本。
例如,假设我有以下内容:
运行(insert-after-heading "NEW TEXT")后,我应该得到:
到目前为止,我做得最好的是以下步骤:
然而,这会在属性之前插入文本。
< p >编辑:
例如,假设我有以下内容:
* Header foo
:PROPERTIES:
:EXPORT_FILE_NAME: ./tmp/Test
:END:
* Header bar
运行(insert-after-heading "NEW TEXT")后,我应该得到:
* Header foo
:PROPERTIES:
:EXPORT_FILE_NAME: ./tmp/Test
:END:
NEW TEXT
* Header bar
NEW TEXT
到目前为止,我做得最好的是以下步骤:
(goto-char (point-min))
(goto-char (re-search-forward "^*"))
(set-mark (line-beginning-position))
(goto-char (point-max))
(org-map-entries
(lambda () (progn (forward-line)(new-line)(previous-line) (insert "NEW TEXT") )
然而,这会在属性之前插入文本。
< p >编辑:
(defun goto-header()
(interactive)
(org-back-to-heading)
(let ((beg-end (org-get-property-block))):
(when beg-end
(let ((end (cdr beg-end)))
(goto-char end))))
(forward-line)
(newline)
(previous-line))
移动插入点到正确位置是插入文本的一种方法。是否有更好的方式?