Style fixes. finos#33

AttilaMihaly · Dec 2, 2020 · 24cefa6 · 24cefa6
1 parent 3ca86cd
commit 24cefa6
Show file tree

Hide file tree

Showing 3 changed files with 34 additions and 9 deletions.
diff --git a/cli/src/Morphir/Web/DevelopMain.elm b/cli/src/Morphir/Web/DevelopMain.elm
@@ -103,19 +103,19 @@ view model =
         (column [ width fill ]
             [ row
                 [ width fill
+                , padding 10
                 , Background.color blue
                 ]
                 [ row
-                    [ padding 10
-                    , width fill
+                    [ width fill
                     ]
                     [ image
-                        [ height (px 60)
+                        [ height (px 50)
                         ]
-                        { src = "assets/2020_Morphir_Logo_Horizontal_WHT.svg"
-                        , description = "Morphir"
+                        { src = "assets/2020_Morphir_Logo_Icon_WHT.svg"
+                        , description = "Morphir Logo"
                         }
-                    , theme.heading 3 "Development Server"
+                    , theme.heading 1 "Morphir Development Server"
                     ]
                 , case model of
                     WaitingForResponse ->
@@ -127,7 +127,10 @@ view model =
                             , label = "Reload"
                             }
                 ]
-            , viewResult model
+            , el
+                [ padding 10
+                ]
+                (viewResult model)
             ]
         )
 

diff --git a/cli/web/assets/2020_Morphir_Logo_Icon_WHT.svg b/cli/web/assets/2020_Morphir_Logo_Icon_WHT.svg
diff --git a/src/Morphir/Web/Theme/Light.elm b/src/Morphir/Web/Theme/Light.elm
@@ -35,8 +35,8 @@ theme scaled =
     , heading =
         \level label ->
             el
-                [ Font.size (scaled (8 - level))
-                , paddingXY (scaled level) (scaled (4 - level))
+                [ Font.size (scaled (6 - level))
+                , paddingXY (scaled level) (scaled (3 - level))
                 ]
                 (text label)
     }