write :: Pandoc -> OutputFormat -> String
write d HtmlFormat = writeHtmlString defaultWriterOptions {writerStandalone = True, writerTemplate = template} $ d
  where template = renderHtml $(shamletFile "template/layout.hamlet")
write :: Pandoc -> OutputFormat -> String
write d HtmlFormat = writeHtmlString defaultWriterOptions {writerStandalone = True, writerTemplate = template} $ d
  where template = renderHtml $(shamletFile "template/layout.hamlet")
write d HtmlFormat = writeHtmlString defaultWriterOptions {writerStandalone = True, writerTemplate = template} $ d
  where template = renderHtml $(shamletFile "template/layout.hamlet")