Adds spinner

2020-10-04 21:09:13 +02:00
parent 1ef5b4f710
commit 42de337746
3 changed files with 100 additions and 1 deletions
@@ -24,7 +24,7 @@ view model =
        element =
            case model of
                Core.Unloaded _ _ _ ->
-                    Element.none
+                    Element.el [ Element.padding 10, Element.centerX ] spinner

                Core.Loaded m ->
                    viewContent m
@@ -487,3 +487,23 @@ groupAux size list acc =
                List.drop size list
        in
        groupAux size groupTail (groupHead :: acc)
+
+
+spinner : Element Core.Msg
+spinner =
+    Element.html
+        (Html.div [ Html.Attributes.class "lds-spinner" ]
+            [ Html.div [] []
+            , Html.div [] []
+            , Html.div [] []
+            , Html.div [] []
+            , Html.div [] []
+            , Html.div [] []
+            , Html.div [] []
+            , Html.div [] []
+            , Html.div [] []
+            , Html.div [] []
+            , Html.div [] []
+            , Html.div [] []
+            ]
+        )