git.iko.soy/elk
on 8fbfbce help sign in
elk/src/ToHtml.hs
19 lines 585 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2module ToHtml (compileToHtml) where
4import CompileToJS
5import Data.Monoid (mempty)
6import GenerateHtml
7import Network.HTTP.Base (urlEncode)
8import Text.Blaze.Html5 hiding (map)
9import qualified Text.Blaze.Html5 as H
10import Text.Blaze.Html5.Attributes
11import qualified Text.Blaze.Html5.Attributes as A
13pageTitle fp =
14 reverse . takeWhile (/='/') . drop 1 . dropWhile (/='.') $ reverse fp
17compileToHtml :: String -> String -> String -> Html
18compileToHtml libLoc fileName source =
19 generateHtml libLoc (pageTitle fileName) (compileToJS source)