"Config" Builder

Button.elm

module Button exposing (Config, config, withIcon, withSizeLarge, view)

import Html exposing (Html)
import Icon exposing (Icon)

type alias Config msg =
    { onClick : msg
    , label : String
    , maybeIcon : Maybe Icon
    , size : Size
    }
    
config : { onClick : msg, label : String } -> Config msg

withIcon : Icon -> Config msg -> Config msg

withSizeLarge : Config msg -> Config msg

view : Config msg -> Html msg

ExampleUsage.elm

module ExampleUsage exposing (view)

import Button
import Icon exposing (Icon)
import Html exposing (Html)

view : Html msg
view =
    Button.config
        { onClick = ButtonClicked
        , label = "Click me!"
        }
        |> Button.withIcon Icon.Okay
        |> Button.withSizeLarge
        |> Button.view