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.e...@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
