2015-07-28 15:38:30 +00:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
|
|
|
|
module Within.DBMemorial.Views.Materialize where
|
|
|
|
|
|
|
|
import Control.Monad (forM_)
|
|
|
|
import Data.Monoid
|
|
|
|
import Data.Text
|
|
|
|
import Text.Blaze.Html
|
|
|
|
import Text.Blaze.Html5 as H
|
|
|
|
import Text.Blaze.Html5.Attributes as A
|
|
|
|
|
2015-07-29 22:29:54 +00:00
|
|
|
render :: Text -> Html -> Html
|
|
|
|
render pageTitle inner =
|
2015-07-28 15:38:30 +00:00
|
|
|
docTypeHtml ! lang "en" $ do
|
|
|
|
H.head $ do
|
|
|
|
H.title $ toHtml pageTitle
|
|
|
|
|
|
|
|
meta ! charset "utf-8"
|
|
|
|
meta ! name "viewport" ! content "width=device-width, initial-scale=1.0"
|
|
|
|
link ! rel "stylesheet" ! href "/materialize/css/materialize.min.css"
|
|
|
|
script ! type_ "text/javascript" ! src "https://code.jquery.com/jquery-2.1.1.min.js" $ mempty
|
|
|
|
script ! src "/materialize/js/materialize.min.js" $ mempty
|
|
|
|
H.body $ do
|
|
|
|
H.div ! class_ "container" $ do
|
|
|
|
inner
|