|
|
@ -5,7 +5,8 @@ import Data.Monoid (mappend, (<>))
|
|
|
|
import Hakyll
|
|
|
|
import Hakyll
|
|
|
|
import Data.Char (toLower)
|
|
|
|
import Data.Char (toLower)
|
|
|
|
import Text.Pandoc
|
|
|
|
import Text.Pandoc
|
|
|
|
|
|
|
|
import Text.Pandoc.Options
|
|
|
|
|
|
|
|
import qualified Data.Set as S
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
main :: IO ()
|
|
|
|
main :: IO ()
|
|
|
@ -133,9 +134,14 @@ myPandocCompiler' withToc = pandocCompilerWith defaultHakyllReaderOptions $
|
|
|
|
| otherwise -> writerOpts
|
|
|
|
| otherwise -> writerOpts
|
|
|
|
Nothing -> writerOpts
|
|
|
|
Nothing -> writerOpts
|
|
|
|
|
|
|
|
|
|
|
|
where writerOpts = defaultHakyllWriterOptions
|
|
|
|
where mathExtensions = [Ext_tex_math_dollars, Ext_tex_math_double_backslash, Ext_latex_macros]
|
|
|
|
|
|
|
|
defaultExtensions = writerExtensions defaultHakyllWriterOptions
|
|
|
|
|
|
|
|
newExtensions = foldr S.insert defaultExtensions mathExtensions
|
|
|
|
|
|
|
|
writerOpts = defaultHakyllWriterOptions
|
|
|
|
{ writerReferenceLinks = True
|
|
|
|
{ writerReferenceLinks = True
|
|
|
|
, writerSectionDivs = True
|
|
|
|
, writerSectionDivs = True
|
|
|
|
|
|
|
|
, writerExtensions = newExtensions
|
|
|
|
|
|
|
|
, writerHTMLMathMethod = MathJax ""
|
|
|
|
, writerHtml5 = True
|
|
|
|
, writerHtml5 = True
|
|
|
|
}
|
|
|
|
}
|
|
|
|
writerWithToc = writerOpts
|
|
|
|
writerWithToc = writerOpts
|
|
|
|