Correctly fontify Org-mode code blocks

[Sébastien Vauban]

Hi Lars,

Lars Magne Ingebrigtsen wrote:
> Sébastien Vauban <wxhgmqzgwmuf@spammotel.com> writes:
>> Sébastien Vauban <wxhgmqzgwmuf@spammotel.com> writes:
>>
>>> I would like to get such Org constructs:
>>>
>>> #+begin_src emacs-lisp
>>> (setq org-latex-to-pdf-process '("sh -v -x texi2dvi -p -b -c -V %f"))
>>> #+end_src
>>>
>>> or
>>>
>>> #+begin_src sh
>>> ls
>>> #+end_src
>>>
>>> to be *highlighted* when viewed (while reading received messages).
>>
>> Does this sound good to you?
>
> Looks good. Could you provide a patch to Gnus?

This is the best final code I currently have:

--8<---------------cut here---------------start------------->8---
      (eval-after-load "mm-uu"
        '(progn
           ;; correctly fontify Org-mode attachments
           (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"))))

           ;; fontify code blocks in the text of messages
           (defun my/mm-org-src-code-block-extract ()
             (mm-make-handle (mm-uu-copy-to-buffer start-point end-point)
                             '("text/org")))

           (add-to-list 'mm-uu-type-alist
                        '(org-src-code-block
                          "^[ \t]*#\\+begin_"
                          "^[ \t]*#\\+end_"
                          my/mm-org-src-code-block-extract
                          nil))

           (add-to-list 'mm-uu-type-alist
                        '(org-meta-line
                          "^[ \t]*#\\+[[:alpha:]]+: "
                          "$"
                          my/mm-org-src-code-block-extract
                          nil))

           (mm-uu-configure)))
--8<---------------cut here---------------end--------------->8---

It is based on my original code, and has been slightly reviewed by Eric
Schulte (adding error handling).


> And do you have copyright assignment papers on file with the FSF? That's
> needed for "substantial changes", which is "more than ten lines of code",
> basically.

I did. I will send a digital copy to you by private email.

Best regards,
  Seb

-- 
Sébastien Vauban