git.iko.soy/elk
on 29dfd5a help sign in
elk/elm/src/GenerateHtml.hs
54 lines 1.9 kB history raw
1{-# LANGUAGE OverloadedStrings #-}
2module GenerateHtml (generateHtml, body, css) where
4import Text.Blaze (preEscapedToMarkup)
5import Text.Blaze.Html (Html)
6import qualified Text.Blaze.Html5 as H
7import Text.Blaze.Html5 ((!))
8import qualified Text.Blaze.Html5.Attributes as A
10import Initialize
11import CompileToJS
12import ExtractNoscript
14css = H.style ! A.type_ "text/css" $ preEscapedToMarkup
15 ("* { padding:0; margin:0; \
16 \hyphens: auto; -moz-hyphens: auto;\
17 \ -webkit-hyphens: auto; -ms-hyphens: auto; }\
18 \body { font-family: Arial; }\
19 \a:link {text-decoration: none}\
20 \a:visited {text-decoration: none}\
21 \a:active {text-decoration: none}\
22 \a:hover {text-decoration: underline; color: #ff8f12;}" :: String)
24makeScript :: String -> H.Html
25makeScript s = H.script ! A.type_ "text/javascript" ! A.src (H.toValue s) $ ""
27-- |This function compiles Elm code into simple HTML.
28--
29-- Usage example:
30--
31-- > generateHtml "/elm-min.js" "Some title" [elmFile|elm-source/somePage.elm|]
32generateHtml :: String -- ^ Location of elm-min.js as expected by the browser
33 -> String -- ^ The page title
34 -> String -- ^ The elm source code.
35 -> Html
36generateHtml libLoc title source =
37 let expr = initialize source
38 js = compileToJS expr
39 noscript = either id extract expr
40 in
41 H.docTypeHtml $ do
42 H.head $ do
43 H.meta ! A.charset "UTF-8"
44 H.title . H.toHtml $ title
45 makeScript libLoc
46 H.script ! A.type_ "text/javascript" $ preEscapedToMarkup js
47 css
48 H.body $ body noscript
50body noscript = do
51 H.div ! A.id "widthChecker" ! A.style "width:100%; height:1px; position:absolute; top:-1px;" $ ""
52 H.span ! A.id "content" $ ""
53 H.script ! A.type_ "text/javascript" $ "Dispatcher.initialize()"
54 H.noscript $ preEscapedToMarkup noscript