git.iko.soy/typeable/pandoc
on master help sign in
LaTeX and Markdown readers: Add sourceCode class to haskell code.
d4b9307fiddlosopher
Text/Pandoc/Readers/LaTeX.hs+1−1
compare with master
unifiedsplit
@@ -207,7 +207,7 @@ lhsCodeBlock :: GenParser Char ParserState Block
207lhsCodeBlock = do
207lhsCodeBlock = do
208 failUnlessLHS
208 failUnlessLHS
209 (CodeBlock (_,_,_) cont) <- codeBlockWith "code"
209 (CodeBlock (_,_,_) cont) <- codeBlockWith "code"
210− return $ CodeBlock ("", ["haskell"], []) cont
210+ return $ CodeBlock ("", ["sourceCode","haskell"], []) cont
211
211
212--
212--
213-- block quotes
213-- block quotes
Text/Pandoc/Readers/Markdown.hs+1−1
@@ -399,7 +399,7 @@ lhsCodeBlock :: GenParser Char ParserState Block
399lhsCodeBlock = do
399lhsCodeBlock = do
400 failUnlessLHS
400 failUnlessLHS
401 contents <- lhsCodeBlockBird <|> lhsCodeBlockLaTeX
401 contents <- lhsCodeBlockBird <|> lhsCodeBlockLaTeX
402− return $ CodeBlock ("",["haskell"],[]) contents
402+ return $ CodeBlock ("",["sourceCode","haskell"],[]) contents
403
403
404lhsCodeBlockLaTeX :: GenParser Char ParserState String
404lhsCodeBlockLaTeX :: GenParser Char ParserState String
405lhsCodeBlockLaTeX = try $ do
405lhsCodeBlockLaTeX = try $ do