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

Change close to return a Model Cmd tuple

Browse Source
This commit is contained in:
Tessa Kelly 2020-09-02 10:29:53 -07:00
parent b00ba16ad3
commit 9b76457fb5
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Nri/Ui/Modal/V11.elm
View File

@ -109,13 +109,8 @@ type By
{-| -}
close : Msg
close =
CloseModal Other
close_ : Model -> ( Model, Cmd Msg )
close_ model =
close : Model -> ( Model, Cmd Msg )
close model =
case model of
Opened returnFocusTo ->
( Closed, Task.attempt Focused (Dom.focus returnFocusTo) )
@ -154,11 +149,11 @@ update { dismissOnEscAndOverlayClick } msg model =
CloseModal by ->
case by of
Other ->
close_ model
close model
_ ->
if dismissOnEscAndOverlayClick then
close_ model
close model
else
( model, Cmd.none )
@ -611,7 +606,7 @@ closeButton : (Msg -> msg) -> List (Html.Attribute msg) -> Html msg
closeButton wrapMsg focusableElementAttrs =
button
(Widget.label "Close modal"
:: Attrs.map wrapMsg (onClick close)
:: Attrs.map wrapMsg (onClick (CloseModal Other))
:: Attrs.css
[ -- in the upper-right corner of the modal
Css.position Css.absolute