uncover-co / elm-admin-alpha / Admin

admin : { title : String, init : flags -> Browser.Navigation.Key -> ( model, Platform.Cmd.Cmd msg ), update : msg -> model -> ( model, Platform.Cmd.Cmd msg ), subscriptions : model -> Platform.Sub.Sub msg } -> List (Attribute model msg) -> Admin flags model msg

adminWithActions : { title : String, init : flags -> Browser.Navigation.Key -> ( model, Actions.Action msg ), update : msg -> model -> ( model, Actions.Action msg ), subscriptions : model -> Platform.Sub.Sub msg } -> List (Attribute model msg) -> Admin flags model msg


type alias Admin flags model msg =
Internal.Application.Admin flags model msg

router : List (Router.Route model msg) -> Attribute model msg

protectedRouter : (model -> Maybe subModel) -> List (Router.Route subModel msg) -> Attribute model msg

lightTheme : Theme -> Attribute model msg

darkTheme : Theme -> Attribute model msg

preferDarkMode : Basics.Bool -> Attribute model msg

disableModeSwitch : Basics.Bool -> Attribute model msg

darkModeStrategy : Theme.DarkModeStrategy -> Attribute model msg