From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: patch for htmlize.el Date: Tue, 21 May 2013 08:49:55 +0200 Message-ID: <4132A8D4-6784-4686-BF01-A72BEDFC66CC@gmail.com> References: <878v39ur07.fsf@gmail.com> Mime-Version: 1.0 (Mac OS X Mail 6.3 \(1503\)) Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([208.118.235.92]:54871) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UegOX-00049m-Or for emacs-orgmode@gnu.org; Tue, 21 May 2013 02:50:02 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UegOV-0000uQ-UW for emacs-orgmode@gnu.org; Tue, 21 May 2013 02:50:01 -0400 Received: from ezel.ic.uva.nl ([146.50.108.158]:39489) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UegOV-0000uG-Kt for emacs-orgmode@gnu.org; Tue, 21 May 2013 02:49:59 -0400 In-Reply-To: <878v39ur07.fsf@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Eric Schulte Cc: Org Mode Mailing List Yes, that is all right at least for now, please go ahead. Thanks! - Carsten On 21 mei 2013, at 02:16, Eric Schulte wrote: > Hi, >=20 > I'd like to commit the following patch which improves htmlize's = handling > of svg image overlays. I couldn't find an upstream for htmlize, is it > appropriate to patch htmlize in the Org-mode source tree? >=20 > Thanks, >=20 > =46rom 4611b177def45bf23c2cfb1caf0b12baa5e0e91b Mon Sep 17 00:00:00 = 2001 > From: Eric Schulte > Date: Mon, 20 May 2013 18:15:05 -0600 > Subject: [PATCH] export inline svg images with htmlize >=20 > --- > contrib/lisp/htmlize.el | 10 ++++++---- > 1 file changed, 6 insertions(+), 4 deletions(-) >=20 > diff --git a/contrib/lisp/htmlize.el b/contrib/lisp/htmlize.el > index c03d605..3bf5949 100644 > --- a/contrib/lisp/htmlize.el > +++ b/contrib/lisp/htmlize.el > @@ -601,10 +601,12 @@ list." > (htmlize-attr-escape (file-relative-name file)) > alt-attr))) > ((plist-get imgprops :data) > - (format "" > - (or (plist-get imgprops :type) "") > - (base64-encode-string (plist-get imgprops :data)) > - alt-attr))))) > + (if (equalp (plist-get imgprops :type) 'svg) > + (plist-get imgprops :data) > + (format "" > + (or (plist-get imgprops :type) "") > + (base64-encode-string (plist-get imgprops :data)) > + alt-attr)))))) >=20 > (defconst htmlize-ellipsis "...") > (put-text-property 0 (length htmlize-ellipsis) 'htmlize-ellipsis t = htmlize-ellipsis) > --=20 > 1.8.2.3 >=20 >=20 > --=20 > Eric Schulte > http://cs.unm.edu/~eschulte