diff options
author | Joris | 2015-11-14 17:10:20 +0100 |
---|---|---|
committer | Joris | 2015-11-14 17:10:20 +0100 |
commit | e43df972c82c8b5926f76658c7588074e6a15069 (patch) | |
tree | 47489029d7c6423884c63763dea69966cb60ab6d /src/View/Page.elm | |
parent | b654acd2af332612748f754c0fd53b47f45a77e9 (diff) |
Display the game at fullscreen
Diffstat (limited to 'src/View/Page.elm')
-rw-r--r-- | src/View/Page.elm | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/src/View/Page.elm b/src/View/Page.elm deleted file mode 100644 index a4e0ba0..0000000 --- a/src/View/Page.elm +++ /dev/null @@ -1,59 +0,0 @@ -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 (render) -import View.Round exposing (roundView) - -pageView : Game -> Html -pageView game = - div - [] - [ h1 [] [ text "cAtchVoid" ] - , div - [ id "game" ] - [ render 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") - ] - [] - ] - ] |