NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-12-22 05:01:40 +03:00
Code Issues Packages Projects Releases Wiki Activity

Sketch the code gen

Browse Source
This commit is contained in:
Tessa Kelly 2022-03-24 16:11:53 -07:00
parent 92876cd6f6
commit 4a8fbbe5be
1 changed files with 67 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -49,6 +49,9 @@ example =
pageOptions =
List.take options.count (buildOptions options state.pageTooltip)
radioOptions =
List.take options.count (buildRadioOptions options state.radioTooltip options.content)
in
[ ControlView.view
{ update = ChangeOptions
@ -67,7 +70,18 @@ example =
]
|> String.join "\n"
}
, { sectionName = "viewRadioGroup", code = "TODO" }
, { sectionName = "viewRadioGroup"
, code =
[ "viewRadioGroup"
, " { onSelect : a -> msg"
, " , options : List (Radio a msg)"
, " , selected : Maybe a"
, " , positioning : Positioning"
, " , legend : String"
, " }"
]
|> String.join "\n"
}
]
}
, Html.h3 [ css [ Css.marginBottom Css.zero ] ]
@ -88,7 +102,7 @@ example =
, SegmentedControl.viewRadioGroup
{ legend = "SegmentedControls 'viewSelectRadio' example"
, onSelect = SelectRadio
, options = List.take options.count (buildRadioOptions options state.radioTooltip options.content)
, options = List.map Tuple.second radioOptions
, selected = state.optionallySelected
, positioning = Tuple.second options.positioning
}
@ -232,10 +246,10 @@ buildOptions { content, longContent, tooltips } openTooltip =
]
buildRadioOptions : { options | tooltips : Bool } -> Maybe Int -> Content -> List (SegmentedControl.Radio Int Msg)
buildRadioOptions : { options | tooltips : Bool } -> Maybe Int -> Content -> List ( String, SegmentedControl.Radio Int Msg )
buildRadioOptions options currentlyHovered content =
let
buildOption : Int -> ( String, Svg ) -> SegmentedControl.Radio Int Msg
buildOption : Int -> ( String, Svg ) -> ( String, SegmentedControl.Radio Int Msg )
buildOption value ( text, icon ) =
let
( icon_, label ) =
@ -243,31 +257,57 @@ buildRadioOptions options currentlyHovered content =
icon
("Source " ++ Debug.toString (value + 1))
in
{ icon = icon_
, label = Html.text label
, value = value
, idString = String.fromInt value
, tooltip =
if options.tooltips then
[ Tooltip.plaintext text
, Tooltip.open (currentlyHovered == Just value)
, Tooltip.fitToContent
, Tooltip.onHover
(\hovered ->
HoverRadio
(if hovered then
Just value
( [ "{ icon = icon_"
, ", label = Html.text label"
, ", value = value"
, ", idString = String.fromInt value"
, ", tooltip = []"
else
Nothing
)
)
]
--, if options.tooltips then
-- [ Tooltip.plaintext text
-- , Tooltip.open (currentlyHovered == Just value)
-- , Tooltip.fitToContent
-- , Tooltip.onHover
-- (\hovered ->
-- HoverRadio
-- (if hovered then
-- Just value
-- else
-- Nothing
-- )
-- )
-- ]
-- else []
, ", attributes = []"
, "}"
]
|> String.join "\n\t"
, { icon = icon_
, label = Html.text label
, value = value
, idString = String.fromInt value
, tooltip =
if options.tooltips then
[ Tooltip.plaintext text
, Tooltip.open (currentlyHovered == Just value)
, Tooltip.fitToContent
, Tooltip.onHover
(\hovered ->
HoverRadio
(if hovered then
Just value
else
[]
, attributes = []
}
else
Nothing
)
)
]
else
[]
, attributes = []
}
)
in
List.indexedMap buildOption
[ ( "Leaderboard", UiIcon.leaderboard )