emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH] hide inline-tasks in 'children visibility state


From: Jonas Hörsch
Subject: [O] [PATCH] hide inline-tasks in 'children visibility state
Date: Wed, 30 Oct 2013 16:38:30 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux)

hej,

one more patch, which takes care of re-hiding inline-tasks
properly. finally it is possible to work with longer inline tasks
without them getting always in the way.

just bump me, if anything is not to your liking

cheers,
jonas

From 447d528263728ea56f390ae8dfdfa99880d6ccb4 Mon Sep 17 00:00:00 2001
From: Jonas Hoersch <address@hidden>
Date: Wed, 30 Oct 2013 15:39:33 +0100
Subject: [PATCH] org-inlinetask: hide inline tasks in 'children visibility
 state

* lisp/org.el (org-cycle-hide-inline-tasks): re-hide inline tasks when
  switching to 'children visibility state.

TINYCHANGE
---
 lisp/org.el | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 4f3bf4b..b93f3f4 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -7074,11 +7074,19 @@ open and agenda-wise Org files."
          (org-flag-drawer t))))))
 
 (defun org-cycle-hide-inline-tasks (state)
-  "Re-hide inline task when switching to 'contents visibility state."
-  (when (and (eq state 'contents)
-            (boundp 'org-inlinetask-min-level)
-            org-inlinetask-min-level)
-    (hide-sublevels (1- org-inlinetask-min-level))))
+  "Re-hide inline tasks when switching to 'contents or 'children
+visibility state."
+  (cond ((eq state 'contents)
+        (when (and (boundp 'org-inlinetask-min-level)
+                   org-inlinetask-min-level)
+          (hide-sublevels (1- org-inlinetask-min-level))))
+       ((eq state 'children)
+        (when (featurep 'org-inlinetask)
+          (save-excursion
+            (while (and (outline-next-heading)
+                        (org-inlinetask-at-task-p))
+              (org-inlinetask-toggle-visibility)
+              (org-inlinetask-goto-end)))))))
 
 (defun org-flag-drawer (flag)
   "When FLAG is non-nil, hide the drawer we are within.
-- 
1.8.4

Attachment: pgp2_x2kQs0ot.pgp
Description: PGP signature


reply via email to

[Prev in Thread] Current Thread [Next in Thread]