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

Adds menu width to list

Browse Source 
it doesn't seem like this does anything -- is this broken?
This commit is contained in:
Tessa Kelly 2022-03-24 13:22:20 -07:00
parent 5f0d1feb70
commit 4c9e678ba7
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
styleguide-app/Examples/Menu.elm
View File

@ -100,7 +100,6 @@ view state =
++ List.filterMap identity
[ Just <| Menu.buttonId "1stPeriodEnglish__button"
, Just <| Menu.menuId "1stPeriodEnglish__menu"
, Maybe.map Menu.menuWidth viewConfiguration.menuWidth
]
)
{ isOpen = isOpen "1stPeriodEnglish"
@ -164,7 +163,6 @@ view state =
++ List.filterMap identity
[ Just <| Menu.buttonId "icon-button-with-menu__button"
, Just <| Menu.menuId "icon-button-with-menu__menu"
, Maybe.map Menu.menuWidth viewCustomConfiguration.menuWidth
]
)
{ entries =
@ -255,6 +253,7 @@ controlMenuAttributes =
ControlExtra.list
|> ControlExtra.optionalListItem "alignment" controlAlignment
|> ControlExtra.optionalBoolListItem "isDisabled" ( "Menu.isDisabled True", Menu.isDisabled True )
|> ControlExtra.optionalListItem "menuWidth" controlMenuWidth
controlAlignment : Control ( String, Menu.Attribute msg )
@ -269,11 +268,17 @@ controlAlignment =
]
controlMenuWidth : Control ( String, Menu.Attribute msg )
controlMenuWidth =
Control.map
(\val -> ( "Menu.menuWidth " ++ String.fromInt val, Menu.menuWidth val ))
(ControlExtra.int 220)
type alias ViewConfiguration =
{ hasBorder : Bool
, wrapping : Menu.TitleWrapping
, buttonWidth : Maybe Int
, menuWidth : Maybe Int
, icon : Maybe Svg
}
@ -290,8 +295,6 @@ initViewConfiguration =
)
|> Control.field "buttonWidth"
(Control.maybe False (Control.choice [ ( "220", Control.value 220 ) ]))
|> Control.field "menuWidth"
(Control.maybe False (Control.choice [ ( "180", Control.value 220 ) ]))
|> Control.field "icon"
(Control.maybe False
(Control.choice
@ -304,16 +307,13 @@ initViewConfiguration =
type alias IconButtonWithMenuConfiguration =
{ menuWidth : Maybe Int
, icon : Svg
{ icon : Svg
}
initIconButtonWithMenuConfiguration : Control IconButtonWithMenuConfiguration
initIconButtonWithMenuConfiguration =
Control.record IconButtonWithMenuConfiguration
|> Control.field "menuWidth"
(Control.maybe False (Control.choice [ ( "180", Control.value 220 ) ]))
|> Control.field "icon"
(Control.choice
[ ( "edit", Control.value UiIcon.edit )