From 8ff956b3a2fdf91a57a488739b82f666954b90a5 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 15 Mar 2022 23:09:46 -0700 Subject: [PATCH] [oni-org] Hide the body of the task marked as done --- oni-org/oni-org.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el index ebb29ee..9049e95 100644 --- a/oni-org/oni-org.el +++ b/oni-org/oni-org.el @@ -466,6 +466,11 @@ also move point to the start of the heading." (oni-org-create-chapter-heading book-name chapter-name notes-file)) (oni-org-create-chapter-section chapter-name notes-file)))) +(defun oni-org-todo-maybe-hide-body () + "Hide the current outline body if ‘org-state’ is a DONE state." + (when (member org-state org-done-keywords) + (outline-hide-body))) + (setq org-todo-keywords '((sequence "TODO(t)" "WIP" "BLOCKED(b@)" "|" "DONE(d!)") (sequence "READ(r)" "READING(!)" "|" "FINISHED(!)" "STOPPED(@)") @@ -473,6 +478,8 @@ also move point to the start of the heading." (sequence "LISTEN(l)" "LISTENING" "|" "DONE(d!)") (sequence "|" "CANCELLED(c@)"))) +(add-hook 'org-after-todo-state-change-hook 'oni-org-todo-maybe-hide-body) + (setf (alist-get 'file org-link-frame-setup) 'find-file) (add-to-list 'org-modules 'org-habit)