From be02a1fa1266f9c2d8083db3227534d7e59eb670 Mon Sep 17 00:00:00 2001
From: Correl Roush <correl@gmail.com>
Date: Thu, 17 Aug 2017 23:31:24 -0400
Subject: [PATCH] Add tileset toggle

---
 priv/src/Riichi.elm | 38 +++++++++++++++++++++++++++++++++-----
 src/game_tree.erl   |  6 +++++-
 2 files changed, 38 insertions(+), 6 deletions(-)

diff --git a/priv/src/Riichi.elm b/priv/src/Riichi.elm
index cf1c836..ac5272f 100644
--- a/priv/src/Riichi.elm
+++ b/priv/src/Riichi.elm
@@ -2,6 +2,8 @@ module Riichi exposing (..)
 
 import Hand
 import Html exposing (..)
+import Html.Attributes exposing (..)
+import Html.Events exposing (onClick)
 import Html.CssHelpers
 import Stylesheets as S
 
@@ -11,16 +13,19 @@ import Stylesheets as S
 
 
 type alias Model =
-    { hand : Hand.Model }
+    { tileset : S.Tileset
+    , hand : Hand.Model
+    }
 
 
 type Msg
-    = Noop
+    = SetTileset S.Tileset
 
 
 init : ( Model, Cmd Msg )
 init =
-    ( { hand =
+    ( { tileset = S.White
+      , hand =
             Hand.fromJSON
                 { tiles =
                     [ "4 pin"
@@ -42,7 +47,11 @@ init =
 
 update : Msg -> Model -> ( Model, Cmd Msg )
 update msg model =
-    ( model, Cmd.none )
+    case msg of
+        SetTileset tileset ->
+            ( { model | tileset = tileset }
+            , Cmd.none
+            )
 
 
 main : Program Never Model Msg
@@ -57,7 +66,26 @@ main =
 
 view : Model -> Html Msg
 view model =
-    div [ class [ S.Tileset S.White ] ]
+    div [ class [ S.Tileset model.tileset ] ]
         [ h1 [] [ text "Riichi Mahjong" ]
+        , fieldset []
+            [ legend [] [ text "Tile Set" ]
+            , radio "tileset" "White" (SetTileset S.White) (model.tileset == S.White)
+            , radio "tileset" "Black" (SetTileset S.Black) (model.tileset == S.Black)
+            ]
         , Hand.view model.hand
         ]
+
+
+radio : String -> String -> Msg -> Bool -> Html Msg
+radio name_ value msg checked_ =
+    label []
+        [ input
+            [ type_ "radio"
+            , name name_
+            , onClick msg
+            , checked checked_
+            ]
+            []
+        , text value
+        ]
diff --git a/src/game_tree.erl b/src/game_tree.erl
index 150e9db..96c6602 100644
--- a/src/game_tree.erl
+++ b/src/game_tree.erl
@@ -63,5 +63,9 @@ do(Tree, Action) ->
         undefined ->
             error(invalid_game_action);
         Thunk ->
-            ?FORCE(Thunk)
+            case Action of
+                tsumo -> {win, tsumo, Tree#game_tree.game};
+                ron -> {win, ron, Tree#game_tree.game};
+                _ -> ?FORCE(Thunk)
+            end
     end.