GoUI/Go.elm

50 lines
1.4 KiB
Elm
Raw Normal View History

import Go.Types exposing (..)
import Go.Game exposing (verify)
import Go.Decoders exposing (decodeUpdatestring)
import Go.Ws exposing (..)
import Go.View exposing (..)
import WebSocket
import Html exposing (Html, div, text)
init : Flags -> (Model, Cmd Msg)
init flags = (Model
(if flags.black then Black else White)
flags.url
flags.id
flags.size
Nothing
Nothing
[], Cmd.none)
initDummy : (Model, Cmd Msg)
initDummy = (Model
Black
"ws://localhost:3000"
1
9
Nothing
Nothing
[], Cmd.none)
view : Model -> Html Msg
view m = div []
[ text (toString m.currentColor)
, renderBoard m.sessionSize m.board
]
update : Msg -> Model -> (Model, Cmd Msg)
update msg model = case msg of
Place indx -> case verify (indx, model.sessionColor) model of
Nothing -> ( { model | error = Just "Can't place piece" }, Cmd.none)
2018-05-25 10:51:38 -07:00
Just c -> ( { model | board = c::model.board }, sendMove model c)
Update s -> case decodeUpdatestring s of
Ok (c, xs) -> ( { model | board = xs, currentColor = Just c }, Cmd.none)
Err s -> ( { model | error = Just "Can't parse server response" }, Cmd.none)
DismissError -> ({ model | error = Nothing }, Cmd.none)
subscriptions : Model -> Sub Msg
subscriptions m =
WebSocket.listen m.sessionUrl Update
main = Html.program { init = initDummy, update = update, subscriptions = subscriptions, view = view }