Re: Cycling visibility of blocks

From: Sebastian Rose <sebastian_rose@gmx.de>
To: Eric Schulte <schulte.eric@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Cycling visibility of blocks
Date: Mon, 25 May 2009 03:18:57 +0200	[thread overview]
Message-ID: <87ljomnfni.fsf@kassiopeya.MSHEIMNETZ> (raw)
In-Reply-To: <m2iqjqun0h.fsf@gmail.com> (Eric Schulte's message of "Sun, 24 May 2009 15:58:06 -0700")

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