exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Insert checklists at end of subtrees, before possible children

Browse Source
This commit is contained in:
Daniel Borchmann 2023-03-19 13:00:23 +01:00
parent a01bbe28e7
commit d4043f8dd9
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
site-lisp/db-org.el
View File

@ -878,6 +878,9 @@ determined."
(defun db/org-insert-checklist (arg) (defun db/org-insert-checklist (arg)
"Insert checklist for Org Mode item at point. "Insert checklist for Org Mode item at point.
Checklists are inserted before the first child, if existent, or
at the end of the subtree.
The checklist consists of a listing of relevant backlinks of the The checklist consists of a listing of relevant backlinks of the
current item and its parents (without archives) as well as a current item and its parents (without archives) as well as a
template. template.
@ -931,9 +934,22 @@ inserting the checklist."
;; point. ;; point.
(db/org-goto-checklist-item-of-point)) (db/org-goto-checklist-item-of-point))
(t (t ;; Default action: insert complete checklist.
;; Default action: insert complete checklist. Start with inserting
;; relevant backlinks, when available. ;; Checklists are inserted directly before first child, if existent, or
;; at end of subtree
(org-show-subtree)
(if (org-goto-first-child)
;; Move back from heading; code taken from `org-end-of-subtree'
(when (memq (preceding-char) '(?\n ?\^M))
;; Go to end of line before heading
(forward-char -1)
(when (memq (preceding-char) '(?\n ?\^M))
;; leave blank line before heading
(forward-char -1)))
(org-end-of-subtree 'invisible-ok))
;; Insert relevant backlinks, when available.
(let ((parent-depth (--when-let (org-entry-get (point) "CHECKLIST_BACKLINK_DEPTH" nil) (let ((parent-depth (--when-let (org-entry-get (point) "CHECKLIST_BACKLINK_DEPTH" nil)
(string-to-number it))) (string-to-number it)))
number-of-backlinks number-of-backlinks