Fix the content styles

This commit is contained in:
Tessa Kelly 2019-06-10 17:33:53 -07:00
parent ad8be4964f
commit ac6be5a103
2 changed files with 62 additions and 72 deletions

View File

@ -1,15 +1,18 @@
module Nri.Ui.Modal.V5 exposing
( Model
, info
, warning
, FocusableElement(..), Msg, closeButton, init, launchButton, primaryButton, subscriptions, toOverlayColor, update, viewFooter, viewModalContainer, viewTitle
( info, warning
, Model, init, Msg, update, subscriptions
, viewTitle, viewContent, viewFooter
, closeButton, launchButton, primaryButton
, FocusableElement(..)
)
{-| Changes from V4:
@docs Model, Dismissibility
@docs info
@docs warning
@docs info, warning
@docs Model, init, Msg, update, subscriptions
@docs viewTitle, viewContent, viewFooter
@docs closeButton, launchButton, primaryButton
-}
@ -77,10 +80,7 @@ info config model =
|> Maybe.map Html.Styled.toUnstyled
|> Maybe.withDefault (Root.text "")
, overlayColor = toOverlayColor Colors.navy
, modalContainer =
\l ->
viewModalContainer (List.map Html.Styled.fromUnstyled l)
|> Html.Styled.toUnstyled
, modalContainer = viewModalContainer
, title = config.title Colors.navy
, content = Html.Styled.toUnstyled config.content
}
@ -103,10 +103,7 @@ warning config model =
|> Maybe.map Html.Styled.toUnstyled
|> Maybe.withDefault (Root.text "")
, overlayColor = toOverlayColor Colors.gray20
, modalContainer =
\l ->
viewModalContainer (List.map Html.Styled.fromUnstyled l)
|> Html.Styled.toUnstyled
, modalContainer = viewModalContainer
, title = config.title Colors.red
, content = Html.Styled.toUnstyled config.content
}
@ -133,6 +130,7 @@ toOverlayColor color =
|> Color.toCssString
viewModalContainer : List (Root.Html msg) -> Root.Html msg
viewModalContainer modalContents =
div
[ css
@ -158,17 +156,9 @@ viewModalContainer modalContents =
[ Css.Global.body
[ Css.overflow Css.hidden ]
]
, Nri.Ui.styled div
"modal-content"
[ Css.overflowY Css.auto
, Css.padding2 (Css.px 30) (Css.px 40)
, Css.width (Css.pct 100)
, Css.minHeight (Css.px 150)
, Css.boxSizing Css.borderBox
]
[]
modalContents
, div [] (List.map Html.Styled.fromUnstyled modalContents)
]
|> Html.Styled.toUnstyled
viewTitle : { visibleTitle : Bool, title : String } -> Css.Color -> ( String, List (Root.Attribute Never) )
@ -230,22 +220,22 @@ closeButton focusableElement =
{-| -}
primaryButton : FocusableElement -> msg -> String -> Html msg
primaryButton focusableElement msg label =
Nri.Ui.styled button
"close-button-container"
viewContent : List (Html msg) -> Html msg
viewContent =
Nri.Ui.styled div
"modal-content"
[ Css.overflowY Css.auto
, Css.padding2 (Css.px 30) (Css.px 40)
, Css.width (Css.pct 100)
, Css.minHeight (Css.px 150)
, Css.boxSizing Css.borderBox
]
[]
[ onClick msg ]
[ text label ]
{-| -}
viewFooter : List (Html msg) -> Html msg
viewFooter footerContent =
case footerContent of
[] ->
Html.text ""
_ ->
viewFooter =
Nri.Ui.styled div
"modal-footer"
[ Css.alignItems Css.center
@ -258,17 +248,13 @@ viewFooter footerContent =
, Css.minHeight (Css.px 125) -- so the footer doesn't compress on Safari
]
[]
(List.map
(\x ->
Nri.Ui.styled div
"modal-footer-item"
[ Css.margin4 (Css.px 10) Css.zero Css.zero Css.zero
, Css.firstChild
[ Css.margin Css.zero
]
]
{-| -}
primaryButton : FocusableElement -> msg -> String -> Html msg
primaryButton focusableElement msg label =
Nri.Ui.styled button
"close-button-container"
[]
[ x ]
)
footerContent
)
[ onClick msg ]
[ text label ]

View File

@ -31,8 +31,8 @@ init =
{ infoModal = Modal.init
, warningModal = Modal.init
, visibleTitle = True
, showX = False
, showContinue = False
, showX = True
, showContinue = True
}
@ -106,27 +106,31 @@ viewContent wrapMsg state =
( True, True ) ->
[ Modal.closeButton Modal.LastFocusableElement
|> Html.map wrapMsg
, text "This is where the content goes!"
, Modal.primaryButton Modal.FirstFocusableElement
, Modal.viewContent [ text "This is where the content goes!" ]
, Modal.viewFooter
[ Modal.primaryButton Modal.FirstFocusableElement
ForceClose
"Continue"
]
]
( True, False ) ->
[ Modal.closeButton Modal.OnlyFocusableElement
|> Html.map wrapMsg
, text "This is where the content goes!"
, Modal.viewContent [ text "This is where the content goes!" ]
]
( False, True ) ->
[ text "This is where the content goes!"
, Modal.primaryButton Modal.OnlyFocusableElement
[ Modal.viewContent [ text "This is where the content goes!" ]
, Modal.viewFooter
[ Modal.primaryButton Modal.OnlyFocusableElement
ForceClose
"Continue"
]
]
( False, False ) ->
[ text "This is where the content goes!"
[ Modal.viewContent [ text "This is where the content goes!" ]
]