module View.Page
  ( page
  ) where

import           Data.Aeson                    (encode)
import qualified Data.Aeson.Types              as Json
import           Data.Text.Internal.Lazy       (Text)
import           Data.Text.Lazy.Encoding       (decodeUtf8)
import           Prelude                       hiding (init)

import           Text.Blaze.Html
import           Text.Blaze.Html.Renderer.Text (renderHtml)
import           Text.Blaze.Html5
import qualified Text.Blaze.Html5              as H
import           Text.Blaze.Html5.Attributes
import qualified Text.Blaze.Html5.Attributes   as A

import           Common.Model                  (Init)
import qualified Common.Msg                    as Msg

page :: Maybe Init -> Text
page init =
  renderHtml . docTypeHtml $ do
    H.head $ do
      meta ! charset "UTF-8"
      meta ! name "viewport" ! content "width=device-width, initial-scale=1, maximum-scale=1, user-scalable=0"
      H.title (toHtml $ Msg.get Msg.App_Title)
      script ! src "/javascript/main.js" $ ""
      script ! src "https://cdnjs.cloudflare.com/ajax/libs/Chart.js/2.9.3/Chart.bundle.js" $ ""
      jsonScript "init" init
      link ! rel "stylesheet" ! type_ "text/css" ! href "/css/reset.css"
      link ! rel "stylesheet" ! type_ "text/css" ! href "/css/main.css"
      link ! rel "icon" ! type_ "image/png" ! href "/images/icon.png"
    H.body $ do
      H.div ! A.class_ "spinner" $ ""


jsonScript :: Json.ToJSON a => Text -> a -> Html
jsonScript scriptId json =
  script
    ! A.id (toValue scriptId)
    ! type_ "application/json"
    $ toHtml . decodeUtf8 . encode $ json