找了有一会儿,发出来分享,感觉用途有点偏,我用来组合命令 insert-todo-last-subheading ,单纯觉得在 subheading 的最后一行插入 TODO 比较舒服(可以不用,不能没有)。
配置出处:Files · master · marcowahl / mw.emacs.d · GitLab
(defun mw-org-jump-to-first-heading-same-level ()
"Move to last sibling with same level."
(interactive)
(let ((p (point)))
(while (progn (org-forward-heading-same-level -1)
(< (point) p))
(setq p (point)))))
(defun mw-org-jump-to-last-heading-same-level ()
"Move to last sibling with same level."
(interactive)
(let ((p (point)))
(while (progn (org-forward-heading-same-level 1)
(< p (point)))
(setq p (point)))))