emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Carsten Dominik <carsten.dominik@gmail.com>
To: Sebastian Rose <sebastian_rose@gmx.de>
Cc: emacs-orgmode@gnu.org
Subject: Re: Cycling visibility of blocks
Date: Tue, 26 May 2009 19:26:27 +0200	[thread overview]
Message-ID: <8D2C1863-8174-47C2-A195-3887FB10374F@gmail.com> (raw)
In-Reply-To: <87ljokncfd.fsf@kassiopeya.MSHEIMNETZ>


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

  reply	other threads:[~2009-05-26 17:26 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
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 [this message]
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

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=8D2C1863-8174-47C2-A195-3887FB10374F@gmail.com \
    --to=carsten.dominik@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=sebastian_rose@gmx.de \
    /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 public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).