tab.elm

module Components.Tab exposing (Model, Msg, init, view, update)

import Html exposing (Html, div, text, i)
import Html.Attributes exposing (class)
import Html.Events exposing (onClick)

-- MODEL

type alias Model =
    { icon : String
    , title : String
    }

init: String -> String -> Model
init icon title =
    Model icon title
    

-- MESSAGES


type Msg
    = Click


-- VIEW


view : Model -> Html Msg
view model =
    div
        [ class "tab"
        , onClick Click
        ]
        [ i [ class ("fa fa-" ++ model.icon) ] []
        , text model.title
        ]


-- UPDATE


update : Msg -> Model -> ( Model, Cmd Msg )
update message model =
    case message of
        Click value ->
            ( model, Cmd.none)