removing draft pages

explorer/src/Page/Switch.elm

@@ -1,71 +0,0 @@
-module Page.Switch exposing (Model, Msg, init, subscriptions, update, view)
-
-import Browser
-import Element exposing (Element)
-import Widget exposing (SwitchStyle)
-import Widget.Material as Material
-
-
-type alias Style style msg =
-    { style
-        | switch : SwitchStyle msg
-    }
-
-
-materialStyle : Style {} msg
-materialStyle =
-    { switch = Material.switch Material.defaultPalette
-    }
-
-
-type Model
-    = IsButtonEnabled Bool
-
-
-type Msg
-    = ToggledButtonStatus
-
-
-init : ( Model, Cmd Msg )
-init =
-    ( IsButtonEnabled False
-    , Cmd.none
-    )
-
-
-update : Msg -> Model -> ( Model, Cmd Msg )
-update msg (IsButtonEnabled buttonEnabled) =
-    case msg of
-        ToggledButtonStatus ->
-            ( IsButtonEnabled <| not buttonEnabled
-            , Cmd.none
-            )
-
-
-subscriptions : Model -> Sub Msg
-subscriptions _ =
-    Sub.none
-
-
-{-| You can remove the msgMapper. But by doing so, make sure to also change `msg` to `Msg` in the line below.
--}
-view : (Msg -> msg) -> Style style msg -> Model -> Element msg
-view msgMapper style (IsButtonEnabled isButtonEnabled) =
-    Widget.switch style.switch
-        { description = "click me"
-        , active = isButtonEnabled
-        , onPress =
-            ToggledButtonStatus
-                |> msgMapper
-                |> Just
-        }
-
-
-main : Program () Model Msg
-main =
-    Browser.element
-        { init = always init
-        , view = \model -> model |> view identity materialStyle |> Element.layout []
-        , update = update
-        , subscriptions = subscriptions
-        }

explorer/src/Page/Tab.elm

@@ -1,93 +0,0 @@
-module Page.Tab exposing (Model, Msg, init, subscriptions, update, view)
-
-import Browser
-import Element exposing (Element)
-import Widget exposing (TabStyle)
-import Widget.Material as Material
-
-
-type alias Style style msg =
-    { style
-        | tab : TabStyle msg
-    }
-
-
-materialStyle : Style {} msg
-materialStyle =
-    { tab = Material.tab Material.defaultPalette
-    }
-
-
-type Model
-    = Selected (Maybe Int)
-
-
-type Msg
-    = ChangedTab Int
-
-
-init : ( Model, Cmd Msg )
-init =
-    ( Selected Nothing
-    , Cmd.none
-    )
-
-
-update : Msg -> Model -> ( Model, Cmd Msg )
-update msg _ =
-    case msg of
-        ChangedTab int ->
-            ( Selected <| Just int
-            , Cmd.none
-            )
-
-
-subscriptions : Model -> Sub Msg
-subscriptions _ =
-    Sub.none
-
-
-{-| You can remove the msgMapper. But by doing so, make sure to also change `msg` to `Msg` in the line below.
--}
-view : (Msg -> msg) -> Style style msg -> Model -> Element msg
-view msgMapper style (Selected selected) =
-    Widget.tab style.tab
-        { tabs =
-            { selected = selected
-            , options =
-                [ 1, 2, 3 ]
-                    |> List.map
-                        (\int ->
-                            { text = "Tab " ++ (int |> String.fromInt)
-                            , icon = always Element.none
-                            }
-                        )
-            , onSelect = ChangedTab >> msgMapper >> Just
-            }
-        , content =
-            \s ->
-                (case s of
-                    Just 0 ->
-                        "This is Tab 1"
-
-                    Just 1 ->
-                        "This is the second tab"
-
-                    Just 2 ->
-                        "The thrid and last tab"
-
-                    _ ->
-                        "Please select a tab"
-                )
-                    |> Element.text
-        }
-
-
-main : Program () Model Msg
-main =
-    Browser.element
-        { init = always init
-        , view = \model -> model |> view identity materialStyle |> Element.layout []
-        , update = update
-        , subscriptions = subscriptions
-        }

explorer/src/Page/TextInput.elm

@@ -1,122 +0,0 @@
-module Page.TextInput exposing (Model, Msg, init, subscriptions, update, view)
-
-import Browser
-import Element exposing (Element)
-import Set exposing (Set)
-import Widget exposing (ColumnStyle, TextInputStyle)
-import Widget.Material as Material
-
-
-type alias Style style msg =
-    { style
-        | textInput : TextInputStyle msg
-        , column : ColumnStyle msg
-    }
-
-
-materialStyle : Style {} msg
-materialStyle =
-    { textInput = Material.textInput Material.defaultPalette
-    , column = Material.column
-    }
-
-
-type alias Model =
-    { chipTextInput : Set String
-    , textInput : String
-    }
-
-
-type Msg
-    = ToggleTextInputChip String
-    | SetTextInput String
-
-
-init : ( Model, Cmd Msg )
-init =
-    ( { chipTextInput = Set.empty
-      , textInput = ""
-      }
-    , Cmd.none
-    )
-
-
-update : Msg -> Model -> ( Model, Cmd Msg )
-update msg model =
-    case msg of
-        ToggleTextInputChip string ->
-            ( { model
-                | chipTextInput =
-                    model.chipTextInput
-                        |> (if model.chipTextInput |> Set.member string then
-                                Set.remove string
-
-                            else
-                                Set.insert string
-                           )
-              }
-            , Cmd.none
-            )
-
-        SetTextInput string ->
-            ( { model | textInput = string }, Cmd.none )
-
-
-subscriptions : Model -> Sub Msg
-subscriptions _ =
-    Sub.none
-
-
-view : (Msg -> msg) -> Style style msg -> Model -> Element msg
-view msgMapper style model =
-    [ { chips =
-            model.chipTextInput
-                |> Set.toList
-                |> List.map
-                    (\string ->
-                        { icon = always Element.none
-                        , text = string
-                        , onPress =
-                            string
-                                |> ToggleTextInputChip
-                                |> msgMapper
-                                |> Just
-                        }
-                    )
-      , text = model.textInput
-      , placeholder = Nothing
-      , label = "Chips"
-      , onChange = SetTextInput >> msgMapper
-      }
-        |> Widget.textInput style.textInput
-    , model.chipTextInput
-        |> Set.diff
-            ([ "A", "B", "C" ]
-                |> Set.fromList
-            )
-        |> Set.toList
-        |> List.map
-            (\string ->
-                Widget.button style.textInput.content.chips.content
-                    { onPress =
-                        string
-                            |> ToggleTextInputChip
-                            |> msgMapper
-                            |> Just
-                    , text = string
-                    , icon = always Element.none
-                    }
-            )
-        |> Element.wrappedRow [ Element.spacing 10 ]
-    ]
-        |> Widget.column style.column
-
-
-main : Program () Model Msg
-main =
-    Browser.element
-        { init = always init
-        , view = \model -> model |> view identity materialStyle |> Element.layout []
-        , update = update
-        , subscriptions = subscriptions
-        }

explorer/src/UIExplorer/Tile.elm

@@ -278,7 +278,7 @@ layoutAddTile view layout =
 
 
 layoutView : Material.Palette -> List (Attribute msg) -> View msg -> Element msg
-layoutView palette attributes view =
+layoutView palette _ view =
     case view.title of
         Just string ->
             [ string