NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-12-18 19:21:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix TODOs in generated code for tooltip module

Browse Source
This commit is contained in:
Tessa Kelly 2022-03-17 17:48:48 -07:00
parent 0cb8c81681
commit efc6634ab0
1 changed files with 8 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
styleguide-app/Examples/Tooltip.elm
View File

@ -66,7 +66,7 @@ example =
type alias State = type alias State =
{ openTooltip : Maybe TooltipType { openTooltip : Maybe TooltipType
, staticExampleSettings : Control (List (Tooltip.Attribute Never)) , staticExampleSettings : Control (List ( String, Tooltip.Attribute Never ))
} }
@ -85,7 +85,7 @@ type TooltipType
type Msg type Msg
= ToggleTooltip TooltipType Bool = ToggleTooltip TooltipType Bool
| SetControl (Control (List (Tooltip.Attribute Never))) | SetControl (Control (List ( String, Tooltip.Attribute Never )))
update : Msg -> State -> ( State, Cmd Msg ) update : Msg -> State -> ( State, Cmd Msg )
@ -179,7 +179,7 @@ viewToggleTip openTooltip =
] ]
initStaticExampleSettings : Control (List (Tooltip.Attribute Never)) initStaticExampleSettings : Control (List ( String, Tooltip.Attribute Never ))
initStaticExampleSettings = initStaticExampleSettings =
ControlExtra.list ControlExtra.list
|> ControlExtra.listItem "content" controlContent |> ControlExtra.listItem "content" controlContent
@ -188,7 +188,6 @@ initStaticExampleSettings =
|> ControlExtra.optionalBoolListItem "withoutTail" ( "Tooltip.withoutTail", Tooltip.withoutTail ) |> ControlExtra.optionalBoolListItem "withoutTail" ( "Tooltip.withoutTail", Tooltip.withoutTail )
|> ControlExtra.optionalListItem "width" controlWidth |> ControlExtra.optionalListItem "width" controlWidth
|> ControlExtra.optionalListItem "padding" controlPadding |> ControlExtra.optionalListItem "padding" controlPadding
|> Control.map (List.map Tuple.second)
controlContent : Control ( String, Tooltip.Attribute Never ) controlContent : Control ( String, Tooltip.Attribute Never )
@ -268,15 +267,8 @@ controlPadding =
] ]
viewCustomizableExample : Control (List (Tooltip.Attribute Never)) -> Html Msg viewCustomizableExample : Control (List ( String, Tooltip.Attribute Never )) -> Html Msg
viewCustomizableExample controlSettings = viewCustomizableExample controlSettings =
let
settings =
Control.currentValue controlSettings
attributes =
Tooltip.open True :: settings
in
Html.div [] Html.div []
[ ControlView.view [ ControlView.view
{ update = SetControl { update = SetControl
@ -297,7 +289,7 @@ viewCustomizableExample controlSettings =
, " }" , " }"
, " [ " , " [ "
++ String.join "\n , " ++ String.join "\n , "
("Tooltip.open True" :: List.map (\_ -> "TODO") controls) ("Tooltip.open True" :: List.map Tuple.first controls)
, " ]" , " ]"
] ]
} }
@ -320,7 +312,9 @@ viewCustomizableExample controlSettings =
] ]
, id = "an-id-for-the-tooltip" , id = "an-id-for-the-tooltip"
} }
attributes (Tooltip.open True
:: List.map Tuple.second (Control.currentValue controlSettings)
)
|> Html.map never |> Html.map never
] ]
] ]