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
+    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 )