Re: Enhancing the Org/Gnus experience

From: "Sébastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org
Subject: Re: Enhancing the Org/Gnus experience
Date: Thu, 04 Nov 2010 12:18:13 +0100	[thread overview]
Message-ID: <8062wdcp6y.fsf@mundaneum.com> (raw)
In-Reply-To: 874oc2z2uv.fsf@gmail.com

Hi Eric (and Dan),

"Eric Schulte" wrote:
> This is really great.  I finally folded it into my gnus setup, and while
> it looks great when it works

Great you love it. I'm *VERY* pleased. Moreover, having no reaction on that
(and on some other posts[1]), I thought I'd been kill-filed ;-)[2]

> I was getting frequent errors throw by the org-mode fontification engine
> recursing too deeply. I've changed it to the following which augments what
> you sent with some simple error handling.

I _never_ observed problems in my case. Anyway, adding such a protection is
the code is a great addition. Thanks!

I've just singed the FSF papers. Once received by the FSF, I'll propagate your
update onto the Gnus newsgroup.

> ** Org-mode code block fontification
> Correctly fontify Org-mode attachments
> #+begin_src emacs-lisp
>     (add-to-list 'mailcap-mime-extensions '(".org" . "text/org"))
>     (add-to-list 'mm-automatic-display "text/org")
>     
>     (add-to-list 'mm-inline-media-tests
>                  '("text/org" my-display-org-inline
>                    (lambda (el) t)))
>     
>     (defun my-display-org-inline (handle)
>       (condition-case nil
>           (mm-display-inline-fontify handle 'org-mode)
>         (error
>          (insert (with-temp-buffer (mm-insert-part handle) (buffer-string))
>                  "\n"))))
> #+end_src
>
> Update =org-src-lang-modes= to provide some leeway for posters
> #+begin_src emacs-lisp
>   (add-to-list 'org-src-lang-modes
>                '("elisp" . emacs-lisp))
>   (add-to-list 'org-src-lang-modes
>                '("emacs_lisp" . emacs-lisp))
> #+end_src
>
> Fontify code blocks in the text of messages
> #+begin_src emacs-lisp
>   (defun my-mm-org-babel-src-extract ()
>     (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) '("text/org")))
>   
>   (add-to-list 'mm-uu-type-alist
>                '(org-src-block
>                  "^[ \t]*#\\+begin_"
>                  "^[ \t]*#\\+end_"
>                  my-mm-org-babel-src-extract
>                  nil))
>   
>   (mm-uu-configure)
> #+end_src

When I have a bit of time (not directly ;-(), I will try adding missing bits:

- colorization of such =org-verbatim= strings, and
- of the =:results= "blocks" or lines.

A difficulty, maybe, for the latter is the absence of explicit marker. Not
that true: it's a newline...

When that will be done, we will have a real Org experience when reading mails
with Gnus. I love all this tools.

Best regards,
  Seb

Footnotes:
[1] I will send an updated version on the one about sh session.
[2] Just kidding. Using org-footnote BTW.
-- 
Sébastien Vauban

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode