64304a2 · typeable/pandoc

git.iko.soy/typeable/pandoc

Don't wrap headers in markdown or rst.

commit64304a2165fa9600cdab1a7e00fd8faa6047e8c4 authorJohn MacFarlane <fiddlosopher@gmail.com> dateWed 8 Feb 2012, 08:40 (15 years ago) parent142c29d

2 files changed+3−2

unifiedsplit

src/Text/Pandoc/Writers/Markdown.hs+2−1

@@ -234,7 +234,8 @@ blockToMarkdown opts (Header level inlines) = do

234234 contents <- inlineListToMarkdown opts inlines

235235 st <- get

236236 let setext = writerSetextHeaders opts

237− return $ case level of

237+ return $ nowrap

238+ $ case level of

238239 1 | setext ->

239240 contents <> cr <> text (replicate (offset contents) '=') <>

240241 blankline

src/Text/Pandoc/Writers/RST.hs+1−1

@@ -157,7 +157,7 @@ blockToRST (Header level inlines) = do

157157 contents <- inlineListToRST inlines

158158 let headerChar = if level > 5 then ' ' else "=-~^'" !! (level - 1)

159159 let border = text $ replicate (offset contents) headerChar

160− return $ contents $$ border $$ blankline

160+ return $ nowrap $ contents $$ border $$ blankline

161161blockToRST (CodeBlock (_,classes,_) str) = do

162162 opts <- stOptions <$> get

163163 let tabstop = writerTabStop opts