Re: Re: Enhancing the Org/Gnus experience

["Eric Schulte" <schulte.eric@gmail.com>]

Sébastien Vauban <wxhgmqzgwmuf@spammotel.com> writes:

> 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!
>

Hmm, I wonder what the difference could be in our setups.

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

That sounds great.

>
>
>> ** 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.

I wonder if the mechanism used by gnus for underlining and italics could
easily be extended for verbatim markers...

>
> 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.
>

Agreed, I'm already finding the two to be a very comfortable pair.

>
> Best regards,
>   Seb
>
> Footnotes:
> [1] I will send an updated version on the one about sh session.

Sounds good.  I often miss emails which don't have [Babel] in the
subject string.  Also, I currently have a list of >10 emails in my
lists.babel folder marked for followup that I simply haven't had time to
address.  I know that at least one of those is from you.

Cheers -- Eric

> 
> [2] Just kidding. Using org-footnote BTW.