Ellie Link Generator - v1 (Stateless & Messageless Files Only)

.circleci/config.yml

@@ -104,4 +104,4 @@ workflows:
             - install_deps
           filters:
             branches:
-              ignore: master
+              ignore: master

showcase/elm.json

@@ -13,6 +13,7 @@
             "elm/html": "1.0.0",
             "elm/http": "2.0.0",
             "elm/json": "1.1.3",
+            "elm/parser": "1.1.0",
             "elm/svg": "1.0.1",
             "elm/url": "1.0.0",
             "elm-community/list-extra": "8.2.4",
@@ -26,7 +27,6 @@
         "indirect": {
             "elm/bytes": "1.0.8",
             "elm/file": "1.0.5",
-            "elm/parser": "1.1.0",
             "elm/regex": "1.0.0",
             "elm/time": "1.0.0",
             "elm/virtual-dom": "1.0.2",

showcase/src/elm/Router.elm

@@ -366,7 +366,7 @@ fetchComponentExamples { commitHash, fileServerUrl, examplesFetched } routeName
 
 
 init : Url -> Flags -> ( Model, Cmd Msg )
-init url { commitHash, fileServerUrl } =
+init url { commitHash, fileServerUrl, elmAntdVersion } =
     let
         route =
             fromUrl url
@@ -377,15 +377,15 @@ init url { commitHash, fileServerUrl } =
             , commitHash = commitHash
             , fileServerUrl = fileServerUrl
             , footer = Footer.initialModel
-            , alertPageModel = AlertPage.route.initialModel
-            , buttonPageModel = ButtonPage.route.initialModel
-            , checkboxPageModel = CheckboxPage.route.initialModel
-            , dividerPageModel = DividerPage.route.initialModel
-            , formPageModel = FormPage.route.initialModel
-            , inputPageModel = InputPage.route.initialModel
-            , spacePageModel = SpacePage.route.initialModel
-            , typographyPageModel = TypographyPage.route.initialModel
-            , tooltipPageModel = TooltipPage.route.initialModel
+            , alertPageModel = AlertPage.route.initialModel elmAntdVersion
+            , buttonPageModel = ButtonPage.route.initialModel elmAntdVersion
+            , checkboxPageModel = CheckboxPage.route.initialModel elmAntdVersion
+            , dividerPageModel = DividerPage.route.initialModel elmAntdVersion
+            , formPageModel = FormPage.route.initialModel elmAntdVersion
+            , inputPageModel = InputPage.route.initialModel elmAntdVersion
+            , spacePageModel = SpacePage.route.initialModel elmAntdVersion
+            , typographyPageModel = TypographyPage.route.initialModel elmAntdVersion
+            , tooltipPageModel = TooltipPage.route.initialModel elmAntdVersion
             }
     in
     ( model

showcase/src/elm/Routes/AlertComponent.elm

@@ -24,6 +24,7 @@ type alias Model =
     , descriptionExample : Container.Model () Never
     , typeExample : Container.Model () Never
     , closeableExample : Container.Model CloseableExample.Model CloseableExample.Msg
+    , version : Maybe String
     }
 
 
@@ -78,10 +79,10 @@ update msg model =
 
         ExampleSourceCodeLoaded examplesSourceCode ->
             ( { model
-                | basicExample = Container.setSourceCode examplesSourceCode model.basicExample
-                , typeExample = Container.setSourceCode examplesSourceCode model.typeExample
-                , closeableExample = Container.setSourceCode examplesSourceCode model.closeableExample
-                , descriptionExample = Container.setSourceCode examplesSourceCode model.descriptionExample
+                | basicExample = Container.setSourceCode model.version examplesSourceCode model.basicExample
+                , typeExample = Container.setSourceCode model.version examplesSourceCode model.typeExample
+                , closeableExample = Container.setSourceCode model.version examplesSourceCode model.closeableExample
+                , descriptionExample = Container.setSourceCode model.version examplesSourceCode model.descriptionExample
               }
             , Cmd.none
             )
@@ -95,12 +96,14 @@ route =
     , update = update
     , saveExampleSourceCodeToModel = ExampleSourceCodeLoaded
     , initialModel =
-        { basicExample = Container.initModel "BasicExample.elm"
-        , typeExample = Container.initModel "TypeExample.elm"
-        , descriptionExample = Container.initModel "DescriptionExample.elm"
-        , closeableExample =
-            Container.initStatefulModel "CloseableExample.elm" CloseableExample.init CloseableExample.update
-        }
+        \v ->
+            { basicExample = Container.initModel "BasicExample.elm"
+            , typeExample = Container.initModel "TypeExample.elm"
+            , descriptionExample = Container.initModel "DescriptionExample.elm"
+            , closeableExample =
+                Container.initStatefulModel "CloseableExample.elm" CloseableExample.init CloseableExample.update
+            , version = v
+            }
     }
 
 

showcase/src/elm/Routes/ButtonComponent.elm

@@ -23,6 +23,7 @@ type alias Model =
     { typeExample : Container.Model () Never
     , disabledExample : Container.Model () DisabledExample.Msg
     , iconExample : Container.Model () IconExample.Msg
+    , version : Maybe String
     }
 
 
@@ -65,9 +66,9 @@ update msg model =
 
         ExampleSourceCodeLoaded examplesSourceCode ->
             ( { model
-                | typeExample = Container.setSourceCode examplesSourceCode model.typeExample
-                , disabledExample = Container.setSourceCode examplesSourceCode model.disabledExample
-                , iconExample = Container.setSourceCode examplesSourceCode model.iconExample
+                | typeExample = Container.setSourceCode model.version examplesSourceCode model.typeExample
+                , disabledExample = Container.setSourceCode model.version examplesSourceCode model.disabledExample
+                , iconExample = Container.setSourceCode model.version examplesSourceCode model.iconExample
               }
             , Cmd.none
             )
@@ -81,18 +82,20 @@ route =
     , update = update
     , saveExampleSourceCodeToModel = ExampleSourceCodeLoaded
     , initialModel =
-        { typeExample = Container.initModel "TypeExample.elm"
-        , iconExample =
-            Container.initStatefulModel
-                "IconExample.elm"
-                ()
-                (\_ _ -> ( (), Cmd.none ))
-        , disabledExample =
-            Container.initStatefulModel
-                "DisabledExample.elm"
-                ()
-                (\_ _ -> ( (), Cmd.none ))
-        }
+        \v ->
+            { typeExample = Container.initModel "TypeExample.elm"
+            , iconExample =
+                Container.initStatefulModel
+                    "IconExample.elm"
+                    ()
+                    (\_ _ -> ( (), Cmd.none ))
+            , disabledExample =
+                Container.initStatefulModel
+                    "DisabledExample.elm"
+                    ()
+                    (\_ _ -> ( (), Cmd.none ))
+            , version = v
+            }
     }
 
 

showcase/src/elm/Routes/CheckboxComponent.elm

@@ -22,6 +22,7 @@ type alias Model =
     { basicExample : Container.Model BasicExample.Model BasicExample.Msg
     , disabledExample : Container.Model () Never
     , controlledExample : Container.Model ControlledExample.Model ControlledExample.Msg
+    , version : Maybe String
     }
 
 
@@ -64,9 +65,9 @@ update msg model =
 
         ExampleSourceCodeLoaded examplesSourceCode ->
             ( { model
-                | basicExample = Container.setSourceCode examplesSourceCode model.basicExample
-                , disabledExample = Container.setSourceCode examplesSourceCode model.disabledExample
-                , controlledExample = Container.setSourceCode examplesSourceCode model.controlledExample
+                | basicExample = Container.setSourceCode model.version examplesSourceCode model.basicExample
+                , disabledExample = Container.setSourceCode model.version examplesSourceCode model.disabledExample
+                , controlledExample = Container.setSourceCode model.version examplesSourceCode model.controlledExample
               }
             , Cmd.none
             )
@@ -80,13 +81,15 @@ route =
     , update = update
     , saveExampleSourceCodeToModel = ExampleSourceCodeLoaded
     , initialModel =
-        { basicExample =
-            Container.initStatefulModel "BasicExample.elm" BasicExample.init BasicExample.update
-        , controlledExample =
-            Container.initStatefulModel "ControlledExample.elm" ControlledExample.init ControlledExample.update
-        , disabledExample =
-            Container.initModel "DisabledExample.elm"
-        }
+        \v ->
+            { basicExample =
+                Container.initStatefulModel "BasicExample.elm" BasicExample.init BasicExample.update
+            , controlledExample =
+                Container.initStatefulModel "ControlledExample.elm" ControlledExample.init ControlledExample.update
+            , disabledExample =
+                Container.initModel "DisabledExample.elm"
+            , version = v
+            }
     }
 
 

showcase/src/elm/Routes/DividerComponent.elm

@@ -28,6 +28,7 @@ type alias Model =
     , textWithoutHeadingExample : StatelessDemo
     , withTitleExample : StatelessDemo
     , verticalExample : StatelessDemo
+    , version : Maybe String
     }
 
 
@@ -82,10 +83,10 @@ update msg model =
 
         ExampleSourceCodeLoaded examplesSourceCode ->
             ( { model
-                | verticalExample = Container.setSourceCode examplesSourceCode model.verticalExample
-                , withTitleExample = Container.setSourceCode examplesSourceCode model.withTitleExample
-                , horizontalExample = Container.setSourceCode examplesSourceCode model.horizontalExample
-                , textWithoutHeadingExample = Container.setSourceCode examplesSourceCode model.textWithoutHeadingExample
+                | verticalExample = Container.setSourceCode model.version examplesSourceCode model.verticalExample
+                , withTitleExample = Container.setSourceCode model.version examplesSourceCode model.withTitleExample
+                , horizontalExample = Container.setSourceCode model.version examplesSourceCode model.horizontalExample
+                , textWithoutHeadingExample = Container.setSourceCode model.version examplesSourceCode model.textWithoutHeadingExample
               }
             , Cmd.none
             )
@@ -98,11 +99,13 @@ route =
     , view = view
     , update = update
     , initialModel =
-        { horizontalExample = Container.initModel "HorizontalExample.elm"
-        , textWithoutHeadingExample = Container.initModel "TextWithoutHeadingExample.elm"
-        , withTitleExample = Container.initModel "WithTitleExample.elm"
-        , verticalExample = Container.initModel "VerticalExample.elm"
-        }
+        \v ->
+            { horizontalExample = Container.initModel "HorizontalExample.elm"
+            , textWithoutHeadingExample = Container.initModel "TextWithoutHeadingExample.elm"
+            , withTitleExample = Container.initModel "WithTitleExample.elm"
+            , verticalExample = Container.initModel "VerticalExample.elm"
+            , version = v
+            }
     , saveExampleSourceCodeToModel = ExampleSourceCodeLoaded
     }
 

showcase/src/elm/Routes/FormComponent.elm

@@ -19,6 +19,7 @@ import Utils exposing (ComponentCategory(..), DocumentationRoute, SourceCode)
 
 type alias Model =
     { basicExample : Container.Model BasicExample.Model BasicExample.Msg
+    , version : Maybe String
     }
 
 
@@ -45,7 +46,7 @@ update msg model =
 
         ExampleSourceCodeLoaded examplesSourceCode ->
             ( { model
-                | basicExample = Container.setSourceCode examplesSourceCode model.basicExample
+                | basicExample = Container.setSourceCode model.version examplesSourceCode model.basicExample
               }
             , Cmd.none
             )
@@ -59,9 +60,11 @@ route =
     , update = update
     , saveExampleSourceCodeToModel = ExampleSourceCodeLoaded
     , initialModel =
-        { basicExample =
-            Container.initStatefulModel "BasicExample.elm" BasicExample.init BasicExample.update
-        }
+        \v ->
+            { basicExample =
+                Container.initStatefulModel "BasicExample.elm" BasicExample.init BasicExample.update
+            , version = v
+            }
     }
 
 

showcase/src/elm/Routes/InputComponent.elm

@@ -26,6 +26,7 @@ type alias Model =
     { basicExample : Container.Model BasicExample.Model BasicExample.Msg
     , passwordExample : Container.Model PasswordExample.Model PasswordExample.Msg
     , textAreaExample : Container.Model TextAreaExample.Model TextAreaExample.Msg
+    , version : Maybe String
     }
 
 
@@ -47,22 +48,24 @@ route =
     , view = view
     , update = update
     , initialModel =
-        { basicExample =
-            Container.initStatefulModel
-                "BasicExample.elm"
-                BasicExample.init
-                BasicExample.update
-        , passwordExample =
-            Container.initStatefulModel
-                "PasswordExample.elm"
-                PasswordExample.init
-                PasswordExample.update
-        , textAreaExample =
-            Container.initStatefulModel
-                "TextAreaExample.elm"
-                TextAreaExample.init
-                TextAreaExample.update
-        }
+        \v ->
+            { basicExample =
+                Container.initStatefulModel
+                    "BasicExample.elm"
+                    BasicExample.init
+                    BasicExample.update
+            , passwordExample =
+                Container.initStatefulModel
+                    "PasswordExample.elm"
+                    PasswordExample.init
+                    PasswordExample.update
+            , textAreaExample =
+                Container.initStatefulModel
+                    "TextAreaExample.elm"
+                    TextAreaExample.init
+                    TextAreaExample.update
+            , version = v
+            }
     , saveExampleSourceCodeToModel = ExampleSourceCodeLoaded
     }
 
@@ -95,9 +98,9 @@ update msg model =
 
         ExampleSourceCodeLoaded examplesSourceCode ->
             ( { model
-                | basicExample = Container.setSourceCode examplesSourceCode model.basicExample
-                , passwordExample = Container.setSourceCode examplesSourceCode model.passwordExample
-                , textAreaExample = Container.setSourceCode examplesSourceCode model.textAreaExample
+                | basicExample = Container.setSourceCode model.version examplesSourceCode model.basicExample
+                , passwordExample = Container.setSourceCode model.version examplesSourceCode model.passwordExample
+                , textAreaExample = Container.setSourceCode model.version examplesSourceCode model.textAreaExample
               }
             , Cmd.none
             )

showcase/src/elm/Routes/SpaceComponent.elm

@@ -28,6 +28,7 @@ type alias StatelessDemo =
 type alias Model =
     { basicExample : StatelessDemo
     , verticalAndSpacingExample : StatelessDemo
+    , version : Maybe String
     }
 
 
@@ -48,11 +49,13 @@ route =
     , view = view
     , update = update
     , initialModel =
-        { basicExample =
-            Container.initModel "BasicExample.elm"
-        , verticalAndSpacingExample =
-            Container.initModel "VerticalAndSpacingExample.elm"
-        }
+        \v ->
+            { basicExample =
+                Container.initModel "BasicExample.elm"
+            , verticalAndSpacingExample =
+                Container.initModel "VerticalAndSpacingExample.elm"
+            , version = v
+            }
     , saveExampleSourceCodeToModel = ExampleSourceCodeLoaded
     }
 
@@ -78,8 +81,8 @@ update msg model =
 
         ExampleSourceCodeLoaded examplesSourceCode ->
             ( { model
-                | basicExample = Container.setSourceCode examplesSourceCode model.basicExample
-                , verticalAndSpacingExample = Container.setSourceCode examplesSourceCode model.verticalAndSpacingExample
+                | basicExample = Container.setSourceCode model.version examplesSourceCode model.basicExample
+                , verticalAndSpacingExample = Container.setSourceCode model.version examplesSourceCode model.verticalAndSpacingExample
               }
             , Cmd.none
             )