src/Generate/Html.hs · elk

on 2a930fd help sign in

elk/src/Generate/Html.hs

31 lines 1.1 kB history raw

1{-# LANGUAGE OverloadedStrings #-}

2module Generate.Html (generate, JSSource(..)) where

4import Text.Blaze (preEscapedToMarkup)

5import qualified Text.Blaze.Html5 as H

6import Text.Blaze.Html5 ((!))

7import qualified Text.Blaze.Html5.Attributes as A

8import qualified Data.ByteString.Lazy.Char8 as BS

10data JSSource = Link String | Source BS.ByteString

12makeScript :: JSSource -> H.Html

13makeScript source =

14 case source of

15 Link src -> H.script ! A.type_ "text/javascript" ! A.src (H.toValue src) $ ""

16 Source src ->

17 H.script ! A.type_ "text/javascript" $

18 preEscapedToMarkup $ BS.unpack src

20generate :: JSSource -> String -> [JSSource] -> String -> String -> H.Html

21generate runtime title scripts moduleName noscript =

22 H.docTypeHtml $ do

23 H.head $ do

24 H.meta ! A.charset "UTF-8"

25 H.title . H.toHtml $ title

26 makeScript runtime

27 mapM_ makeScript scripts

28 H.body $ do

29 H.script ! A.type_ "text/javascript" $

30 preEscapedToMarkup ("Elm.fullscreen(Elm." ++ moduleName ++ ")")

31 H.noscript $ preEscapedToMarkup noscript