mirror of
https://github.com/correl/riichi.git
synced 2024-11-27 19:19:54 +00:00
34 lines
562 B
Elm
34 lines
562 B
Elm
|
module Hand exposing (..)
|
||
|
|
|
||
|
|
import Html exposing (Html, div, text)
|
||
|
|
import Html.Attributes exposing (class)
|
||
|
|
import Maybe.Extra
|
||
|
|
import Tile exposing (Tile)
|
||
|
|
|
||
|
|
|
||
|
|
type alias JSON =
|
||
|
|
{ tiles : List String
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
type alias Model =
|
||
|
|
{ tiles : List Tile
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
fromJSON : JSON -> Model
|
||
|
|
fromJSON j =
|
||
|
|
{ tiles =
|
||
|
|
j.tiles
|
||
|
|
|> List.map Tile.fromString
|
||
|
|
|> Maybe.Extra.values
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
view : Model -> Html a
|
||
|
|
view model =
|
||
|
|
div [ class "hand" ]
|
||
|
|
[ div [ class "tiles open" ] <|
|
||
|
|
List.map Tile.view model.tiles
|
||
|
|
]
|