Merge pull request #17 from abadi199/0.19

Upgrade to 0.19
abadi199 · Jan 22, 2019 · 9e7d177 · 9e7d177
2 parents 16ca759 + 6e078d6
commit 9e7d177
Show file tree

Hide file tree

Showing 32 changed files with 3,967 additions and 845 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1,4 +1,5 @@
 elm-stuff/
 repl-temp-*
 npm-debug.log
-demo/demo.js
+demo/demo.js
+node_modules/
diff --git a/demo/DropdownDemo.elm b/demo/DropdownDemo.elm
@@ -1,17 +1,17 @@
 module DropdownDemo exposing (main)
 
-import Html exposing (Html, text, p, label, form, ul, li)
-import Html.Attributes exposing (style, for)
+import Browser
 import Dropdown
+import Html exposing (Html, form, label, li, p, text, ul)
+import Html.Attributes exposing (for, style)
 
 
-main : Program Never Model Msg
+main : Program () Model Msg
 main =
-    Html.program
+    Browser.sandbox
         { init = init
         , update = update
         , view = view
-        , subscriptions = subscriptions
         }
 
 
@@ -20,12 +20,10 @@ type alias Model =
     }
 
 
-init : ( Model, Cmd Msg )
+init : Model
 init =
-    ( { selectedValue = Nothing
-      }
-    , Cmd.none
-    )
+    { selectedValue = Nothing
+    }
 
 
 dropdownOptions : Dropdown.Options Msg
@@ -34,13 +32,13 @@ dropdownOptions =
         defaultOptions =
             Dropdown.defaultOptions DropdownChanged
     in
-        { defaultOptions
-            | items =
-                [ { value = "1", text = "One", enabled = True }
-                , { value = "2", text = "Two", enabled = True }
-                ]
-            , emptyItem = Just { value = "0", text = "[Please Select]", enabled = True }
-        }
+    { defaultOptions
+        | items =
+            [ { value = "1", text = "One", enabled = True }
+            , { value = "2", text = "Two", enabled = True }
+            ]
+        , emptyItem = Just { value = "0", text = "[Please Select]", enabled = True }
+    }
 
 
 subscriptions : Model -> Sub Msg
@@ -72,11 +70,11 @@ type Msg
     | DropdownChanged (Maybe String)
 
 
-update : Msg -> Model -> ( Model, Cmd Msg )
+update : Msg -> Model -> Model
 update msg model =
     case msg of
         NoOp ->
-            ( model, Cmd.none )
+            model
 
         DropdownChanged selectedValue ->
-            ( { model | selectedValue = selectedValue }, Cmd.none )
+            { model | selectedValue = selectedValue }
diff --git a/demo/InputBigNumberDemo.elm b/demo/InputBigNumberDemo.elm
@@ -1,17 +1,17 @@
 module InputNumberDemo exposing (main)
 
-import Html exposing (Html, text, p, label, form, ul, li)
-import Html.Attributes as Html exposing (style, for)
+import Browser
+import Html exposing (Html, form, label, li, p, text, ul)
+import Html.Attributes as Html exposing (for, style)
 import Input.BigNumber as Number
 
 
-main : Program Never Model Msg
+main : Program () Model Msg
 main =
-    Html.program
+    Browser.sandbox
         { init = init
         , update = update
         , view = view
-        , subscriptions = subscriptions
         }
 
 
@@ -21,11 +21,9 @@ type alias Model =
     }
 
 
-init : ( Model, Cmd Msg )
+init : Model
 init =
-    ( { value = "", hasFocus = False }
-    , Cmd.none
-    )
+    { value = "", hasFocus = False }
 
 
 inputOptions : Number.Options Msg
@@ -34,15 +32,10 @@ inputOptions =
         defaultOptions =
             Number.defaultOptions InputChanged
     in
-        { defaultOptions
-            | maxLength = Just 20
-            , hasFocus = Just FocusChanged
-        }
-
-
-subscriptions : Model -> Sub Msg
-subscriptions model =
-    Sub.none
+    { defaultOptions
+        | maxLength = Just 20
+        , hasFocus = Just FocusChanged
+    }
 
 
 view : Model -> Html Msg
@@ -59,28 +52,37 @@ view model =
             ]
         , p []
             [ ul []
-                [ li [] [ text "Max Length: ", text <| Maybe.withDefault "No Limit" <| Maybe.map toString <| inputOptions.maxLength ]
+                [ li [] [ text "Max Length: ", text <| Maybe.withDefault "No Limit" <| Maybe.map String.fromInt <| inputOptions.maxLength ]
                 , li [] [ text "Value: ", text model.value ]
-                , li [] [ text "Has Focus: ", text <| toString model.hasFocus ]
+                , li [] [ text "Has Focus: ", text <| boolToString model.hasFocus ]
                 ]
             ]
         ]
 
 
+boolToString : Bool -> String
+boolToString bool =
+    if bool then
+        "True"
+
+    else
+        "False"
+
+
 type Msg
     = NoOp
     | InputChanged String
     | FocusChanged Bool
 
 
-update : Msg -> Model -> ( Model, Cmd Msg )
+update : Msg -> Model -> Model
 update msg model =
     case msg of
         NoOp ->
-            ( model, Cmd.none )
+            model
 
         InputChanged value ->
-            ( { model | value = value }, Cmd.none )
+            { model | value = value }
 
         FocusChanged bool ->
-            ( { model | hasFocus = bool }, Cmd.none )
+            { model | hasFocus = bool }
diff --git a/demo/InputFloatDemo.elm b/demo/InputFloatDemo.elm
@@ -1,17 +1,17 @@
 module InputFloatDemo exposing (main)
 
+import Browser
 import Html exposing (Html, form, label, li, p, text, ul)
 import Html.Attributes as Html exposing (for, style)
 import Input.Float as Float
 
 
-main : Program Never Model Msg
+main : Program () Model Msg
 main =
-    Html.program
+    Browser.sandbox
         { init = init
         , update = update
         , view = view
-        , subscriptions = subscriptions
         }
 
 
@@ -23,11 +23,9 @@ type alias Model =
     }
 
 
-init : ( Model, Cmd Msg )
+init : Model
 init =
-    ( { value = Nothing, valueString = "", hasFocus = False, hasFocusString = False }
-    , Cmd.none
-    )
+    { value = Nothing, valueString = "", hasFocus = False, hasFocusString = False }
 
 
 inputOptions : Float.Options Msg
@@ -56,11 +54,6 @@ inputStringOptions =
     }
 
 
-subscriptions : Model -> Sub Msg
-subscriptions model =
-    Sub.none
-
-
 view : Model -> Html Msg
 view model =
     form []
@@ -75,10 +68,18 @@ view model =
             ]
         , p []
             [ ul []
-                [ li [] [ text "Max Value: ", text <| Maybe.withDefault "No Max" <| Maybe.map toString <| inputOptions.maxValue ]
-                , li [] [ text "Min Value: ", text <| Maybe.withDefault "No Min" <| Maybe.map toString <| inputOptions.minValue ]
-                , li [] [ text "Value: ", text <| Maybe.withDefault "NaN" <| Maybe.map toString <| model.value ]
-                , li [] [ text "Has Focus: ", text <| toString model.hasFocus ]
+                [ li [] [ text "Max Value: ", text <| Maybe.withDefault "No Max" <| Maybe.map String.fromFloat <| inputOptions.maxValue ]
+                , li [] [ text "Min Value: ", text <| Maybe.withDefault "No Min" <| Maybe.map String.fromFloat <| inputOptions.minValue ]
+                , li [] [ text "Value: ", text <| Maybe.withDefault "NaN" <| Maybe.map String.fromFloat <| model.value ]
+                , li []
+                    [ text "Has Focus: "
+                    , text <|
+                        if model.hasFocus then
+                            "True"
+
+                        else
+                            "False"
+                    ]
                 ]
             ]
         , p []
@@ -92,10 +93,18 @@ view model =
             ]
         , p []
             [ ul []
-                [ li [] [ text "Max Value: ", text <| Maybe.withDefault "No Max" <| Maybe.map toString <| inputOptions.maxValue ]
-                , li [] [ text "Min Value: ", text <| Maybe.withDefault "No Min" <| Maybe.map toString <| inputOptions.minValue ]
-                , li [] [ text "Value: ", text <| Maybe.withDefault "NaN" <| Maybe.map toString <| model.value ]
-                , li [] [ text "Has Focus: ", text <| toString model.hasFocus ]
+                [ li [] [ text "Max Value: ", text <| Maybe.withDefault "No Max" <| Maybe.map String.fromFloat <| inputOptions.maxValue ]
+                , li [] [ text "Min Value: ", text <| Maybe.withDefault "No Min" <| Maybe.map String.fromFloat <| inputOptions.minValue ]
+                , li [] [ text "Value: ", text <| model.valueString ]
+                , li []
+                    [ text "Has Focus: "
+                    , text <|
+                        if model.hasFocusString then
+                            "True"
+
+                        else
+                            "False"
+                    ]
                 ]
             ]
         ]
@@ -109,20 +118,20 @@ type Msg
     | FocusStringChanged Bool
 
 
-update : Msg -> Model -> ( Model, Cmd Msg )
+update : Msg -> Model -> Model
 update msg model =
     case msg of
         NoOp ->
-            ( model, Cmd.none )
+            model
 
         InputChanged value ->
-            ( { model | value = value }, Cmd.none )
+            { model | value = value }
 
         FocusChanged bool ->
-            ( { model | hasFocus = bool }, Cmd.none )
+            { model | hasFocus = bool }
 
         InputStringChanged value ->
-            ( { model | valueString = value }, Cmd.none )
+            { model | valueString = value }
 
         FocusStringChanged bool ->
-            ( { model | hasFocusString = bool }, Cmd.none )
+            { model | hasFocusString = bool }