Board-view.elm

board : Signal.Address Action -> Board -> Bool -> Html
board address model selected =
  li [ key model.id
     , classList [ ( "board", True )
                 , ( "selected", selected ) ] ] -- todo: click event
     [ h2 [ class "title" ] [ text model.name ]
     , p [] [ text model.desc ]]

boards : Signal.Address Action -> Model -> Html
boards address model =
  if List.isEmpty model.boards
     then div [ class "empty" ] [ text "no boards loaded" ]
     else ul [ class "boards" ]
             (List.map (\b -> board address b (isSelected b model.selected)) model.boards)

view : Signal.Address Action -> Model -> Html
view address model =
  boards address model

Board.elm

isSelected : Board -> Maybe ID -> Bool
isSelected board id =
  case id of
    Nothing -> False
    Just id -> board.id == id