git.iko.soy/elk
on 0050157 help sign in
elk/src/ToHtml.hs
14 lines 449 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2module ToHtml (compileToHtml) where
4import CompileToJS
5import GenerateHtml
6import qualified Text.Blaze.Html5 as H
7import qualified Text.Blaze.Html5.Attributes as A
9pageTitle fp =
10 reverse . takeWhile (/='/') . drop 1 . dropWhile (/='.') $ reverse fp
12compileToHtml :: String -> String -> String -> H.Html
13compileToHtml libLoc fileName source =
14 generateHtml libLoc (pageTitle fileName) (compileToJS source)