diff --git a/site.cabal b/site.cabal
new file mode 100644
index 0000000..432ed8f
--- /dev/null
+++ b/site.cabal
@@ -0,0 +1,10 @@
+name: site
+version: 0.1
+build-type: Simple
+cabal-version: >= 1.10
+
+executable site
+ main-is: site.hs
+ build-depends: base == 4.*, hakyll == 4.16.*, pandoc == 3.*
+ ghc-options: -threaded -rtsopts -with-rtsopts=-N
+ default-language: Haskell2010
diff --git a/site.hs b/site.hs
new file mode 100644
index 0000000..47a385b
--- /dev/null
+++ b/site.hs
@@ -0,0 +1,62 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import Hakyll hiding (pandocCompiler)
+import Text.Pandoc.Options
+import Text.Pandoc.Highlighting
+
+-- Pass custom options to the Pandoc compiler
+pandocCompiler :: Compiler (Item String)
+pandocCompiler =
+ let defaultExtensions = writerExtensions defaultHakyllWriterOptions
+ addedExtensions = extensionsFromList [Ext_lists_without_preceding_blankline]
+ removedExtensions = extensionsFromList [Ext_blank_before_header, Ext_blank_before_blockquote]
+ writerOptions = defaultHakyllWriterOptions {
+ writerExtensions = disableExtensions (defaultExtensions <> pandocExtensions <> addedExtensions) removedExtensions,
+ writerHTMLMathMethod = MathML,
+ writerHighlightStyle = Just zenburn
+ }
+ in pandocCompilerWith defaultHakyllReaderOptions writerOptions
+
+-- Loads the template specified in a post's metadata, if it exists
+loadLayoutTemplate :: Context String -> Item String -> Compiler (Item String)
+loadLayoutTemplate context item = do
+ field <- getMetadataField (itemIdentifier item) "layout"
+ case field of
+ Just path ->
+ let templatePath = "_templates/" ++ path ++ ".html" in
+ loadAndApplyTemplate (fromFilePath templatePath) context item
+ _ -> return item
+
+main :: IO ()
+main = hakyll $ do
+ -- Compile templates for future use
+ match "_templates/*" $ compile templateBodyCompiler
+
+ -- Detect whether HTML files are standalone or in need of a template
+ match ("**.html" .||. "**.htm") $ do
+ route idRoute
+ compile $ do
+ identifier <- getUnderlying
+ field <- getMetadataField identifier "layout"
+ case field of
+ Just _ -> pandocCompiler
+ Nothing -> getResourceBody
+ >>= loadLayoutTemplate defaultContext
+ >>= relativizeUrls
+
+ -- Match all other renderable files and apply their template, if it exists
+ match ("**.md" .||. "**.markdown") $ do
+ route $ setExtension "html"
+ compile $ pandocCompiler
+ >>= loadLayoutTemplate defaultContext
+ >>= relativizeUrls
+
+ -- Additionally copy non-HTML files verbatium
+ match ("**.md" .||. "**.markdown") $ version "raw" $ do
+ route idRoute
+ compile pandocCompiler
+
+ -- Copy all additional files verbatium
+ match "**" $ do
+ route idRoute
+ compile copyFileCompiler
diff --git a/stack.yaml b/stack.yaml
new file mode 100644
index 0000000..36d8e5b
--- /dev/null
+++ b/stack.yaml
@@ -0,0 +1,4 @@
+resolver: lts-22.30
+system-ghc: true
+packages:
+- .
--
cgit v1.2.3-70-g09d2