From aedbb9e6a31d11ae6d13fbe1ea7cd7f21dcf21ce Mon Sep 17 00:00:00 2001
From: Tessa Kelly <tessakkelly@gmail.com>
Date: Fri, 5 Apr 2019 11:40:32 -0700
Subject: [PATCH] Lock-in the modal height in the configuration

---
 src/Nri/Ui/SlideModal/V1.elm           | 9 +++++----
 styleguide-app/Examples/SlideModal.elm | 1 +
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/Nri/Ui/SlideModal/V1.elm b/src/Nri/Ui/SlideModal/V1.elm
index 11bb505f..ffa25663 100644
--- a/src/Nri/Ui/SlideModal/V1.elm
+++ b/src/Nri/Ui/SlideModal/V1.elm
@@ -28,6 +28,7 @@ import Nri.Ui.Text.V2 as Text
 
 type alias Config msg =
     { panels : List (Panel msg)
+    , height : Css.Vh
     , parentMsg : State -> msg
     }
 
@@ -49,16 +50,16 @@ closed =
 view : Config msg -> State -> Html msg
 view config (State state) =
     Maybe.andThen (viewPanels config.parentMsg config.panels) state
-        |> Maybe.map (viewModal >> viewBackdrop)
+        |> Maybe.map (viewModal config.height >> viewBackdrop)
         |> Maybe.withDefault (Html.text "")
 
 
-viewModal : ( String, List (Html msg) ) -> Html msg
-viewModal ( labelledById, panels ) =
+viewModal : Css.Vh -> ( String, List (Html msg) ) -> Html msg
+viewModal height ( labelledById, panels ) =
     Nri.Ui.styled div
         "modal-container"
         [ Css.width (Css.px 600)
-        , Css.minHeight (Css.px 400)
+        , Css.height height
         , Css.maxHeight <| Css.calc (Css.vh 100) Css.minus (Css.px 100)
         , Css.padding4 (Css.px 35) Css.zero (Css.px 25) Css.zero
         , Css.margin2 (Css.px 75) Css.auto
diff --git a/styleguide-app/Examples/SlideModal.elm b/styleguide-app/Examples/SlideModal.elm
index 1e06acc5..38acf160 100644
--- a/styleguide-app/Examples/SlideModal.elm
+++ b/styleguide-app/Examples/SlideModal.elm
@@ -98,6 +98,7 @@ viewModal state =
               , buttonLabel = "Let's get to it!"
               }
             ]
+        , height = Css.vh 60
         , parentMsg = ModalMsg
         }
         state