From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?utf-8?Q?S=C3=A9bastien_Vauban?= Subject: Re: Enhancing the Org/Gnus experience Date: Mon, 18 Oct 2010 22:57:44 +0200 Message-ID: <80vd4z9q2f.fsf@mundaneum.com> References: <80k4lj78ui.fsf@mundaneum.com> <87sk07fl3s.fsf@gmail.com> <80k4lf337a.fsf@mundaneum.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hi, > "Eric Schulte" wrote: >> S=C3=A9bastien Vauban writes: >>> I don't have in mind full fontification like we now have in Org. No: *j= ust >>> the basic yellow background*, so that code blocks are outstanding in any >>> mail, exactly *like it is now* but for the "cut here" markers (or "v+/v= -"). >> >> While we're at it, why not go all the way to full fontification code blo= ck >> fontification? Is the current code in org-src portable enough to be appl= ied >> to this (or maybe be applied whenever org-struct mode is enabled)? > > Yes, we can!? > > No idea... Maybe David could answer on such a topic? > > >>> Though, I don't know where to begin... Can some Org/Gnus expert give a >>> hint? >> >> This strays out of my narrow areas of expertise, but I hereby throw my +1 >> onto the request. > > Playing a bit around, I've succeeded to make it work for the blocks, and > almost for the results. Put this in your .emacs file: --8<---------------cut here---------------start------------->8--- ;; regexp matching TeX groups (setq mm-uu-tex-groups-regexp ".*") (eval-after-load "mm-uu" '(progn (add-to-list 'mailcap-mime-extensions '(".org" . "text/org")) (add-to-list 'mm-automatic-display "text/org") ;; (add-to-list 'mm-inlined-types "text/org") (add-to-list 'mm-inline-media-tests '("text/org" my-display-org-inline identity)) (defun my-display-org-inline (handle) (mm-display-inline-fontify handle 'org-mode)) (defun my-mm-org-babel-src-extract () (mm-make-handle (mm-uu-copy-to-buffer start-point end-point) '("text/org") nil nil (list mm-dissect-disposition (cons 'filename "Org Babel source file")= ))) (add-to-list 'mm-uu-type-alist '(org-babel-block "^#\\+begin_" "^#\\+end_" ;; (lambda nil ;; (mm-uu-verbatim-marks-extract 0 0)) my-mm-org-babel-src-extract nil)) (mm-uu-configure))) --8<---------------cut here---------------end--------------->8--- This is an enhanced version of what I sent previously: here, the identified block is highlighted as an Org-mode buffer. In other words, it's not in yel= low background anymore, but really using the faces you've customized for such an Org-Babel block in a standard Org buffer. > What'd be an good extra is the colorization of such =3Dorg-verbatim=3D st= rings... Still true; no clue for that one... Best regards, Seb --=20 S=C3=A9bastien 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