From 3b7d11c6182b8aa3d3d4f9e36c213e4eba6c8d8f Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Thu, 30 Jul 2020 19:42:26 +0200
Subject: Add cards from CardsAgainstCryptography

---
 client/src/Client.elm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'client/src/Client.elm')

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
-- 
cgit v1.2.3