Hi,

Attached is a patch that allows having lists, tables, blockquotes and
other org blocks in footnotes.  Source code blocks still don't work.

-- 
Puneeth
From 33eb1aaca6b5f5b862207d8edec3c0e9599b7464 Mon Sep 17 00:00:00 2001
From: Puneeth Chaganti <puncha...@gmail.com>
Date: Fri, 18 Mar 2011 17:10:11 +0530
Subject: [PATCH] Fix html export of footnotes with lists, tables, quotes, etc.

* lisp/org-html.el: (org-export-as-html): Change the regexp that
  searches for footnotes before adding them to the html footnotes
  section.

Code blocks still don't work.  Something in their exporting,
changes things (probably new lines being inserted).  This needs
to be looked into.
---
 lisp/org-html.el |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/lisp/org-html.el b/lisp/org-html.el
index c6f26b5..11ef9ef 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -1690,9 +1690,12 @@ lang=\"%s\" xml:lang=\"%s\">
 
       (save-excursion
        (goto-char (point-min))
-       (while (re-search-forward "<p 
class=\"footnote\">[^\000]*?\\(</p>\\|\\'\\)" nil t)
-         (push (match-string 0) footnotes)
-         (replace-match "" t t)))
+       (while (re-search-forward 
+               "\\(\\(<p 
class=\"footnote\">\\)[^\000]*?\\)\\(\\(\\2\\)\\|\\'\\)" 
+               nil t)
+         (push (match-string 1) footnotes)
+         (replace-match "\\4" t nil)
+         (goto-char (match-beginning 0))))
       (when footnotes
        (insert (format org-export-html-footnotes-section
                        (nth 4 lang-words)
-- 
1.7.4.1

Reply via email to