diff options
Diffstat (limited to '')
-rw-r--r-- | client/index.html | 1 | ||||
-rw-r--r-- | client/src/Client.elm | 13 | ||||
-rw-r--r-- | client/src/Messages.elm | 5 | ||||
-rw-r--r-- | client/style.css | 16 |
4 files changed, 33 insertions, 2 deletions
diff --git a/client/index.html b/client/index.html index 75ee56d..adc2ac8 100644 --- a/client/index.html +++ b/client/index.html @@ -3,6 +3,7 @@ <head> <meta charset="UTF-8"> <title>Client</title> + <link rel="stylesheet" type="text/css" href="/assets/style.css"> </head> <body> <div id="main"></div> diff --git a/client/src/Client.elm b/client/src/Client.elm index 1938711..efd97fb 100644 --- a/client/src/Client.elm +++ b/client/src/Client.elm @@ -67,7 +67,18 @@ view model = case model of ] [Html.text "change"] ] - ] + ] ++ + (case game.view.blackCard of + Nothing -> [] + Just c -> [blackCard c]) + +blackCard : String -> Html a +blackCard string = + let blank = Html.span [Html.Attributes.class "blank"] [] in + Html.div [Html.Attributes.class "black"] <| + List.intersperse blank <| + List.map Html.text <| + String.split "\\BLANK" string subscriptions : Model -> Sub Msg subscriptions model = webSocketIn WebSocketIn diff --git a/client/src/Messages.elm b/client/src/Messages.elm index 3fbacc3..77b3830 100644 --- a/client/src/Messages.elm +++ b/client/src/Messages.elm @@ -11,19 +11,22 @@ import Set exposing (Set) type alias GameView = { opponents: (List String) , myName: String + , blackCard: (Maybe String) } jsonDecGameView : Json.Decode.Decoder ( GameView ) jsonDecGameView = - Json.Decode.succeed (\popponents pmyName -> {opponents = popponents, myName = pmyName}) + Json.Decode.succeed (\popponents pmyName pblackCard -> {opponents = popponents, myName = pmyName, blackCard = pblackCard}) |> required "opponents" (Json.Decode.list (Json.Decode.string)) |> required "myName" (Json.Decode.string) + |> fnullable "blackCard" (Json.Decode.string) jsonEncGameView : GameView -> Value jsonEncGameView val = Json.Encode.object [ ("opponents", (Json.Encode.list Json.Encode.string) val.opponents) , ("myName", Json.Encode.string val.myName) + , ("blackCard", (maybeEncode (Json.Encode.string)) val.blackCard) ] diff --git a/client/style.css b/client/style.css new file mode 100644 index 0000000..fd26c52 --- /dev/null +++ b/client/style.css @@ -0,0 +1,16 @@ +html { + font-size: 18px; +} + +.black { + color: white; + background: black; + padding: 18px; + border-radius: 18px; +} + +.blank { + border-bottom: 2px solid white; + display: inline-block; + width: 42px; +} |