Hatchinq.SidePanel

Exposed

type alias Config msg =

{ theme : Theme

, lift : State -> msg

, resizeMaxWidth : Maybe Int

, initialWidth : Int

}

= LeftHand

| RightHand

type alias State =

{ openedContainerId : Int

, containerWidth : Int

, containerWidths : Dict Int Int

, beingDragged : Bool

, windowSize : WindowSize

}

type alias View msg =

{ buttons : List (SidePanelButton msg)

, state : State

, topPageOffset : Int

}

Config msg

-> List (Attribute InternalConfig)

-> View msg

-> Element msg

init : Int -> Config msg -> ( State, Cmd msg )

minWidth : Int -> Attribute InternalConfig

subscriptions : Config msg -> State -> Sub msg