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
next prev parent reply other threads:[~2009-05-25 1:15 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-05-24 21:12 Cycling visibility of blocks emacs-orgmode
2009-05-24 22:58 ` Eric Schulte
2009-05-25 1:18 ` Sebastian Rose [this message]
2009-05-25 7:25 ` Carsten Dominik
2009-05-25 9:19 ` Sebastian Rose
2009-05-25 17:24 ` Eric Schulte
2009-05-25 20:40 ` Sebastian Rose
2009-05-26 17:26 ` Carsten Dominik
2009-05-26 21:22 ` Eric Schulte
2009-06-02 16:36 ` Carsten Dominik
2009-06-02 16:47 ` Eric Schulte
2009-06-02 17:12 ` Carsten Dominik
2009-06-02 16:52 ` Nicolas Goaziou
2009-05-26 21:27 ` Eric Schulte
2009-05-25 20:43 ` Sebastian Rose
2009-05-26 17:25 ` Carsten Dominik
2009-05-25 6:48 ` emacs-orgmode
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87ljomnfni.fsf@kassiopeya.MSHEIMNETZ \
--to=sebastian_rose@gmx.de \
--cc=emacs-orgmode@gnu.org \
--cc=schulte.eric@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.