Add cards from CardsAgainstCryptography

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