hide label on inline. No one is asking for this and it looks awful

src/Nri/Ui/RadioButton/V3.elm

@@ -331,7 +331,7 @@ type alias InternalConfig value msg =
     , isLocked : Bool
     , showPennant : Bool
     , id : String
-    , disclosureIdAndElement : Maybe ( String, Html msg )
+    , disclosureIdAndElement : Maybe ( String, List (Html msg) )
     }
 
 
@@ -394,7 +394,7 @@ internalConfig label config eventsAndValues =
                             Nothing
 
                         ( (_ :: _) as childNodes, True ) ->
-                            Just <| ( disclosureId, div [ id disclosureId ] childNodes )
+                            Just <| ( disclosureId, childNodes )
                 }
 
         _ ->
@@ -517,9 +517,18 @@ viewBlock config =
                     config.premiumMsg
                 ]
             ]
-        , viewJust
+        , case config.disclosureIdAndElement of
-            Tuple.second
+            Just ( id_, childNodes ) ->
-            config.disclosureIdAndElement
+                div
+                    [ id id_
+                    , css
+                        [ display inlineBlock
+                        ]
+                    ]
+                    childNodes
+
+            Nothing ->
+                text ""
         ]
 
 
@@ -622,9 +631,25 @@ viewInline config =
                  else
                     [ css [ verticalAlign middle ] ]
                 )
-                [ Html.text config.label
+                [ Html.span
-                , viewJust
+                    [ css <|
-                    (\premiumMsg ->
+                        if config.hideLabel then
+                            [ Css.height <| px 1
+                            , Css.width <| px 1
+                            , overflow Css.hidden
+                            , margin <| px -1
+                            , padding <| px 0
+                            , border <| px 0
+                            , display inlineBlock
+                            , textIndent <| px 1
+                            ]
+
+                        else
+                            []
+                    ]
+                    [ Html.text config.label ]
+                , case ( config.hideLabel, config.premiumMsg ) of
+                    ( False, Just premiumMsg ) ->
                         ClickableSvg.button "Premium"
                             Pennant.premiumFlag
                             [ ClickableSvg.onClick premiumMsg
@@ -632,13 +657,17 @@ viewInline config =
                             , ClickableSvg.exactHeight 24
                             , ClickableSvg.css [ marginLeft (px 8) ]
                             ]
-                    )
+
-                    config.premiumMsg
+                    _ ->
+                        text ""
                 ]
             ]
-        , viewJust
+        , case config.disclosureIdAndElement of
-            Tuple.second
+            Just ( id_, childNodes ) ->
-            config.disclosureIdAndElement
+                span [ id id_ ] childNodes
+
+            Nothing ->
+                text ""
         ]
 
 

styleguide-app/Examples/RadioButton.elm

@@ -116,7 +116,7 @@ viewVanilla state =
             , RadioButton.disclosure
                 [ span
                     [ Attributes.id "cats-description" ]
-                    [ Text.mediumBody [ Text.plaintext "Cats kind of do their own thing" ] ]
+                    [ Text.smallBody [ Text.plaintext "Cats kind of do their own thing" ] ]
                 ]
             , RadioButton.block
             ]
@@ -151,16 +151,27 @@ viewVanilla state =
         , RadioButton.view
             (selectionToString Robots)
             [ RadioButton.premium
-                { teacherPremiumLevel = PremiumLevel.Premium
+                { teacherPremiumLevel = PremiumLevel.PremiumWithWriting
-                , contentPremiumLevel = PremiumLevel.PremiumWithWriting
+                , contentPremiumLevel = PremiumLevel.Premium
                 }
             , RadioButton.value Robots
             , RadioButton.name "pets"
             , RadioButton.selectedValue state.selectedValue
             , RadioButton.onSelect Select
             , RadioButton.valueToString selectionToString
-            , RadioButton.showPennant <| OpenModal "pets-robots"
             , RadioButton.inline
+            , RadioButton.showPennant <| OpenModal "pets-robots"
+            , if state.selectedValue == Just Robots then
+                RadioButton.hiddenLabel
+
+              else
+                RadioButton.none
+            , RadioButton.disclosure
+                [ Text.smallBody
+                    [ Text.plaintext "With apologies to Karel Čapek"
+                    , Text.css [ Css.display Css.inlineBlock ]
+                    ]
+                ]
             ]
         , p
             [ Attributes.id "dogs-description" ]