diff options
| author | Hubert Plociniczak <hubert.plociniczak@gmail.com> | 2016-11-11 13:09:49 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:39 +0100 |
| commit | a6b469c02b3c21cfc1b5169ea3e75b7388f55691 (patch) | |
| tree | f72130a5a83d27aecf67a5194039705235326191 /src/Text/Pandoc/Writers/MediaWiki.hs | |
| parent | 30b3412857fc604656aac53d57730ad2442a3599 (diff) | |
Adds support for pagebreaks (when it makes sense)
Update all writers to take into account page breaks.
A straightforwad, far from complete, implementation of page
breaks in selected writers.
Readers will have to follow in the future as well.
Diffstat (limited to 'src/Text/Pandoc/Writers/MediaWiki.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/MediaWiki.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index 78d4651e7..95b649dd2 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -402,7 +402,9 @@ inlineToMediaWiki (RawInline f str) | f == Format "html" = return str | otherwise = return "" -inlineToMediaWiki (LineBreak) = return "<br />\n" +inlineToMediaWiki LineBreak = return "<br />\n" + +inlineToMediaWiki PageBreak = return mempty inlineToMediaWiki SoftBreak = do wrapText <- gets (writerWrapText . stOptions) |