NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-11-28 01:45:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use list for Modal example

Browse Source
This commit is contained in:
Tessa Kelly 2021-10-28 08:50:39 -07:00
parent 08f345a17c
commit a2d63ea650
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
styleguide-app/Examples/Modal.elm
View File

@ -11,6 +11,7 @@ import Browser.Dom as Dom
import Category exposing (Category(..))
import Css exposing (..)
import Debug.Control as Control exposing (Control)
import Debug.Control.Extra as ControlExtra
import Example exposing (Example)
import Html as Root
import Html.Styled.Attributes as Attributes exposing (css)
@ -44,10 +45,10 @@ init =
controlAttributes : Control (List Modal.Attribute)
controlAttributes =
Control.record (\a b c -> a :: b :: c :: [])
|> Control.field "Theme" controlTheme
|> Control.field "Title visibility" controlTitleVisibility
|> Control.field "Custom css" controlCss
ControlExtra.list
|> ControlExtra.listItem "Theme" controlTheme
|> ControlExtra.listItem "Title visibility" controlTitleVisibility
|> ControlExtra.listItem "Custom css" controlCss
type alias ViewSettings =