Fix landing height for very large screens

elm · Aug 5, 2021 · a123ed9 · a123ed9
1 parent e943fda
commit a123ed9
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/pages/home.elm b/pages/home.elm
@@ -239,8 +239,11 @@ viewLarge model =
             [ E.width E.fill
             ] <|
             E.row
-              [ E.htmlAttribute (style "min-height" "calc(100vh - 135px)")
-              , E.htmlAttribute (style "max-height" "900px")
+              [ E.htmlAttribute <|
+                  if model.window.height > 900 then
+                    style "height" "calc(900px - 135px)"
+                  else
+                    style "min-height" "calc(100vh - 135px)"
               , E.width pageColumn
               , E.centerX
               ]