From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Eric Schulte Newsgroups: gmane.emacs.devel Subject: Re: BEGIN_SRC..END_SRC Date: Wed, 16 May 2012 09:05:09 -0400 Message-ID: <87zk98qnq1.fsf@gmx.com> References: <871umzrvfw.fsf@gmail.com> <87wr4rqg6g.fsf@gmail.com> <83d36j59gv.fsf@gnu.org> <87r4uz58e3.fsf@sec.modprobe.de> <83aa1n57p4.fsf@gnu.org> <5D17181ED92C4552AE8D4404DD035CA0@us.oracle.com> <87vck8sfyv.fsf@uwakimon.sk.tsukuba.ac.jp> <85obq05aua.fsf@iznogoud.viz> <87r4uvs4ae.fsf@uwakimon.sk.tsukuba.ac.jp> <87397b15u7.fsf@gnu.org> <87ehqk5gc6.fsf@lifelogs.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1337180840 25543 80.91.229.3 (16 May 2012 15:07:20 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 16 May 2012 15:07:20 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed May 16 17:07:19 2012 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1SUfon-0002Fz-Qe for ged-emacs-devel@m.gmane.org; Wed, 16 May 2012 17:07:13 +0200 Original-Received: from localhost ([::1]:34485 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SUfon-0005U8-6V for ged-emacs-devel@m.gmane.org; Wed, 16 May 2012 11:07:13 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:46655) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SUfof-0005Ty-Uy for emacs-devel@gnu.org; Wed, 16 May 2012 11:07:11 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SUfoZ-0006Ym-Ab for emacs-devel@gnu.org; Wed, 16 May 2012 11:07:05 -0400 Original-Received: from mailout-us.gmx.com ([74.208.5.67]:51577 helo=mailout-us.mail.com) by eggs.gnu.org with smtp (Exim 4.71) (envelope-from ) id 1SUfoZ-0006YQ-3g for emacs-devel@gnu.org; Wed, 16 May 2012 11:06:59 -0400 Original-Received: (qmail invoked by alias); 16 May 2012 15:06:55 -0000 Original-Received: from c-174-56-50-60.hsd1.nm.comcast.net (EHLO bagel) [174.56.50.60] by mail.gmx.com (mp-us008) with SMTP; 16 May 2012 11:06:55 -0400 X-Authenticated: #67821228 X-Provags-ID: V01U2FsdGVkX1/Qe7Bm+rrQg6rQY+lPpi9qI7dMVgLXa1o8O1DwE0 xVRiBu/Wq+YwgQ User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.1.50 (gnu/linux) X-Y-GMX-Trusted: 0 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 74.208.5.67 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:150523 Archived-At: Ted Zlatanov writes: > On Wed, 09 May 2012 13:36:33 -0400 Stefan Monnier wrote: > > SM> This said, I find > > SM> (defun sm-foo () > SM> (try that)) > > SM> to be a lot more legible anyway, even without any fancy coloring. > > OK, so inline Markdown markup looks good to you. I think Gnus can > support it together with JIRA-style tags ({code:LANGUAGE}...{code}). > FWIW, I've been using the indented markup implementation from my previous email for a week or so now and it seems fairly robust (it hasn't trashed any mail so far). I'll include it here if there is any interest in using it. After loading the following and re-viewing this email in gnus, the code will be font-locked. ;; -*- emacs-lisp -*- (require 'mm-uu) (defvar indented-src-code-start-regexp "^ .*-\\*- \\(mode:\\)?\\([^[:space:]]+?\\)\\(-mode\\)? -\\*-") (defvar indented-src-code-end-regexp "^ ? ? ?[^[:space:]].*$") (defvar indented-src-code-lang) (defun mm-uu-indented-src-code-test () (setq indented-src-code-lang (and (save-excursion (goto-char (point-at-bol)) (looking-at indented-src-code-start-regexp)) (match-string 2)))) (defun mm-uu-indented-src-code-extract () (if indented-src-code-lang (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) (list (concat (if (string= indented-src-code-lang "emacs-lisp") "application/" "text/x-") indented-src-code-lang) )) (mm-uu-verbatim-marks-extract 0 0))) (add-to-list 'mm-uu-type-alist `(indented-src-code ,indented-src-code-start-regexp ,indented-src-code-end-regexp mm-uu-indented-src-code-extract mm-uu-indented-src-code-test)) (mm-uu-configure) > > Ted > > -- Eric Schulte http://cs.unm.edu/~eschulte