More reasonable icon default

styleguide-app/CommonControls.elm

@@ -2,7 +2,7 @@ module CommonControls exposing
     ( css, mobileCss, quizEngineMobileCss, notMobileCss
     , choice
     , icon, iconNotCheckedByDefault, uiIcon
-    , content
+    , content, exampleHtml
     , httpError
     , disabledListItem, premiumDisplay
     )
@@ -16,7 +16,7 @@ module CommonControls exposing
 
 ### Content
 
-@docs content
+@docs content, exampleHtml
 @docs httpError
 
 -}

styleguide-app/Examples/Accordion.elm

@@ -348,13 +348,24 @@ initSettings =
 
 controlIcon : Control ( String, Bool -> Html Msg )
 controlIcon =
-    Control.map
-        (\( code, icon ) ->
-            ( "\\_ -> Svg.toHtml " ++ code
-            , \_ -> Svg.toHtml icon
-            )
-        )
-        CommonControls.uiIcon
+    Control.choice
+        [ ( "none", Control.value ( "\\_ -> text \"\"", \_ -> Html.text "" ) )
+        , ( "DisclosureIndicator"
+          , Control.value
+                ( "DisclosureIndicator.large [ Css.marginRight (Css.px 8) ]"
+                , DisclosureIndicator.large [ Css.marginRight (Css.px 8) ]
+                )
+          )
+        , ( "UiIcon"
+          , Control.map
+                (\( code, icon ) ->
+                    ( "\\_ -> Svg.toHtml " ++ code
+                    , \_ -> Svg.toHtml icon
+                    )
+                )
+                CommonControls.uiIcon
+          )
+        ]
 
 
 controlHeaderContent : Control ( String, Html Msg )