mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-12-25 06:33:09 +03:00
Duplicate the existing behavior with an initial version of the new API
This commit is contained in:
parent
846efc0b69
commit
d7aa9fa456
@ -1,6 +1,8 @@
|
||||
module Nri.Ui.Button.V9 exposing
|
||||
( buildButton, buildLink
|
||||
, onClick, setButtonState, href
|
||||
, render
|
||||
, withLabel
|
||||
, small, medium, large
|
||||
, exactWidth, unboundedWidth, fillContainerWidth
|
||||
, primary, secondary, danger, premium
|
||||
@ -11,6 +13,7 @@ module Nri.Ui.Button.V9 exposing
|
||||
, toggleButton
|
||||
, link, linkSpa
|
||||
, linkExternal, linkWithMethod, linkWithTracking, linkExternalWithTracking
|
||||
, ButtonOrLink
|
||||
)
|
||||
|
||||
{-|
|
||||
@ -42,7 +45,9 @@ may be exceptions, for example if button content is supplied by an end-user.
|
||||
##
|
||||
|
||||
@docs buildButton, buildLink
|
||||
@docs onClick, setButtonState, href
|
||||
@docs render
|
||||
@docs withLabel
|
||||
@docs small, medium, large
|
||||
@docs exactWidth, unboundedWidth, fillContainerWidth
|
||||
@docs primary, secondary, danger, premium
|
||||
@ -114,33 +119,80 @@ type ButtonOrLink msg
|
||||
|
||||
|
||||
{-| -}
|
||||
buildButton : String -> msg -> ButtonOrLink msg
|
||||
buildButton label onClick =
|
||||
buildButton : ButtonOrLink ()
|
||||
buildButton =
|
||||
Button
|
||||
{ onClick = onClick
|
||||
{ onClick = ()
|
||||
, size = Medium
|
||||
, style = Primary
|
||||
, width = WidthUnbounded
|
||||
}
|
||||
{ label = label
|
||||
{ label = ""
|
||||
, state = Enabled
|
||||
, icon = Nothing
|
||||
}
|
||||
|
||||
|
||||
{-| -}
|
||||
buildLink : String -> String -> ButtonOrLink msg
|
||||
buildLink label url =
|
||||
onClick : msg -> ButtonOrLink () -> ButtonOrLink msg
|
||||
onClick msg buttonOrLink =
|
||||
case buttonOrLink of
|
||||
Button config state ->
|
||||
Button
|
||||
{ onClick = msg
|
||||
, size = config.size
|
||||
, style = config.style
|
||||
, width = config.width
|
||||
}
|
||||
state
|
||||
|
||||
Link config ->
|
||||
Link config
|
||||
|
||||
|
||||
{-| -}
|
||||
setButtonState : ButtonState -> ButtonOrLink msg -> ButtonOrLink msg
|
||||
setButtonState buttonState buttonOrLink =
|
||||
case buttonOrLink of
|
||||
Button config state ->
|
||||
Button config { state | state = buttonState }
|
||||
|
||||
Link config ->
|
||||
Link config
|
||||
|
||||
|
||||
{-| -}
|
||||
buildLink : ButtonOrLink ()
|
||||
buildLink =
|
||||
Link
|
||||
{ label = label
|
||||
{ label = ""
|
||||
, icon = Nothing
|
||||
, url = url
|
||||
, url = "#"
|
||||
, size = Medium
|
||||
, style = Primary
|
||||
, width = WidthUnbounded
|
||||
}
|
||||
|
||||
|
||||
{-| -}
|
||||
href : String -> ButtonOrLink () -> Maybe (ButtonOrLink msg)
|
||||
href url buttonOrLink =
|
||||
case buttonOrLink of
|
||||
Button config state ->
|
||||
Nothing
|
||||
|
||||
Link config ->
|
||||
Just <|
|
||||
Link
|
||||
{ label = config.label
|
||||
, icon = config.icon
|
||||
, url = url
|
||||
, size = config.size
|
||||
, style = config.style
|
||||
, width = config.width
|
||||
}
|
||||
|
||||
|
||||
{-| -}
|
||||
render : ButtonOrLink msg -> Html msg
|
||||
render buttonOrLink =
|
||||
@ -152,6 +204,17 @@ render buttonOrLink =
|
||||
link config
|
||||
|
||||
|
||||
{-| -}
|
||||
withLabel : String -> ButtonOrLink () -> ButtonOrLink ()
|
||||
withLabel label buttonOrLink =
|
||||
case buttonOrLink of
|
||||
Button config state ->
|
||||
Button config { state | label = label }
|
||||
|
||||
Link config ->
|
||||
Link { config | label = label }
|
||||
|
||||
|
||||
{-| -}
|
||||
small : ButtonOrLink msg -> ButtonOrLink msg
|
||||
small =
|
||||
|
@ -11,17 +11,12 @@ import Html.Styled exposing (..)
|
||||
import Html.Styled.Attributes exposing (css, id)
|
||||
import ModuleExample as ModuleExample exposing (Category(..), ModuleExample, ModuleMessages)
|
||||
import Nri.Ui.AssetPath exposing (Asset)
|
||||
import Nri.Ui.Button.V9 as Button
|
||||
import Nri.Ui.Button.V9 as Button exposing (ButtonOrLink)
|
||||
import Nri.Ui.Icon.V5 as Icon
|
||||
import Nri.Ui.Svg.V1 as NriSvg exposing (Svg)
|
||||
import Nri.Ui.Text.V3 as Text
|
||||
|
||||
|
||||
{-| -}
|
||||
type Msg
|
||||
= SetState State
|
||||
|
||||
|
||||
{-| -}
|
||||
type State
|
||||
= State (Control Model)
|
||||
@ -49,40 +44,54 @@ example unnamedMessages state =
|
||||
}
|
||||
|
||||
|
||||
{-| -}
|
||||
type Msg
|
||||
= SetState State
|
||||
| NoOp
|
||||
|
||||
|
||||
{-| -}
|
||||
update : Msg -> State -> ( State, Cmd Msg )
|
||||
update msg state =
|
||||
case msg of
|
||||
SetState newState ->
|
||||
( newState, Cmd.none )
|
||||
|
||||
NoOp ->
|
||||
( state, Cmd.none )
|
||||
|
||||
|
||||
|
||||
-- INTERNAL
|
||||
|
||||
|
||||
type alias Model =
|
||||
{ label : String
|
||||
, icon : Maybe Svg
|
||||
, width : ButtonOrLink () -> ButtonOrLink ()
|
||||
, buttonType : ButtonType
|
||||
, state : Button.ButtonState
|
||||
}
|
||||
|
||||
|
||||
{-| -}
|
||||
init : { r | performance : String, lock : String } -> State
|
||||
init assets =
|
||||
Control.record Model
|
||||
|> Control.field "label" (Control.string "Button")
|
||||
|> Control.field "icon"
|
||||
(Control.maybe False <|
|
||||
Control.choice
|
||||
( "Performance"
|
||||
, Icon.performance assets
|
||||
|> Icon.decorativeIcon
|
||||
|> NriSvg.fromHtml
|
||||
|> Control.value
|
||||
)
|
||||
[ ( "Lock"
|
||||
, Icon.lock assets
|
||||
|> Icon.decorativeIcon
|
||||
|> NriSvg.fromHtml
|
||||
|> Control.value
|
||||
)
|
||||
]
|
||||
)
|
||||
|> Control.field "label" (Control.string "Label")
|
||||
|> Control.field "icon" (iconChoice assets)
|
||||
|> Control.field "width"
|
||||
(Control.choice
|
||||
( "Nri.Ui.Button.V7.WidthExact 120", Control.value <| Button.WidthExact 120 )
|
||||
[ ( "Nri.Ui.Button.V7.WidthExact 70", Control.value <| Button.WidthExact 70 )
|
||||
, ( "Nri.Ui.Button.V7.WidthUnbounded", Control.value <| Button.WidthUnbounded )
|
||||
, ( "Nri.Ui.Button.V7.WidthFillContainer", Control.value <| Button.WidthFillContainer )
|
||||
( "exactWidth 120", Control.value (Button.exactWidth 120) )
|
||||
[ ( "exactWidth 70", Control.value (Button.exactWidth 70) )
|
||||
, ( "unboundedWidth", Control.value Button.unboundedWidth )
|
||||
, ( "fillContainerWidth", Control.value Button.fillContainerWidth )
|
||||
]
|
||||
)
|
||||
|> Control.field "button type"
|
||||
(Control.choice
|
||||
( "Nri.Ui.Button.V7.button", Control.value Button )
|
||||
[ ( "Nri.Ui.Button.V7.link", Control.value Link )
|
||||
( "button", Control.value Button )
|
||||
[ ( "link", Control.value Link )
|
||||
]
|
||||
)
|
||||
|> Control.field "state (button only)"
|
||||
@ -100,25 +109,25 @@ init assets =
|
||||
|> State
|
||||
|
||||
|
||||
{-| -}
|
||||
update : Msg -> State -> ( State, Cmd Msg )
|
||||
update msg state =
|
||||
case msg of
|
||||
SetState newState ->
|
||||
( newState, Cmd.none )
|
||||
|
||||
|
||||
|
||||
-- INTERNAL
|
||||
|
||||
|
||||
type alias Model =
|
||||
{ label : String
|
||||
, icon : Maybe Svg
|
||||
, width : Button.ButtonWidth
|
||||
, buttonType : ButtonType
|
||||
, state : Button.ButtonState
|
||||
}
|
||||
iconChoice : { r | performance : String, lock : String } -> Control.Control (Maybe Svg)
|
||||
iconChoice assets =
|
||||
Control.choice
|
||||
( "Nothing", Control.value Nothing )
|
||||
[ ( "Just Performance"
|
||||
, Icon.performance assets
|
||||
|> Icon.decorativeIcon
|
||||
|> NriSvg.fromHtml
|
||||
|> Just
|
||||
|> Control.value
|
||||
)
|
||||
, ( "Just Lock"
|
||||
, Icon.lock assets
|
||||
|> Icon.decorativeIcon
|
||||
|> NriSvg.fromHtml
|
||||
|> Just
|
||||
|> Control.value
|
||||
)
|
||||
]
|
||||
|
||||
|
||||
viewButtonExamples :
|
||||
@ -132,10 +141,6 @@ viewButtonExamples messages (State control) =
|
||||
in
|
||||
[ Control.view (State >> SetState >> messages.wrapper) control
|
||||
|> fromUnstyled
|
||||
, Button.buildButton model.label (messages.showItWorked "Button clicked!")
|
||||
|> Button.render
|
||||
, Button.buildLink model.label "#"
|
||||
|> Button.render
|
||||
, buttons messages model
|
||||
, toggleButtons messages
|
||||
, Button.delete
|
||||
@ -155,66 +160,65 @@ viewButtonExamples messages (State control) =
|
||||
|> div []
|
||||
|
||||
|
||||
sizes : List Button.ButtonSize
|
||||
sizes =
|
||||
[ Button.Small
|
||||
, Button.Medium
|
||||
, Button.Large
|
||||
]
|
||||
|
||||
|
||||
allStyles : List Button.ButtonStyle
|
||||
allStyles =
|
||||
[ Button.Primary
|
||||
, Button.Secondary
|
||||
, Button.Danger
|
||||
, Button.Premium
|
||||
]
|
||||
|
||||
|
||||
buttons :
|
||||
ModuleMessages Msg parentMsg
|
||||
-> Model
|
||||
-> Html parentMsg
|
||||
buttons messages model =
|
||||
let
|
||||
exampleRow style =
|
||||
sizes =
|
||||
[ ( Button.small, "Button.small" )
|
||||
, ( Button.medium, "Button.medium" )
|
||||
, ( Button.large, "Button.large" )
|
||||
]
|
||||
|
||||
styles =
|
||||
[ ( Button.primary, "Button.primary" )
|
||||
, ( Button.secondary, "Button.secondary" )
|
||||
, ( Button.danger, "Button.danger" )
|
||||
, ( Button.premium, "Button.premium" )
|
||||
]
|
||||
|
||||
exampleRow ( style, styleName ) =
|
||||
List.concat
|
||||
[ [ td
|
||||
[ css
|
||||
[ verticalAlign middle
|
||||
]
|
||||
]
|
||||
[ text <| Debug.toString style ]
|
||||
[ text styleName ]
|
||||
]
|
||||
, sizes
|
||||
|> List.map (exampleCell style)
|
||||
, List.map (Tuple.first >> exampleCell style) sizes
|
||||
]
|
||||
|> tr []
|
||||
|
||||
exampleCell style size =
|
||||
addAttributes button =
|
||||
[ Maybe.map Button.withIcon model.icon
|
||||
, Just (Button.withLabel model.label)
|
||||
, Just model.width
|
||||
, Just (Button.setButtonState model.state)
|
||||
]
|
||||
|> List.filterMap identity
|
||||
|> List.foldl (\addAttr b -> addAttr b) button
|
||||
|
||||
exampleCell setStyle setSize =
|
||||
(case model.buttonType of
|
||||
Link ->
|
||||
Button.link
|
||||
{ size = size
|
||||
, style = style
|
||||
, label = model.label
|
||||
, icon = model.icon
|
||||
, url = ""
|
||||
, width = model.width
|
||||
}
|
||||
Button.buildLink
|
||||
|> addAttributes
|
||||
|> setSize
|
||||
|> setStyle
|
||||
|> Button.href ""
|
||||
|> Maybe.map Button.render
|
||||
|> Maybe.withDefault (Html.Styled.text "")
|
||||
|
||||
Button ->
|
||||
Button.button
|
||||
{ size = size
|
||||
, style = style
|
||||
, onClick = messages.showItWorked (Debug.toString ( style, size ))
|
||||
, width = model.width
|
||||
}
|
||||
{ label = model.label
|
||||
, icon = model.icon
|
||||
, state = model.state
|
||||
}
|
||||
Button.buildButton
|
||||
|> addAttributes
|
||||
|> setSize
|
||||
|> setStyle
|
||||
|> Button.onClick (messages.showItWorked "Button clicked!")
|
||||
|> Button.render
|
||||
)
|
||||
|> List.singleton
|
||||
|> td
|
||||
@ -226,11 +230,10 @@ buttons messages model =
|
||||
in
|
||||
List.concat
|
||||
[ [ sizes
|
||||
|> List.map (\size -> th [] [ text <| Debug.toString size ])
|
||||
|> List.map (\( _, sizeName ) -> th [] [ text sizeName ])
|
||||
|> (\cells -> tr [] (th [] [] :: cells))
|
||||
]
|
||||
, allStyles
|
||||
|> List.map exampleRow
|
||||
, List.map exampleRow styles
|
||||
]
|
||||
|> table []
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user