NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-11-24 08:53:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

Render a table with all the examples

Browse Source
This commit is contained in:
Tessa Kelly 2020-08-28 16:01:56 -07:00
parent 4147112e08
commit e5f5928c44
1 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
styleguide-app/Examples/Message.elm
View File

@ -7,7 +7,7 @@ import Css exposing (..)
import Debug.Control as Control exposing (Control)
import Example exposing (Example)
import Html.Styled exposing (styled)
import Html.Styled.Attributes as Attributes exposing (href)
import Html.Styled.Attributes as Attributes exposing (css, href)
import KeyboardSupport exposing (Direction(..), Key(..))
import Nri.Ui.Colors.V1 as Colors
import Nri.Ui.Heading.V2 as Heading
@ -24,8 +24,7 @@ type alias State =
type alias ExampleConfig =
{ size : Maybe (Message.Attribute Msg)
, theme : Maybe (Message.Attribute Msg)
{ theme : Maybe (Message.Attribute Msg)
, content : Message.Attribute Msg
, role : Maybe (Message.Attribute Msg)
, dismissable : Maybe (Message.Attribute Msg)
@ -37,7 +36,6 @@ init =
{ show = True
, control =
Control.record ExampleConfig
|> Control.field "size" controlSize
|> Control.field "theme" controlTheme
|> Control.field "content" controlContent
|> Control.field "role" controlRole
@ -45,16 +43,6 @@ init =
}
controlSize : Control (Maybe (Message.Attribute Msg))
controlSize =
Control.choice
[ ( "not set", Control.value Nothing )
, ( "banner", Control.value (Just Message.banner) )
, ( "large", Control.value (Just Message.large) )
, ( "tiny", Control.value (Just Message.tiny) )
]
controlTheme : Control (Maybe (Message.Attribute msg))
controlTheme =
Control.choice
@ -177,14 +165,13 @@ example =
, view =
\state ->
let
{ size, role, theme, dismissable, content } =
{ role, theme, dismissable, content } =
Control.currentValue state.control
attributes : List (Message.Attribute Msg)
attributes =
List.filterMap identity
[ size
, theme
[ theme
, Just content
, role
, dismissable
@ -195,12 +182,28 @@ example =
view
else
text "Nice! The message was dismissed. 👍"
text "Nice! The messages were dismissed. 👍"
in
[ Control.view UpdateControl state.control
|> Html.fromUnstyled
, Heading.h3 [] [ text "Message.view" ]
, orDismiss <| Message.view attributes
, orDismiss <|
Html.table [ css [ width (pct 100) ] ]
[ Html.tbody []
[ tr []
[ th [] [ Html.text "tiny" ]
, td [] [ Message.view (Message.tiny :: attributes) ]
]
, tr []
[ th [] [ Html.text "large" ]
, td [] [ Message.view (Message.large :: attributes) ]
]
, tr []
[ th [] [ Html.text "banner" ]
, td [] [ Message.view (Message.banner :: attributes) ]
]
]
]
, Heading.h3 [] [ text "Message.somethingWentWrong" ]
, Message.somethingWentWrong exampleRailsError
]