Cycling visibility of blocks

Cycling visibility of blocks

[emacs-orgmode]

Hello,

I perhaps have missed it in the manual, but, would it be possible to
cycle visibility in blocks like in the example below ?

#+BEGIN_something
blah blah blah
blah
blah blah
and so much blah yet to come
#+END_something

becomes

#+BEGIN_something
...
#+END_something

It could help when you have those big BEGIN_SRC getting in the way.

Thanks.

-- 
Nicolas Goaziou

Re: Cycling visibility of blocks

[Eric Schulte]

[-- Attachment #1: Type: text/plain, Size: 323 bytes --]

Hi,

The attached file should implement this feature, just load the file and
then press tab while at the beginning of a source block.  Note that it
requires a newish version of org-mode which includes the
`org-tab-first-hook' variable.

Maybe this would make sense for all org blocks, not just src blocks?

Cheers -- Eric


[-- Attachment #2: org-block-hide.el --]
[-- Type: application/emacs-lisp, Size: 1577 bytes --]

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



emacs-orgmode@gnu.org writes:

> Hello,
>
> I perhaps have missed it in the manual, but, would it be possible to
> cycle visibility in blocks like in the example below ?
>
> #+BEGIN_something
> blah blah blah
> blah
> blah blah
> and so much blah yet to come
> #+END_something
>
> becomes
>
> #+BEGIN_something
> ...
> #+END_something
>
> It could help when you have those big BEGIN_SRC getting in the way.
>
> Thanks.

[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

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

Re: Cycling visibility of blocks

[Sebastian Rose]

Wow, this is great!

And yes, it indeed makes sense to hide other blocks too, e.g. big ditaa
blocks or #+BEGIN_HTML when working on LaTeX stuff (here a `S-TAB'
action would be great, that hides all blocks of that sort at once).

In fact, I changed the `org-block-hide-src-block-regexp' to

    "#\\+begin_\\w+ \\(.+\\)[ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_src"


Thanks for this wonderfull snippet!


  Sebastian


"Eric Schulte" <schulte.eric@gmail.com> writes:
> Hi,
>
> The attached file should implement this feature, just load the file and
> then press tab while at the beginning of a source block.  Note that it
> requires a newish version of org-mode which includes the
> `org-tab-first-hook' variable.
>
> Maybe this would make sense for all org blocks, not just src blocks?
>
> Cheers -- Eric
>
>
> ;;; org-block-hide --- hide src blocks in org-mode files
>
> (defvar org-block-hide-src-block-regexp "#\\+begin_src \\(.+\\)[ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_src")
>
> (defun org-block-hide-ui-src-block-cycle-maybe ()
>   (let ((case-fold-search t))
>     (if (save-excursion
>           (beginning-of-line 1)
>           (looking-at org-block-hide-src-block-regexp))
>         (progn (call-interactively 'org-block-hide-ui-src-block-cycle)
>                t) ;; to signal that we took action
>       nil))) ;; to signal that we did not
>
> (defun org-block-hide-ui-src-block-cycle ()
>   "Cycle the visibility of the current source code block"
>   (interactive)
>   ;; should really do this once in an (org-mode hook)
>   (add-to-invisibility-spec '(org-block-hide-ui . t))
>   (message "trying out source block")
>   (save-excursion
>     (beginning-of-line)
>     (if (re-search-forward org-block-hide-src-block-regexp nil t)
>         (let ((start (- (match-beginning 4) 1)) ;; beginning of body
>               (end (match-end 0))) ;; end of entire body
>           (if (memq t (mapcar (lambda (overlay)
>                                 (eq (overlay-get overlay 'invisible) 'org-block-hide-ui))
>                               (overlays-at start)))
>               (remove-overlays start end 'invisible 'org-block-hide-ui)
>             (overlay-put (make-overlay start end) 'invisible 'org-block-hide-ui)))
>       (error "not looking at a source block"))))
>
> ;; org-tab-after-check-for-cycling-hook
> (add-hook 'org-tab-first-hook 'org-block-hide-ui-src-block-cycle-maybe)
>
>
> emacs-orgmode@gnu.org writes:
>
>> Hello,
>>
>> I perhaps have missed it in the manual, but, would it be possible to
>> cycle visibility in blocks like in the example below ?
>>
>> #+BEGIN_something
>> blah blah blah
>> blah
>> blah blah
>> and so much blah yet to come
>> #+END_something
>>
>> becomes
>>
>> #+BEGIN_something
>> ...
>> #+END_something
>>
>> It could help when you have those big BEGIN_SRC getting in the way.
>>
>> Thanks.
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Cycling visibility of blocks

[emacs-orgmode]

Eric Schulte <schulte.eric@gmail.com> writes:

> The attached file should implement this feature, just load the file and
> then press tab while at the beginning of a source block.  Note that it
> requires a newish version of org-mode which includes the
> `org-tab-first-hook' variable.

Very nice ! Thank you.

> Maybe this would make sense for all org blocks, not just src blocks?

Sure, begin_src was just an example. It can be very useful in so many
cases.

-- 
Nicolas Goaziou

Re: Cycling visibility of blocks

[Carsten Dominik]

On May 25, 2009, at 3:18 AM, Sebastian Rose wrote:

> Wow, this is great!
>
> And yes, it indeed makes sense to hide other blocks too, e.g. big  
> ditaa
> blocks or #+BEGIN_HTML when working on LaTeX stuff (here a `S-TAB'
> action would be great, that hides all blocks of that sort at once).
>
> In fact, I changed the `org-block-hide-src-block-regexp' to
>
>    "#\\+begin_\\w+ \\(.+\\)[ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^ 
> \000]+?\\)#\\+end_src"


:-)  This is not going to work.  You need to capture the block type  
into a regexp group and then use a back reference like "#\\+end_\\1"  
at the end.

    "#\\+begin_\\w+ \\(.+\\)[ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^ 
\000]+?\\)#\\+end_src"

- Carsten

>
>
> Thanks for this wonderfull snippet!
>
>
>  Sebastian
>
>
> "Eric Schulte" <schulte.eric@gmail.com> writes:
>> Hi,
>>
>> The attached file should implement this feature, just load the file  
>> and
>> then press tab while at the beginning of a source block.  Note that  
>> it
>> requires a newish version of org-mode which includes the
>> `org-tab-first-hook' variable.
>>
>> Maybe this would make sense for all org blocks, not just src blocks?
>>
>> Cheers -- Eric
>>
>>
>> ;;; org-block-hide --- hide src blocks in org-mode files
>>
>> (defvar org-block-hide-src-block-regexp "#\\+begin_src \\(.+\\) 
>> [ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_src")
>>
>> (defun org-block-hide-ui-src-block-cycle-maybe ()
>>  (let ((case-fold-search t))
>>    (if (save-excursion
>>          (beginning-of-line 1)
>>          (looking-at org-block-hide-src-block-regexp))
>>        (progn (call-interactively 'org-block-hide-ui-src-block-cycle)
>>               t) ;; to signal that we took action
>>      nil))) ;; to signal that we did not
>>
>> (defun org-block-hide-ui-src-block-cycle ()
>>  "Cycle the visibility of the current source code block"
>>  (interactive)
>>  ;; should really do this once in an (org-mode hook)
>>  (add-to-invisibility-spec '(org-block-hide-ui . t))
>>  (message "trying out source block")
>>  (save-excursion
>>    (beginning-of-line)
>>    (if (re-search-forward org-block-hide-src-block-regexp nil t)
>>        (let ((start (- (match-beginning 4) 1)) ;; beginning of body
>>              (end (match-end 0))) ;; end of entire body
>>          (if (memq t (mapcar (lambda (overlay)
>>                                (eq (overlay-get overlay 'invisible)  
>> 'org-block-hide-ui))
>>                              (overlays-at start)))
>>              (remove-overlays start end 'invisible 'org-block-hide- 
>> ui)
>>            (overlay-put (make-overlay start end) 'invisible 'org- 
>> block-hide-ui)))
>>      (error "not looking at a source block"))))
>>
>> ;; org-tab-after-check-for-cycling-hook
>> (add-hook 'org-tab-first-hook 'org-block-hide-ui-src-block-cycle- 
>> maybe)
>>
>>
>> emacs-orgmode@gnu.org writes:
>>
>>> Hello,
>>>
>>> I perhaps have missed it in the manual, but, would it be possible to
>>> cycle visibility in blocks like in the example below ?
>>>
>>> #+BEGIN_something
>>> blah blah blah
>>> blah
>>> blah blah
>>> and so much blah yet to come
>>> #+END_something
>>>
>>> becomes
>>>
>>> #+BEGIN_something
>>> ...
>>> #+END_something
>>>
>>> It could help when you have those big BEGIN_SRC getting in the way.
>>>
>>> Thanks.
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Remember: use `Reply All' to send replies to the list.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Cycling visibility of blocks

[Sebastian Rose]

Carsten Dominik <carsten.dominik@gmail.com> writes:
> On May 25, 2009, at 3:18 AM, Sebastian Rose wrote:
>
>> Wow, this is great!
>>
>> And yes, it indeed makes sense to hide other blocks too, e.g. big ditaa
>> blocks or #+BEGIN_HTML when working on LaTeX stuff (here a `S-TAB'
>> action would be great, that hides all blocks of that sort at once).
>>
>> In fact, I changed the `org-block-hide-src-block-regexp' to
>>
>>    "#\\+begin_\\w+ \\(.+\\)[ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^
>> \000]+?\\)#\\+end_src"
>
>
> :-)  This is not going to work.  You need to capture the block type into a
> regexp group and then use a back reference like "#\\+end_\\1"  at the end.
>
>    "#\\+begin_\\w+ \\(.+\\)[ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^
> \000]+?\\)#\\+end_src"



aaahh, now that you say this, it does not work anymore ;-(
It seemed to work, but I had several blocks in that file .... Now it
doesn't ... I'll have to read the manual again ...


Puuuhaa - I'll never ever love regexps in elisp :-D
OK, I found it works now if I change 

     (let ((start (- (match-beginning 4) 1)) ;; beginning of body
to
     (let ((start (- (match-beginning 5) 1)) ;; beginning of body


and use 

  "#\\+begin_\\([^ ]+\\) \\(.+\\)[ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_\\1"


:)


  Sebastian


>
> - Carsten
>
>>
>>
>> Thanks for this wonderfull snippet!
>>
>>
>>  Sebastian
>>
>>
>> "Eric Schulte" <schulte.eric@gmail.com> writes:
>>> Hi,
>>>
>>> The attached file should implement this feature, just load the file and
>>> then press tab while at the beginning of a source block.  Note that it
>>> requires a newish version of org-mode which includes the
>>> `org-tab-first-hook' variable.
>>>
>>> Maybe this would make sense for all org blocks, not just src blocks?
>>>
>>> Cheers -- Eric
>>>
>>>
>>> ;;; org-block-hide --- hide src blocks in org-mode files
>>>
>>> (defvar org-block-hide-src-block-regexp "#\\+begin_src \\(.+\\)
>>> [ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_src")
>>>
>>> (defun org-block-hide-ui-src-block-cycle-maybe ()
>>>  (let ((case-fold-search t))
>>>    (if (save-excursion
>>>          (beginning-of-line 1)
>>>          (looking-at org-block-hide-src-block-regexp))
>>>        (progn (call-interactively 'org-block-hide-ui-src-block-cycle)
>>>               t) ;; to signal that we took action
>>>      nil))) ;; to signal that we did not
>>>
>>> (defun org-block-hide-ui-src-block-cycle ()
>>>  "Cycle the visibility of the current source code block"
>>>  (interactive)
>>>  ;; should really do this once in an (org-mode hook)
>>>  (add-to-invisibility-spec '(org-block-hide-ui . t))
>>>  (message "trying out source block")
>>>  (save-excursion
>>>    (beginning-of-line)
>>>    (if (re-search-forward org-block-hide-src-block-regexp nil t)
>>>        (let ((start (- (match-beginning 4) 1)) ;; beginning of body
>>>              (end (match-end 0))) ;; end of entire body
>>>          (if (memq t (mapcar (lambda (overlay)
>>>                                (eq (overlay-get overlay 'invisible)
>>> org-block-hide-ui))
>>>                              (overlays-at start)))
>>>              (remove-overlays start end 'invisible 'org-block-hide-
>>> ui)
>>>            (overlay-put (make-overlay start end) 'invisible 'org-
>>> block-hide-ui)))
>>>      (error "not looking at a source block"))))
>>>
>>> ;; org-tab-after-check-for-cycling-hook
>>> (add-hook 'org-tab-first-hook 'org-block-hide-ui-src-block-cycle-
>>> maybe)
>>>
>>>
>>> emacs-orgmode@gnu.org writes:
>>>
>>>> Hello,
>>>>
>>>> I perhaps have missed it in the manual, but, would it be possible to
>>>> cycle visibility in blocks like in the example below ?
>>>>
>>>> #+BEGIN_something
>>>> blah blah blah
>>>> blah
>>>> blah blah
>>>> and so much blah yet to come
>>>> #+END_something
>>>>
>>>> becomes
>>>>
>>>> #+BEGIN_something
>>>> ...
>>>> #+END_something
>>>>
>>>> It could help when you have those big BEGIN_SRC getting in the way.
>>>>
>>>> Thanks.
>>> _______________________________________________
>>> Emacs-orgmode mailing list
>>> Remember: use `Reply All' to send replies to the list.
>>> Emacs-orgmode@gnu.org
>>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>
>>
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Remember: use `Reply All' to send replies to the list.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>

-- 
Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449 Hannover
Tel.:  +49 (0)511 - 36 58 472
Fax:   +49 (0)1805 - 233633 - 11044
mobil: +49 (0)173 - 83 93 417
Email: s.rose@emma-stil.de, sebastian_rose@gmx.de
Http:  www.emma-stil.de

Re: Cycling visibility of blocks

[Eric Schulte]

[-- Attachment #1: Type: text/plain, Size: 539 bytes --]

Sebastian Rose <sebastian_rose@gmx.de> writes:

>
> and use 
>
>   "#\\+begin_\\([^ ]+\\) \\(.+\\)[ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_\\1"
>
>
> :)
>
>
>   Sebastian
>

Hi Sebastian, Thanks for the update!

I've applied a slightly changed version of your regexp, and this is now
working for all block types (the resulting file is attached).  Where
could this file be saved?  The contrib directory seems like overkill for
such a small piece of functionality maybe I should post it up somewhere
on worg?

Thanks -- Eric


[-- Attachment #2: org-block-hide.el --]
[-- Type: application/emacs-lisp, Size: 1575 bytes --]

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

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

Re: Cycling visibility of blocks

[Sebastian Rose]

"Eric Schulte" <schulte.eric@gmail.com> writes:
> I've applied a slightly changed version of your regexp, and this is now
> working for all block types (the resulting file is attached).  Where
> could this file be saved?  The contrib directory seems like overkill for
> such a small piece of functionality maybe I should post it up somewhere
> on worg?


Hmm - why don't you juste start a `Snippets' section? I don't mind Worg
to grow.
Didn't you see http://wiki.github.com/SebastianRose/org-search.php? Not
doing very much yet, but it's under way :) 


Another good place would be inside Org-mode's core IMHO.


   Sebastian


> ;;; org-block-hide.el --- hide blocks in org-mode files
>
> (defvar org-block-hide-src-block-regexp
>   "#\\+begin_\\([^ ]+\\) ?\\([ \t]+\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_\\1")
>
> (defun org-block-hide-src-block-cycle-maybe ()
>   (let ((case-fold-search t))
>     (if (save-excursion
>           (beginning-of-line 1)
>           (looking-at org-block-hide-src-block-regexp))
>         (progn (call-interactively 'org-block-hide-src-block-cycle)
>                t) ;; to signal that we took action
>       nil))) ;; to signal that we did not
>
> (defun org-block-hide-src-block-cycle ()
>   "Cycle the visibility of the current block"
>   (interactive)
>   ;; should really do this once in an (org-mode hook)
>   (add-to-invisibility-spec '(org-block-hide . t))
>   (message "trying out source block")
>   (save-excursion
>     (beginning-of-line)
>     (if (re-search-forward org-block-hide-src-block-regexp nil t)
>         (let ((start (- (match-beginning 4) 1)) ;; beginning of body
>               (end (match-end 0))) ;; end of entire body
>           (if (memq t (mapcar (lambda (overlay)
>                                 (eq (overlay-get overlay 'invisible) 'org-block-hide))
>                               (overlays-at start)))
>               (remove-overlays start end 'invisible 'org-block-hide)
>             (overlay-put (make-overlay start end) 'invisible 'org-block-hide)))
>       (error "not looking at a source block"))))
>
> ;; org-tab-after-check-for-cycling-hook
> (add-hook 'org-tab-first-hook 'org-block-hide-src-block-cycle-maybe)
>
> ;;; org-block-hide.el ends here

-- 
Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449 Hannover
Tel.:  +49 (0)511 - 36 58 472
Fax:   +49 (0)1805 - 233633 - 11044
mobil: +49 (0)173 - 83 93 417
Email: s.rose@emma-stil.de, sebastian_rose@gmx.de
Http:  www.emma-stil.de

Re: Cycling visibility of blocks

[Sebastian Rose]

"Eric Schulte" <schulte.eric@gmail.com> writes:

ahh - forgot - Carsten: note the unicorns:

http://cloud.github.com/downloads/SebastianRose/org-search.php/speedbar1.png

:-D

  Sebastian

> Sebastian Rose <sebastian_rose@gmx.de> writes:
>
>>
>> and use 
>>
>>   "#\\+begin_\\([^ ]+\\) \\(.+\\)[ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_\\1"
>>
>>
>> :)
>>
>>
>>   Sebastian
>>
>
> Hi Sebastian, Thanks for the update!
>
> I've applied a slightly changed version of your regexp, and this is now
> working for all block types (the resulting file is attached).  Where
> could this file be saved?  The contrib directory seems like overkill for
> such a small piece of functionality maybe I should post it up somewhere
> on worg?
>
> Thanks -- Eric
>
>

Re: Cycling visibility of blocks

[Carsten Dominik]

That does look cool!

- Carsten

On May 25, 2009, at 10:43 PM, Sebastian Rose wrote:

> "Eric Schulte" <schulte.eric@gmail.com> writes:
>
> ahh - forgot - Carsten: note the unicorns:
>
> http://cloud.github.com/downloads/SebastianRose/org-search.php/speedbar1.png
>
> :-D
>
>  Sebastian
>
>> Sebastian Rose <sebastian_rose@gmx.de> writes:
>>
>>>
>>> and use
>>>
>>>  "#\\+begin_\\([^ ]+\\) \\(.+\\)[ \t]*\\([ \t]+\\([^\n]+\\)\\)?\n\\ 
>>> ([^\000]+?\\)#\\+end_\\1"
>>>
>>>
>>> :)
>>>
>>>
>>>  Sebastian
>>>
>>
>> Hi Sebastian, Thanks for the update!
>>
>> I've applied a slightly changed version of your regexp, and this is  
>> now
>> working for all block types (the resulting file is attached).  Where
>> could this file be saved?  The contrib directory seems like  
>> overkill for
>> such a small piece of functionality maybe I should post it up  
>> somewhere
>> on worg?
>>
>> Thanks -- Eric
>>
>>

Re: Cycling visibility of blocks

[Carsten Dominik]

On May 25, 2009, at 10:40 PM, Sebastian Rose wrote:

> "Eric Schulte" <schulte.eric@gmail.com> writes:
>> I've applied a slightly changed version of your regexp, and this is  
>> now
>> working for all block types (the resulting file is attached).  Where
>> could this file be saved?  The contrib directory seems like  
>> overkill for
>> such a small piece of functionality maybe I should post it up  
>> somewhere
>> on worg?
>
>
> Hmm - why don't you juste start a `Snippets' section? I don't mind  
> Worg
> to grow.
> Didn't you see http://wiki.github.com/SebastianRose/org-search.php?  
> Not
> doing very much yet, but it's under way :)
>
>
> Another good place would be inside Org-mode's core IMHO.

I would be happy to integrate this into the core.  Eric, you agree?

- Carsten

>
>
>   Sebastian
>
>
>> ;;; org-block-hide.el --- hide blocks in org-mode files
>>
>> (defvar org-block-hide-src-block-regexp
>>  "#\\+begin_\\([^ ]+\\) ?\\([ \t]+\\([^\n]+\\)\\)?\n\\([^\000]+?\\)# 
>> \\+end_\\1")
>>
>> (defun org-block-hide-src-block-cycle-maybe ()
>>  (let ((case-fold-search t))
>>    (if (save-excursion
>>          (beginning-of-line 1)
>>          (looking-at org-block-hide-src-block-regexp))
>>        (progn (call-interactively 'org-block-hide-src-block-cycle)
>>               t) ;; to signal that we took action
>>      nil))) ;; to signal that we did not
>>
>> (defun org-block-hide-src-block-cycle ()
>>  "Cycle the visibility of the current block"
>>  (interactive)
>>  ;; should really do this once in an (org-mode hook)
>>  (add-to-invisibility-spec '(org-block-hide . t))
>>  (message "trying out source block")
>>  (save-excursion
>>    (beginning-of-line)
>>    (if (re-search-forward org-block-hide-src-block-regexp nil t)
>>        (let ((start (- (match-beginning 4) 1)) ;; beginning of body
>>              (end (match-end 0))) ;; end of entire body
>>          (if (memq t (mapcar (lambda (overlay)
>>                                (eq (overlay-get overlay 'invisible)  
>> 'org-block-hide))
>>                              (overlays-at start)))
>>              (remove-overlays start end 'invisible 'org-block-hide)
>>            (overlay-put (make-overlay start end) 'invisible 'org- 
>> block-hide)))
>>      (error "not looking at a source block"))))
>>
>> ;; org-tab-after-check-for-cycling-hook
>> (add-hook 'org-tab-first-hook 'org-block-hide-src-block-cycle-maybe)
>>
>> ;;; org-block-hide.el ends here
>
> -- 
> Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449  
> Hannover
> Tel.:  +49 (0)511 - 36 58 472
> Fax:   +49 (0)1805 - 233633 - 11044
> mobil: +49 (0)173 - 83 93 417
> Email: s.rose@emma-stil.de, sebastian_rose@gmx.de
> Http:  www.emma-stil.de

Re: Cycling visibility of blocks

[Eric Schulte]

Carsten Dominik <carsten.dominik@gmail.com> writes:

> On May 25, 2009, at 10:40 PM, Sebastian Rose wrote:
>
>> Another good place would be inside Org-mode's core IMHO.
>
> I would be happy to integrate this into the core.  Eric, you agree?
>
> - Carsten
>

Sounds good to me. -- Eric

Re: Cycling visibility of blocks

[Eric Schulte]

Sebastian Rose <sebastian_rose@gmx.de> writes:

> "Eric Schulte" <schulte.eric@gmail.com> writes:
>> I've applied a slightly changed version of your regexp, and this is now
>> working for all block types (the resulting file is attached).  Where
>> could this file be saved?  The contrib directory seems like overkill for
>> such a small piece of functionality maybe I should post it up somewhere
>> on worg?
>
>
> Hmm - why don't you juste start a `Snippets' section? I don't mind Worg
> to grow.
> Didn't you see http://wiki.github.com/SebastianRose/org-search.php? Not
> doing very much yet, but it's under way :) 
>

I've been tracking it on github, but haven't had a chance to try it out.
While I have a decent amount of experience with Ruby web applications
I've never before used php.  This looks very similar to blorgit[1], my
own org-mode web project.

I'm looking forward to taking a closer look. -- Eric

[1] http://github.com/eschulte/blorgit/tree/master

Re: Cycling visibility of blocks

[Carsten Dominik]

Hello,

Isn't there something wrong with the regexp as the snippet is not
working well when #+END_SOMETHING is followed right away by a new line ?

I mean


#+BEGIN_QUOTE
    Test etn ntes thens hsne htsne nste thnes sne thsne htse nthes
    ehtse hntse hents
#+END_QUOTE  <--- notice the space

Blah blah


is showing the expected behavior when


#+BEGIN_QUOTE
    Test etn ntes thens hsne htsne nste thnes sne thsne htse nthes
    ehtse hntse hents
#+END_QUOTE  <---nothing


actually results in


#+BEGIN_QUOTE
    Test etn ntes thens hsne htsne nste thnes sne thsne htse nthes...
Blah blah


There's no problem when the text within is not split across two line,
though.


-- 
Nicolas Goaziou

Re: Cycling visibility of blocks

[Eric Schulte]

[-- Attachment #1: Type: text/plain, Size: 141 bytes --]

Good catch,

I'm not sure what is causing this problem, but the attached patch which
changes the regexp seems to solve it.

Thanks -- Eric



[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: block-hide-regexp.patch --]
[-- Type: text/x-patch, Size: 515 bytes --]

diff --git a/lisp/org.el b/lisp/org.el
index 1c3dfe5..6792bed 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5146,8 +5146,7 @@ Optional argument N means, put the headline into the Nth line of the window."
 ;;; Folding of blocks
 
 (defconst org-block-regexp
-
-  "^[ \t]*#\\+begin_\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_\\1"
+  "^[ \t]*#\\+begin_\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\\)#\\+end_\\1[ \t]?"
   "Regular expression for hiding blocks.")
 
 (defvar org-hide-block-overlays nil

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





Carsten Dominik <carsten.dominik@gmail.com> writes:

> Hello,
>
> Isn't there something wrong with the regexp as the snippet is not
> working well when #+END_SOMETHING is followed right away by a new line ?
>
> I mean
>
>
> #+BEGIN_QUOTE
>     Test etn ntes thens hsne htsne nste thnes sne thsne htse nthes
>     ehtse hntse hents
> #+END_QUOTE  <--- notice the space
>
> Blah blah
>
>
> is showing the expected behavior when
>
>
> #+BEGIN_QUOTE
>     Test etn ntes thens hsne htsne nste thnes sne thsne htse nthes
>     ehtse hntse hents
> #+END_QUOTE  <---nothing
>
>
> actually results in
>
>
> #+BEGIN_QUOTE
>     Test etn ntes thens hsne htsne nste thnes sne thsne htse nthes...
> Blah blah
>
>
> There's no problem when the text within is not split across two line,
> though.

[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

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

Re: Cycling visibility of blocks

[Nicolas Goaziou]

Hum,

1. My apologies for the From: header in my previous post, I just
   realized I had messed up badly with my gnus-posting-style variable;
2. While I'm at it: two line --> two lines.

-- 
Nicolas Goaziou

Re: Cycling visibility of blocks

[Carsten Dominik]

Applied, thanks.

- Carsten

On Jun 2, 2009, at 6:47 PM, Eric Schulte wrote:

> Good catch,
>
> I'm not sure what is causing this problem, but the attached patch  
> which
> changes the regexp seems to solve it.
>
> Thanks -- Eric
>
>
> diff --git a/lisp/org.el b/lisp/org.el
> index 1c3dfe5..6792bed 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -5146,8 +5146,7 @@ Optional argument N means, put the headline  
> into the Nth line of the window."
> ;;; Folding of blocks
>
> (defconst org-block-regexp
> -
> -  "^[ \t]*#\\+begin_\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\ 
> \)#\\+end_\\1"
> +  "^[ \t]*#\\+begin_\\([^ \n]+\\)\\(\\([^\n]+\\)\\)?\n\\([^\000]+?\ 
> \)#\\+end_\\1[ \t]?"
>   "Regular expression for hiding blocks.")
>
> (defvar org-hide-block-overlays nil
>
>
>
>
> Carsten Dominik <carsten.dominik@gmail.com> writes:
>
>> Hello,
>>
>> Isn't there something wrong with the regexp as the snippet is not
>> working well when #+END_SOMETHING is followed right away by a new  
>> line ?
>>
>> I mean
>>
>>
>> #+BEGIN_QUOTE
>>    Test etn ntes thens hsne htsne nste thnes sne thsne htse nthes
>>    ehtse hntse hents
>> #+END_QUOTE  <--- notice the space
>>
>> Blah blah
>>
>>
>> is showing the expected behavior when
>>
>>
>> #+BEGIN_QUOTE
>>    Test etn ntes thens hsne htsne nste thnes sne thsne htse nthes
>>    ehtse hntse hents
>> #+END_QUOTE  <---nothing
>>
>>
>> actually results in
>>
>>
>> #+BEGIN_QUOTE
>>    Test etn ntes thens hsne htsne nste thnes sne thsne htse nthes...
>> Blah blah
>>
>>
>> There's no problem when the text within is not split across two line,
>> though.