NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-11-24 08:53:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

Show the labels without text

Browse Source
This commit is contained in:
Tessa Kelly 2020-09-08 14:47:38 -07:00
parent 093718d9ed
commit 989ce0821f
1 changed files with 49 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
styleguide-app/Examples/SegmentedControl.elm
View File

@ -62,7 +62,7 @@ example =
, SegmentedControl.viewRadioGroup
{ legend = "SegmentedControls 'viewSelectRadio' example"
, onSelect = SelectRadio
, options = List.take options.count (buildRadioOptions options.icon)
, options = List.take options.count (buildRadioOptions options.content)
, selected = state.optionallySelected
, positioning = options.positioning
}
@ -94,17 +94,16 @@ type Page
| Activity
buildOptions : { options | icon : Bool, longContent : Bool, tooltips : Bool } -> Maybe Page -> List (SegmentedControl.Option Page Msg)
buildOptions { icon, longContent, tooltips } openTooltip =
buildOptions : { options | content : Content, longContent : Bool, tooltips : Bool } -> Maybe Page -> List (SegmentedControl.Option Page Msg)
buildOptions { content, longContent, tooltips } openTooltip =
let
buildOption value icon_ =
{ icon =
if icon then
Just icon_
else
Nothing
, label = Html.text (Debug.toString value)
let
( icon, label ) =
getIconAndLabel content icon_ (Html.text (Debug.toString value))
in
{ icon = icon
, label = label
, value = value
, idString = toLower (Debug.toString value)
, attributes = []
@ -146,23 +145,22 @@ buildOptions { icon, longContent, tooltips } openTooltip =
]
buildRadioOptions : Bool -> List (SegmentedControl.Radio Int msg)
buildRadioOptions keepIcon =
buildRadioOptions : Content -> List (SegmentedControl.Radio Int msg)
buildRadioOptions content =
let
buildOption value icon =
{ icon = ifIcon icon
, label = Html.text ("Source " ++ Debug.toString (value + 1))
let
( icon_, label ) =
getIconAndLabel content
icon
(Html.text ("Source " ++ Debug.toString (value + 1)))
in
{ icon = icon_
, label = label
, value = value
, idString = String.fromInt value
, attributes = []
}
ifIcon icon =
if keepIcon then
Just icon
else
Nothing
in
List.indexedMap buildOption
[ UiIcon.leaderboard
@ -197,7 +195,7 @@ init =
type alias Options =
{ positioning : SegmentedControl.Positioning
, icon : Bool
, content : Content
, count : Int
, longContent : Bool
, tooltips : Bool
@ -214,7 +212,7 @@ optionsControl =
, ( "Center", Control.value SegmentedControl.Center )
]
)
|> Control.field "icon" (Control.bool True)
|> Control.field "content" controlContent
|> Control.field "count"
(Control.choice
(List.map (\i -> ( String.fromInt i, Control.value i )) (List.range 2 8))
@ -223,6 +221,34 @@ optionsControl =
|> Control.field "tooltips" (Control.bool True)
type Content
= TextAndIcon
| Text
| Icon
controlContent : Control Content
controlContent =
Control.choice
[ ( "Text and icon", Control.value TextAndIcon )
, ( "Text", Control.value Text )
, ( "Icon", Control.value Icon )
]
getIconAndLabel : Content -> svg -> Html msg -> ( Maybe svg, Html msg )
getIconAndLabel content icon_ value =
case content of
TextAndIcon ->
( Just icon_, value )
Icon ->
( Just icon_, Html.text "" )
Text ->
( Nothing, value )
{-| -}
type Msg
= FocusAndSelectPage { select : Page, focus : Maybe String }