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

Automatically set property to avoid double checklist insertions

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

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

@ -881,6 +881,11 @@ determined."
Checklists are inserted before the first child, if existent, or
at the end of the subtree.
After inserting a checklist, add the property
CHECKLIST_INSERTED_P with value `t' to item at point. Checklists
are not inserted if this property with this value is already
present, to avoid double insertions of checklists.
The checklist consists of a listing of relevant backlinks of the
current item and its parents (without archives) as well as a
template.
@ -934,6 +939,10 @@ inserting the checklist."
;; point.
(db/org-goto-checklist-item-of-point))
((string= (org-entry-get (point) "CHECKLIST_INSERTED_P")
"t")
(message "Checklist already inserted, not inserting again."))
(t ;; Default action: insert complete checklist.
;; Checklists are inserted directly before first child, if existent, or
@ -990,7 +999,9 @@ inserting the checklist."
(insert "\n\nTemplate:")
(if (not template-marker)
(insert " none.\n")
(db/org-copy-body-from-item-to-point template-marker))))))
(db/org-copy-body-from-item-to-point template-marker)))
(org-entry-put (point) "CHECKLIST_INSERTED_P" "t"))))
(define-obsolete-function-alias 'db/org-copy-template
'db/org-insert-checklist