RE: org mode in multi-mode

RE: org mode in multi-mode

[Hopsing K]

[-- Attachment #1.1: Type: text/plain, Size: 383 bytes --]

Appended is a patch to implement kind of a "break" on
a child entry:

-- a.org ---
a
a
* s1
b
b
* #
c
c
-----------

When doing a TAB on "* s1" only the "b" section will fold.
"* #" (a heading with name "#") is implemented as a
child that is made visible by default when when unfolding.
It is also shown by default when cycling globally.
Works at all sublevels.

-- Greetings Konrad

[-- Attachment #1.2: Type: text/html, Size: 536 bytes --]

[-- Attachment #2: e.diff --]
[-- Type: text/x-patch, Size: 1806 bytes --]

--- emacs-23.2/lisp/org/org.el	2010-04-04 00:26:08.000000000 +0200
+++ src/c51/mk/org.el	2011-01-02 20:26:10.266860827 +0100
@@ -5245,6 +5245,8 @@
 (defun org-cycle-internal-local ()
   "Do the local cycling action."
   (org-back-to-heading)
+  (cond 
+   ((not (looking-at (concat outline-regexp "\s*#" )))
   (let ((goal-column 0) eoh eol eos level has-children children-skipped)
     ;; First, some boundaries
     (save-excursion
@@ -5318,7 +5320,7 @@
       (hide-subtree)
       (message "FOLDED")
       (setq org-cycle-subtree-status 'folded)
-      (run-hook-with-args 'org-cycle-hook 'folded)))))
+      (run-hook-with-args 'org-cycle-hook 'folded)))))))
 
 ;;;###autoload
 (defun org-global-cycle (&optional arg)
--- emacs-23.2/lisp/outline.el	2010-04-04 00:26:04.000000000 +0200
+++ src/c51/mk/outline.el	2011-01-02 20:35:17.303609833 +0100
@@ -913,8 +913,15 @@
       ;; Then unhide the top level headers.
       (outline-map-region
        (lambda ()
-	 (if (<= (funcall outline-level) levels)
-	     (outline-show-heading)))
+	 (if (<= (funcall outline-level) level)
+	       (if (looking-at (concat outline-regexp "\s*#" ))
+		   (progn
+		     (outline-show-heading )
+		     (show-entry ))
+		 (outline-show-heading))))
+;;       (lambda ()
+;;	 (if (<= (funcall outline-level) levels)
+;;	     (outline-show-heading)))
        beg end)))
   (run-hooks 'outline-view-change-hook))
 
@@ -994,7 +1001,11 @@
       (outline-map-region
        (lambda ()
 	 (if (<= (funcall outline-level) level)
-	     (outline-show-heading)))
+	       (if (looking-at (concat outline-regexp "\s*#" ))
+		   (progn
+		     (outline-show-heading )
+		     (show-entry ))
+		   (outline-show-heading))))
        (point)
        (progn (outline-end-of-subtree)
 	      (if (eobp) (point-max) (1+ (point)))))))

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: RE: org mode in multi-mode

[Bastien]

Hi Hopsing,

Hopsing K <hopsingk@gmail.com> writes:

> Appended is a patch to implement kind of a "break" on
> a child entry:
>
> -- a.org ---
> a
> a
> * s1
> b
> b
> * #
> c
> c
> -----------
>
> When doing a TAB on "* s1" only the "b" section will fold.
> "* #" (a heading with name "#") is implemented as a
> child that is made visible by default when when unfolding.
> It is also shown by default when cycling globally. 
> Works at all sublevels.

Are you actually using this patch yourself?

I couldn't not apply it because of trailing whitespaces.

I'm skeptical about the real benefit, and I'm reluctant to 
add more syntactical complexity to the handling of headline.

I'd be curious to head if anyone else would find this useful.

Thanks!

-- 
 Bastien