26 lines
901 B
Haskell
26 lines
901 B
Haskell
|
{-# 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
|
||
|
|
||
|
base :: Text -> Html -> Html
|
||
|
base pageTitle inner =
|
||
|
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
|