chess.elm

import Dict exposing (Dict)
import Html exposing (..)


type Rank = King | Queen | Bishop | Knight | Rook | Pawn

type Color = Black | White

type alias Piece =
  { rank : Rank
  , color : Color
  }

type alias Board =
  Dict (Int, Int) Piece


view : Board -> Html msg
view board =
  div [] (List.map (viewSquare board) [0..7])


viewRow : Board -> Int -> Html msg
viewRow board row =
  div [] (List.map (viewSquare board row) [0..7])


viewSquare : Board -> Int -> Int -> Html msg
viewSquare board row column =
  let
    content =
      case Dict.get (row, column) board of
        Nothing ->
          text ""

        Just piece ->
          viewPiece piece
  div
    [ style
        [ ("color", "black")
        , ("width", "100px")
        , ("height", "100px")
        ]
    ] 
    [ content
    ]