Add mobile css example

This commit is contained in:
Tessa Kelly 2022-03-29 13:37:00 -07:00
parent 9067623ef3
commit 83a1a9000f

View File

@ -150,22 +150,28 @@ controlNavAttributes =
)
(Control.string "Entries")
)
|> ControlExtra.optionalListItem "navCss"
|> ControlExtra.optionalListItem "navNotMobileCss"
(Control.choice
[ ( "maxWidth"
, Control.value
( "SideNav.navCss [ Css.maxWidth (Css.px 300) ]"
, SideNav.navCss [ Css.maxWidth (Css.px 300) ]
( "SideNav.navNotMobileCss [ Css.maxWidth (Css.px 300) ]"
, SideNav.navNotMobileCss [ Css.maxWidth (Css.px 300) ]
)
)
, ( "purple border"
, Control.value
( "SideNav.navCss [ Css.border3 (Css.px 3) Css.dotted Colors.purple ]"
, SideNav.navCss [ Css.border3 (Css.px 3) Css.dotted Colors.purple ]
( "SideNav.navNotMobileCss [ Css.border3 (Css.px 3) Css.dotted Colors.purple ]"
, SideNav.navNotMobileCss [ Css.border3 (Css.px 3) Css.dotted Colors.purple ]
)
)
]
)
|> ControlExtra.optionalListItem "navMobileCss"
(Control.value
( "SideNav.navMobileCss [ Css.width (Css.pct 100) ]"
, SideNav.navMobileCss [ Css.width (Css.pct 100) ]
)
)
controlEntryType : String -> Control ( String, SideNav.Entry String Msg )