Add a helper for the close button

This commit is contained in:
Tessa Kelly 2020-09-02 14:32:57 -07:00
parent 1c184d8179
commit 1eda22c565

View File

@ -164,12 +164,7 @@ makeFocusManager settings =
, Button.large , Button.large
, Button.custom [ modalOptions.autofocusElement ] , Button.custom [ modalOptions.autofocusElement ]
] ]
, ClickableText.button "Close" , closeClickableText modalOptions.lastFocusableElement
[ ClickableText.onClick ForceClose
, ClickableText.large
, ClickableText.custom modalOptions.lastFocusableElement
, ClickableText.css [ Css.marginTop (Css.px 12) ]
]
] ]
} }
@ -181,12 +176,7 @@ makeFocusManager settings =
, viewModalContent settings.content , viewModalContent settings.content
] ]
, footer = , footer =
[ ClickableText.button "Close" [ closeClickableText (modalOptions.autofocusElement :: modalOptions.lastFocusableElement)
[ ClickableText.onClick ForceClose
, ClickableText.large
, ClickableText.custom (modalOptions.autofocusElement :: modalOptions.lastFocusableElement)
, ClickableText.css [ Css.marginTop (Css.px 12) ]
]
] ]
} }
@ -229,12 +219,7 @@ makeFocusManager settings =
, Button.custom (modalOptions.autofocusElement :: modalOptions.firstFocusableElement) , Button.custom (modalOptions.autofocusElement :: modalOptions.firstFocusableElement)
, Button.large , Button.large
] ]
, ClickableText.button "Close" , closeClickableText modalOptions.lastFocusableElement
[ ClickableText.onClick ForceClose
, ClickableText.large
, ClickableText.custom modalOptions.lastFocusableElement
, ClickableText.css [ Css.marginTop (Css.px 12) ]
]
] ]
} }
@ -243,12 +228,7 @@ makeFocusManager settings =
(\{ onlyFocusableElement } -> (\{ onlyFocusableElement } ->
{ content = [ viewModalContent settings.content ] { content = [ viewModalContent settings.content ]
, footer = , footer =
[ ClickableText.button "Close" [ closeClickableText onlyFocusableElement
[ ClickableText.onClick ForceClose
, ClickableText.large
, ClickableText.custom onlyFocusableElement
, ClickableText.css [ Css.marginTop (Css.px 12) ]
]
] ]
} }
) )
@ -286,6 +266,16 @@ viewModalContent content =
] ]
closeClickableText : List (Html.Attribute Msg) -> Html Msg
closeClickableText attributes =
ClickableText.button "Close"
[ ClickableText.onClick ForceClose
, ClickableText.large
, ClickableText.custom attributes
, ClickableText.css [ Css.marginTop (Css.px 15) ]
]
{-| -} {-| -}
type Msg type Msg
= OpenModal String = OpenModal String