From 6f7be4edc0be202a059977907a18ecb8089de33d Mon Sep 17 00:00:00 2001
From: Tessa Kelly <tessakkelly@gmail.com>
Date: Fri, 15 Jun 2018 09:19:07 -0700
Subject: [PATCH] :art: move toward forking a little bit higher in advance of
 moving the styles

---
 src/Nri/Ui/Checkbox/V3.elm | 110 ++++++++++++++++++++++++-------------
 1 file changed, 73 insertions(+), 37 deletions(-)

diff --git a/src/Nri/Ui/Checkbox/V3.elm b/src/Nri/Ui/Checkbox/V3.elm
index f6d2405f..106f4713 100644
--- a/src/Nri/Ui/Checkbox/V3.elm
+++ b/src/Nri/Ui/Checkbox/V3.elm
@@ -264,20 +264,21 @@ buildCheckbox modifierClasses showLabels model =
             , RootAttributes.id model.identifier
             , RootAttributes.disabled model.disabled
             ]
-        , Html.span
-            (if showLabels then
-                []
-             else
-                [ Accessibility.Styled.Style.invisible ]
-            )
-            [ Html.text model.label ]
-            |> viewLabel model
-            |> toUnstyled
+        , if showLabels then
+            viewLabel model
+                (Html.span [] [ Html.text model.label ])
+                (labelClassAndTheme model.isChecked)
+                |> toUnstyled
+          else
+            viewLabel model
+                (Html.span [ Accessibility.Styled.Style.invisible ] [ Html.text model.label ])
+                (labelClassAndTheme model.isChecked)
+                |> toUnstyled
         ]
 
 
-viewLabel : Model msg -> Html.Html msg -> Html.Html msg
-viewLabel model content =
+viewLabel : Model msg -> Html.Html msg -> ( Html.Attribute msg, Html.Attribute msg ) -> Html.Html msg
+viewLabel model content ( class, theme ) =
     Html.Styled.label
         [ Attributes.for model.identifier
         , Aria.controls model.identifier
@@ -300,38 +301,73 @@ viewLabel model content =
                 )
           else
             ExtraAttributes.none
-        , labelClass model.isChecked
-        , css
-            [ cursor pointer
-            , outline none
-
-            --TODO These styles depend on the theme
-            --, case maybeChecked of
-            --    Just True ->
-            --        Checked
-            --    Just False ->
-            --        Unchecked
-            --    Nothing ->
-            --        Indeterminate
-            ]
+        , class
+        , theme
         ]
         [ content ]
 
 
-labelClass : Maybe Bool -> Html.Attribute msg
-labelClass maybeChecked =
-    Attributes.classList
-        [ ( "checkbox-Label", True )
-        , case maybeChecked of
-            Just True ->
-                ( "checkbox-Checked", True )
+labelClassAndTheme isChecked =
+    case isChecked of
+        Just True ->
+            ( Attributes.classList
+                [ ( "checkbox-Label", True )
+                , ( "checkbox-Checked", True )
+                ]
+            , css
+                [ cursor pointer
+                , outline none
 
-            Just False ->
-                ( "checkbox-Unchecked", True )
+                --TODO These styles depend on the theme
+                --, case maybeChecked of
+                --    Just True ->
+                --        Checked
+                --    Just False ->
+                --        Unchecked
+                --    Nothing ->
+                --        Indeterminate
+                ]
+            )
 
-            Nothing ->
-                ( "checkbox-Indeterminate", True )
-        ]
+        Just False ->
+            ( Attributes.classList
+                [ ( "checkbox-Label", True )
+                , ( "checkbox-Unchecked", True )
+                ]
+            , css
+                [ cursor pointer
+                , outline none
+
+                --TODO These styles depend on the theme
+                --, case maybeChecked of
+                --    Just True ->
+                --        Checked
+                --    Just False ->
+                --        Unchecked
+                --    Nothing ->
+                --        Indeterminate
+                ]
+            )
+
+        Nothing ->
+            ( Attributes.classList
+                [ ( "checkbox-Label", True )
+                , ( "checkbox-Indeterminate", True )
+                ]
+            , css
+                [ cursor pointer
+                , outline none
+
+                --TODO These styles depend on the theme
+                --, case maybeChecked of
+                --    Just True ->
+                --        Checked
+                --    Just False ->
+                --        Unchecked
+                --    Nothing ->
+                --        Indeterminate
+                ]
+            )
 
 
 getLabelClass : Maybe Bool -> RootHtml.Attribute msg