HTML writer: Omit footnotes from TOC entries.

Otherwise we get doubled footnotes when headers have notes!
garyross · Jan 6, 2014 · 2dd6d89 · 2dd6d89
1 parent 3dd1b1f
commit 2dd6d89
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
@@ -749,7 +749,9 @@ inlineToHtml opts inline =
                                             else [A.title $ toValue tit])
                         return $ foldl (!) H5.embed attributes
                         -- note:  null title included, as in Markdown.pl
-    (Note contents)          -> do
+    (Note contents)
+      | writerIgnoreNotes opts -> return mempty
+      | otherwise              -> do
                         st <- get
                         let notes = stNotes st
                         let number = (length notes) + 1