From 2198ac080bb97828b9770d0522b1d4d854deb8c2 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 14 Apr 2012 17:46:17 -0700
Subject: Got footnote working in docbook reader.

---
 src/Text/Pandoc/Readers/DocBook.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index a570964b6..488e179da 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -32,7 +32,7 @@ parseBlock (Elem e) =
         "sect5" -> sect 5
         "sect6" -> sect 6
         "section" -> gets dbSectionLevel >>= sect . (+1)
-        "title" -> return $ mempty
+        "title" -> return $ mempty -- processed by sect
         _       -> innerBlocks
    where innerBlocks = mconcat <$> (mapM parseBlock $ elContent e)
          getInlines e' = (trimInlines . mconcat) <$>
@@ -65,6 +65,7 @@ parseInline (Elem e) =
                            (elAttribs e) of
                              Just "strong" -> strong <$> innerInlines
                              _             -> emph <$> innerInlines
+        "footnote" -> (note . mconcat) <$> (mapM parseBlock $ elContent e)
         _          -> innerInlines
    where innerInlines = (trimInlines . mconcat) <$>
                           (mapM parseInline $ elContent e)
-- 
cgit v1.2.3