"Eric Schulte" <schulte.e...@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.r...@emma-stil.de, sebastian_r...@gmx.de Http: www.emma-stil.de _______________________________________________ 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
