blagda-0.1.0.0: src/Blagda/Template.hs

module Blagda.Template where

import           Blagda.Types
import           Control.Monad (void)
import           Data.Aeson
import           Data.Text (Text)
import qualified Data.Text as T
import           Development.Shake
import           Development.Shake.FilePath
import           Text.Mustache


writeTemplate :: ToJSON a => FilePath -> [Post Text a] -> Action ()
writeTemplate path posts = do
  template <- fmap (either (error . show) id) $ liftIO $ automaticCompile ["support/templates"] path
  void $ forP posts $ \post ->
    writeFile' ("_build/html1" </> p_path post)
      $ T.unpack
      $ substitute template
      $ toJSON post