drafter/src/Components/Button.elm

module Components.Button exposing (make, view)

import Html exposing (Html)
import Html.Attributes exposing (class)
import Html.Events exposing (onClick)


type alias ButtonConfig msg =
    { label : String
    , onClick : msg
    }


make : String -> msg -> ButtonConfig msg
make label onClick =
    { label = label
    , onClick = onClick
    }


view : ButtonConfig msg -> Html msg
view cfg =
    Html.button
        [ class "bg-slate-900 rounded text-white p-2 shadow disabled:opacity-50 hover:bg-slate-700"
        , onClick cfg.onClick
        ]
        [ Html.text cfg.label ]