aboutsummaryrefslogtreecommitdiff
path: root/src/View/Page.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/View/Page.elm')
-rw-r--r--src/View/Page.elm59
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")
- ]
- []
- ]
- ]