From 515e5085b7ca858474c75d0309d8071e67f468d3 Mon Sep 17 00:00:00 2001
From: Tessa Kelly <tessakkelly@gmail.com>
Date: Fri, 5 Apr 2019 12:43:41 -0700
Subject: [PATCH] Add dot from assignment form (minus some peer review specific
 stuff and integer checking

---
 src/Nri/Ui/SlideModal/V1.elm | 47 ++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/src/Nri/Ui/SlideModal/V1.elm b/src/Nri/Ui/SlideModal/V1.elm
index 160e352e..043c7327 100644
--- a/src/Nri/Ui/SlideModal/V1.elm
+++ b/src/Nri/Ui/SlideModal/V1.elm
@@ -203,6 +203,11 @@ viewFooter button =
         ]
         []
         [ viewFooterButton button
+        , div [ css [ Css.marginTop (Css.px 16) ] ]
+            [ dot Inactive
+            , dot Active
+            , dot Inactive
+            ]
         ]
 
 
@@ -218,3 +223,45 @@ viewFooterButton { label, msg } =
         , state = Button.Enabled
         , icon = Nothing
         }
+
+
+type Dot
+    = Active
+    | Inactive
+
+
+dot : Dot -> Html.Html msg
+dot type_ =
+    Html.div
+        ([ css
+            [ Css.height (Css.px 10)
+            , Css.width (Css.px 10)
+            , Css.borderRadius (Css.px 5)
+            , Css.margin2 Css.zero (Css.px 2)
+            , Css.display Css.inlineBlock
+            ]
+         ]
+            ++ (case type_ of
+                    Active ->
+                        [ css [ Css.backgroundColor Colors.azure ]
+                        ]
+
+                    Inactive ->
+                        [ css
+                            [ Css.backgroundColor Colors.gray75
+                            , Css.cursor Css.pointer
+                            ]
+
+                        -- ahhh ClickableDiv, my old friend.
+                        -- , Html.Styled.Events.onClick
+                        --     (SetModal
+                        --         (PeerReviewIntroModal
+                        --             { step = stepNum
+                        --             , formStep = data.formStep
+                        --             }
+                        --         )
+                        --     )
+                        ]
+               )
+        )
+        []