git.iko.soy/hakyll
on master help sign in
Enable Pandoc's smart typography parsing.
271e7a3Sebastian Schwarz
src/Text/Hakyll/Page.hs+5−1
compare with master
unifiedsplit
@@ -52,6 +52,10 @@ getPagePath (Page page) =
52getBody :: Page -> String
52getBody :: Page -> String
53getBody (Page page) = fromMaybe [] $ M.lookup "body" page
53getBody (Page page) = fromMaybe [] $ M.lookup "body" page
54
54
55+-- | The default reader options for pandoc parsing.
56+readerOptions :: ParserState
57+readerOptions = defaultParserState { stateSmart = True }
58+
55-- | The default writer options for pandoc rendering.
59-- | The default writer options for pandoc rendering.
56writerOptions :: WriterOptions
60writerOptions :: WriterOptions
57writerOptions = defaultWriterOptions
61writerOptions = defaultWriterOptions
@@ -60,7 +64,7 @@ writerOptions = defaultWriterOptions
60getRenderFunction :: String -> (String -> String)
64getRenderFunction :: String -> (String -> String)
61getRenderFunction ".html" = id
65getRenderFunction ".html" = id
62getRenderFunction ext = writeHtmlString writerOptions
66getRenderFunction ext = writeHtmlString writerOptions
63− . readFunction ext defaultParserState
67+ . readFunction ext readerOptions
64 where
68 where
65 readFunction ".rst" = readRST
69 readFunction ".rst" = readRST
66 readFunction ".tex" = readLaTeX
70 readFunction ".tex" = readLaTeX