From mboxrd@z Thu Jan  1 00:00:00 1970
From: James Harkins <jamshark70@gmail.com>
Subject: Re: HTML export doesn't convert quote before footnote
Date: Thu, 09 Jan 2014 11:03:25 +0800
Message-ID: <8b247f17-020f-4738-8198-f864301f4bd7@dewdrop-world.net>
References: <2dca3d53-10f1-4ead-8106-eb5fe050a656@dewdrop-world.net>
	<87lhyqbi8r.fsf@gmail.com>
	<CAFniQ7VQdZajQWCpgxMDnO26xa5k9SbV6G=zJMQFXP5rx2BWag@mail.gmail.com>
	<87d2k2bfak.fsf@gmail.com>
	<3388e888-389f-4963-843f-4c3508e59bd8@dewdrop-world.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:46650)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <jamshark70@gmail.com>) id 1W15uL-00038I-D6
	for emacs-orgmode@gnu.org; Wed, 08 Jan 2014 22:03:53 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <jamshark70@gmail.com>) id 1W15uD-0003Ia-0S
	for emacs-orgmode@gnu.org; Wed, 08 Jan 2014 22:03:45 -0500
Received: from mail-pa0-x230.google.com ([2607:f8b0:400e:c03::230]:35284)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <jamshark70@gmail.com>) id 1W15uC-0003IE-KV
	for emacs-orgmode@gnu.org; Wed, 08 Jan 2014 22:03:36 -0500
Received: by mail-pa0-f48.google.com with SMTP id lf10so390810pab.35
	for <emacs-orgmode@gnu.org>; Wed, 08 Jan 2014 19:03:35 -0800 (PST)
Received: from localhost ([219.136.3.109]) by mx.google.com with ESMTPSA id
	jn12sm5808069pbd.37.2014.01.08.19.03.32 for <emacs-orgmode@gnu.org>
	(version=TLSv1.1 cipher=ECDHE-RSA-RC4-SHA bits=128/128);
	Wed, 08 Jan 2014 19:03:34 -0800 (PST)
In-Reply-To: <3388e888-389f-4963-843f-4c3508e59bd8@dewdrop-world.net>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: orgmode <emacs-orgmode@gnu.org>

On Thursday, January 9, 2014 10:13:32 AM HKT, James Harkins wrote:
> OK, I'll work around it on my side.

Continuing... I've tried to write a filter for this, but I'm stuck on=20
choosing strings based on the backend name.

(cdr (assoc
=09=09=09  (org-export-backend-name backend)
=09=09=09  '((latex . "\"\\footnote") (html . "\"<sup><a"))))

Apparently org-export-backend-name returns neither a symbol nor a string.

What does it return? Or, what is the right way to look up a value based on=20=

the backend name?

hjh

(defun hjh-quote-before-footnote (contents backend info)
  "Convert '\"[fn' to the appropriate closing quote per backend."
  (when (and (and
=09      (org-export-derived-backend-p backend 'latex 'html)
=09      (plist-get info :with-smart-quotes))
=09     (let ((teststring
=09=09    (cdr (assoc
=09=09=09  (org-export-backend-name backend)
=09=09=09  '((latex . "\"\\footnote") (html . "\"<sup><a"))))))
=09     (string-match teststring contents)))
    (let ((replacements '((latex . "''[fn") (html . "&rdquo;[fn")))
=09  (replacement (assoc (org-export-backend-name backend) replacements)))
      (replace-match (cdr replacement) nil nil contents))))