Add part5

2018-08-05 08:41:30 -04:00
parent 2e0d00f947
commit 1ea49f8bda
53 changed files with 5519 additions and 0 deletions
--- a/advanced/part5/src/Loading.elm
+++ b/advanced/part5/src/Loading.elm
@@ -0,0 +1,21 @@
+module Loading exposing (error, icon)
+
+{-| A loading spinner icon.
+-}
+
+import Html exposing (Attribute, Html, div, li)
+import Html.Attributes exposing (class, style)
+
+
+icon : Html msg
+icon =
+    li [ class "sk-three-bounce", style "float" "left", style "margin" "8px" ]
+        [ div [ class "sk-child sk-bounce1" ] []
+        , div [ class "sk-child sk-bounce2" ] []
+        , div [ class "sk-child sk-bounce3" ] []
+        ]
+
+
+error : String -> Html msg
+error str =
+    Html.text ("Error loading " ++ str ++ ".")