gistfile1.hs

    match "gallery/*.lhs" $ version "gallery" $ do
        route $ setExtension "html"
        compile $ do
            getResourceBody >>= saveSnapshot "rawcontent"
            withMathJax
            >>= loadAndApplyTemplate "templates/exampleHi.html"
                  ( mconcat
                    [ field "code" readSource
                    , setImgURL
                    , setHtmlURL
                    , markdownFieldsCtx ["description"]
                    , defaultContext
                    ]
                  )
            >>= mainCompiler defaultContext

      -- export raw .lhs of examples for download
    match "gallery/*.lhs" $ version "raw" $ do
        route idRoute
        compile getResourceBody


readSource :: Item String -> Compiler String
readSource item = itemBody <$> loadSnapshot metadata "rawcontent"
  where 
    metadata = itemIdentifier item