Advertisement
rakoenig

RESET_CHECK_BOXES code

Jul 6th, 2020
1,933
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.46 KB | None | 0 0
  1. (defun org-reset-checkbox-state-maybe ()
  2.   "Reset all checkboxes in an entry if the `RESET_CHECK_BOXES' property is set"
  3.   (interactive "*")
  4.   (if (org-entry-get (point) "RESET_CHECK_BOXES")
  5.       (org-reset-checkbox-state-subtree)))
  6.  
  7. (defun org-checklist ()
  8.   (when (member org-state org-done-keywords) ;; org-state dynamically bound in org.el/org-todo
  9.     (org-reset-checkbox-state-maybe)))
  10.  
  11. (add-hook 'org-after-todo-state-change-hook 'org-checklist)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement