diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-03 20:32:15 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-03 20:35:01 -0800 |
commit | c435e9cda7eb73cf4d8c446bb829079dddfaedbc (patch) | |
tree | cc52c835729c925e6b2e20cb345f05dac7f4fb43 /src/Text/Pandoc/Writers/HTML.hs | |
parent | 56ff5e1845363dea91423b785f1c28cabed213bb (diff) |
Implemented `Ext_header_identifiers`, `Ext_implicit_header_references`.
Now by default pandoc will act as if link references have been defined
for all headers. So, you can do this:
# My header
Link to [My header].
Another link to [it][My header].
Closes #691.
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index d8a9c6b81..6222bd810 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -281,7 +281,9 @@ elementToHtml slideLevel opts (Sec level num id' title' elements) = do then filter isSec elements else elements let header'' = if (writerSectionDivs opts || - writerSlideVariant opts == S5Slides || slide) + writerSlideVariant opts == S5Slides || + slide || + not (isEnabled Ext_header_identifiers opts)) then header' else header' ! prefixedId opts id' let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts] |