From: Sebastian Rose <sebastian_rose@gmx.de>
To: Eric Schulte <schulte.eric@gmail.com>
Cc: emacs-orgmode@gnu.org, Carsten Dominik <carsten.dominik@gmail.com>
Subject: Re: Cycling visibility of blocks
Date: Mon, 25 May 2009 22:40:54 +0200 [thread overview]
Message-ID: <87ljokncfd.fsf@kassiopeya.MSHEIMNETZ> (raw)
In-Reply-To: <m27i05cczt.fsf@gmail.com> (Eric Schulte's message of "Mon, 25 May 2009 10:24:06 -0700")
"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
next prev parent reply other threads:[~2009-05-25 20:37 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 [this message]
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=87ljokncfd.fsf@kassiopeya.MSHEIMNETZ \
--to=sebastian_rose@gmx.de \
--cc=carsten.dominik@gmail.com \
--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.