view.elm

view : Model -> Html Msg
view model =
    let
        renderSvg which =
            div [ HA.id "chartContainer", HA.attribute "data-type" which ]
                [ svg [ HA.id "bar", HA.width 700, HA.height 500 ] [] ]
    in
    div []
        [ button [ onClick (ShowChart BarChart), disabled (model.chart /= NoChart) ] [ Html.text "Show Bar Chart" ]
        , button [ onClick (ShowChart PieChart), disabled (model.chart /= NoChart) ] [ Html.text "Show Pie Chart" ]
        , button [ onClick (ShowChart NoChart), disabled (model.chart == NoChart) ] [ Html.text "Hide Chart" ]
        , hr [] []
        , case model.chart of
            BarChart ->
                renderSvg "bar"

            PieChart ->
                renderSvg "pie"

            NoChart ->
                Html.text ""
        ]