Revisions to How can I insert a new top level TODO below the current subtree in org-mode without moving the cursor?

fixed a couple things in code.

edited Mar 3, 2015 at 15:30

2.3k
20
33

Here's a simple function to do something similar.

(defun add-heading-aftertest () (progn (point-to-register 'p) (outline-nextsearch-visibleforward-headingregexp 1"^\\* ") (previousorg-beginning-of-line) (insert "* ") (register-to-point 'p)))

Here's a simple function to do something similar.

(defun add-heading-after () (progn (point-to-register 'p) (outline-next-visible-heading 1) (previous-line) (insert "* ") (register-to-point 'p)))

Here's a simple function to do something similar.

(defun test () (point-to-register 'p) (search-forward-regexp "^\\* ") (org-beginning-of-line) (insert "* ") (register-to-point 'p))

Added newline character

Source Link

edited Mar 3, 2015 at 0:25

user2699

2.3k
20
33

Here's a simple function to do something similar.

(defun add-heading-after () (progn (point-to-register 'p) (outline-next-visible-heading 1) (previous-line) (insert "*""* ") (register-to-point 'p)))

Here's a simple function to do something similar.

(defun add-heading-after () (progn (point-to-register 'p) (outline-next-visible-heading 1) (previous-line) (insert "*") (register-to-point 'p)))

Here's a simple function to do something similar.

(defun add-heading-after () (progn (point-to-register 'p) (outline-next-visible-heading 1) (previous-line) (insert "* ") (register-to-point 'p)))

Source Link

answered Mar 2, 2015 at 22:29

user2699

2.3k
20
33

Here's a simple function to do something similar.

(defun add-heading-after () (progn (point-to-register 'p) (outline-next-visible-heading 1) (previous-line) (insert "*") (register-to-point 'p)))

Stack Exchange Network

Return to Answer