module View.Page ( pageView ) where import List import String exposing (append) import Html exposing (..) import Html.Attributes exposing (..) import Html.Attributes as A import Json.Encode exposing (string) import Model.Game exposing (Game) import Model.Round exposing (..) import View.Game exposing (gameView) import View.Round exposing (roundView) pageView : Game -> Html pageView game = div [] [ h1 [] [ text "cAtchVoid" ] , div [ id "game" ] [ fromElement <| gameView game ] , p [] [ text "Catch the points of your color, avoid the other points." ] , p [] [ text "Use the arrow keys to move and 'e' to change your color." ] , ( case maybeBestRound game.rounds of Nothing -> div [ class "bestScore" ] [] Just bestRound -> p [ class "bestScore isDefined" ] [ roundView bestRound |> append "Best score: " |> text ] ) , a [ href "https://github.com/guyonvarch/catchvoid" ] [ img [ A.style [ ("position", "absolute") , ("top", "0") , ("right", "0") , ("border", "0") ] , src "https://camo.githubusercontent.com/365986a132ccd6a44c23a9169022c0b5c890c387/68747470733a2f2f73332e616d617a6f6e6177732e636f6d2f6769746875622f726962626f6e732f666f726b6d655f72696768745f7265645f6161303030302e706e67" , alt "Fork me on GitHub" , property "data-canonical-src" (string "https://s3.amazonaws.com/github/ribbons/forkme_right_red_aa0000.png") ] [] ] ]