From mboxrd@z Thu Jan 1 00:00:00 1970 From: Suhail Shergill Subject: Re: org-html: subtree specific footnote references Date: Sat, 07 Jul 2012 20:16:56 +0000 Message-ID: <87zk7b72dj.fsf@chaos.shergill.su> References: <87txxjuysd.fsf@chaos.shergill.su> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:43842) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SnbRA-00053e-Ch for emacs-orgmode@gnu.org; Sat, 07 Jul 2012 16:17:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SnbR8-00028A-EN for emacs-orgmode@gnu.org; Sat, 07 Jul 2012 16:17:03 -0400 Received: from mail-ob0-f169.google.com ([209.85.214.169]:52385) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SnbR8-00027Q-4a for emacs-orgmode@gnu.org; Sat, 07 Jul 2012 16:17:02 -0400 Received: by obhx4 with SMTP id x4so15128028obh.0 for ; Sat, 07 Jul 2012 13:17:00 -0700 (PDT) In-Reply-To: <87txxjuysd.fsf@chaos.shergill.su> (Suhail Shergill's message of "Sat, 07 Jul 2012 20:00:34 +0000") 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: Org mode --=-=-= Content-Type: text/plain oops. attached the wrong patch. amended patch follows. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-org-html.el-Make-footnotes-unique-to-an-entry.patch Content-Description: patch >From b9192f5e9a3bbe9620d9f588313d7f62e33135a5 Mon Sep 17 00:00:00 2001 From: Suhail Shergill Date: Sun, 8 Apr 2012 10:49:51 -0400 Subject: [PATCH] org-html.el: Make footnotes unique to an entry * lisp/org-html.el (org-export-as-html): Assign unique ids to footnotes if possible If the entry (or its ancestor) has the CUSTOM_ID property defined, then use that as part of the generated footnote references and definitions. --- lisp/org-html.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/org-html.el b/lisp/org-html.el index c9c9d78..b9123a1 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -1248,6 +1248,9 @@ PUB-DIR is set, use this as the publishing directory." (org-export-have-math nil) (org-export-footnotes-seen nil) (org-export-footnotes-data (org-footnote-all-labels 'with-defs)) + (custom-id (or (org-entry-get nil "CUSTOM_ID" t) "")) + (footnote-def-prefix (format "fn-%s" custom-id)) + (footnote-ref-prefix (format "fnr-%s" custom-id)) (lines (org-split-string (org-export-preprocess-string @@ -1685,7 +1688,7 @@ PUB-DIR is set, use this as the publishing directory." (format (concat "%s" (format org-export-html-footnote-format - (concat "%s"))) + (concat "%s"))) (or (match-string 1 org-line) "") n extra n n) ;; If another footnote is following the ;; current one, add a separator. @@ -1773,7 +1776,8 @@ PUB-DIR is set, use this as the publishing directory." (format (concat "

" (format org-export-html-footnote-format - "%s")) + (concat + "%s"))) n n n) t t org-line))))) ;; Check if the line break needs to be conserved (cond -- 1.7.10 --=-=-= Content-Type: text/plain Suhail Shergill writes: > running org-export-as-html on a subtree is currently problematic if the result > is to be merged into a document which contains html-ized versions of other > subtrees: the footnote references and definitions get clobbered. > > this patch uses the CUSTOM_ID property of the subtree to generate unique > footnote references and definitions. if the subtree does not have the CUSTOM_ID > property set the result is a nop. > > > From 27f89f8bfff334810aba5c33af621e351fa0be79 Mon Sep 17 00:00:00 2001 > From: Suhail Shergill > Date: Sun, 8 Apr 2012 10:49:51 -0400 > Subject: [PATCH] org-html.el: Make footnotes unique to an entry > > * lisp/org-html.el (org-export-as-html): Assign unique ids to footnotes > if possible > > If the entry (or its ancestor) has the CUSTOM_ID property defined, then > use that as part of the generated footnote references and definitions. > --- > lisp/org-html.el | 12 ++++++++---- > 1 file changed, 8 insertions(+), 4 deletions(-) > > diff --git a/lisp/org-html.el b/lisp/org-html.el > index c9c9d78..8b79c39 100644 > --- a/lisp/org-html.el > +++ b/lisp/org-html.el > @@ -1248,6 +1248,9 @@ PUB-DIR is set, use this as the publishing directory." > (org-export-have-math nil) > (org-export-footnotes-seen nil) > (org-export-footnotes-data (org-footnote-all-labels 'with-defs)) > + (custom-id (or (org-entry-get nil "CUSTOM_ID" t) "")) > + (footnote-def-prefix (format "fn-%s" custom-id)) > + (footnote-ref-prefix (format "fnr-%s" custom-id)) > (lines > (org-split-string > (org-export-preprocess-string > @@ -1685,8 +1688,8 @@ PUB-DIR is set, use this as the publishing directory." > (format > (concat "%s" > (format org-export-html-footnote-format > - (concat "%s"))) > - (or (match-string 1 org-line) "") n extra n n) > + (concat "%s"))) > + (or (match-string 1 line) "") n extra n n) > ;; If another footnote is following the > ;; current one, add a separator. > (if (save-match-data > @@ -1773,8 +1776,9 @@ PUB-DIR is set, use this as the publishing directory." > (format > (concat "

" > (format org-export-html-footnote-format > - "%s")) > - n n n) t t org-line))))) > + (concat > + "%s"))) > + n n n) t t line))))) > ;; Check if the line break needs to be conserved > (cond > ((string-match "\\\\\\\\[ \t]*$" org-line) > -- > 1.7.10 -- Suhail --=-=-=--