Add part2, clean up part1 some

2018-08-05 07:19:09 -04:00
parent c247c24a23
commit 2163df4cb3
53 changed files with 5419 additions and 72 deletions
--- a/advanced/part2/src/Loading.elm
+++ b/advanced/part2/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 ++ ".")