ce40d0d · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Markdown writer: Use setext headers for levels 1-2.

ce40d0dJohn MacFarlane15 years ago

src/Text/Pandoc/Writers/Markdown.hs+9−11

@@ -233,17 +233,15 @@ blockToMarkdown _ HorizontalRule =

233blockToMarkdown opts (Header level inlines) = do

234 contents <- inlineListToMarkdown opts inlines

235 st <- get

236− -- use setext style headers if in literate haskell mode.

236+ return $ case level of

237+ 1 -> contents <> cr <> text (replicate (offset contents) '=') <>

238+ blankline

239+ 2 -> contents <> cr <> text (replicate (offset contents) '-') <>

240+ blankline

237− -- ghc interprets '#' characters in column 1 as line number specifiers.

241+ -- ghc interprets '#' characters in column 1 as linenum specifiers.

238− if writerLiterateHaskell opts || stPlain st

242+ _ | stPlain st || writerLiterateHaskell opts ->

239− then let len = offset contents

240− in return $ contents <> cr <>

243+ contents <> blankline

241− (case level of

242− 1 -> text $ replicate len '='

243− 2 -> text $ replicate len '-'

244− _ -> empty) <> blankline

245− else return $

246− text ((replicate level '#') ++ " ") <> contents <> blankline

244+ _ -> text (replicate level '#') <> space <> contents <> blankline

247blockToMarkdown opts (CodeBlock (_,classes,_) str)

245blockToMarkdown opts (CodeBlock (_,classes,_) str)

248 | "haskell" `elem` classes && "literate" `elem` classes &&

246 | "haskell" `elem` classes && "literate" `elem` classes &&

249 writerLiterateHaskell opts =

247 writerLiterateHaskell opts =