diff options
author | Jasper Van der Jeugt | 2020-07-30 19:42:26 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-07-30 19:42:26 +0200 |
commit | 3b7d11c6182b8aa3d3d4f9e36c213e4eba6c8d8f (patch) | |
tree | efbf3a064adefa8cc1228edec835d7403068e779 /client/src/Client.elm | |
parent | fe56ddfbd14b3e7fbaee8732641bcc00fbd0c856 (diff) |
Add cards from CardsAgainstCryptography
Diffstat (limited to 'client/src/Client.elm')
-rw-r--r-- | client/src/Client.elm | 13 |
1 files changed, 12 insertions, 1 deletions
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 |