Let the user upgrade an ingredient quantity and adapt other quantities

1 files changed, 10 insertions, 3 deletions

diff --git a/design/main.hs b/design/Main.hs
index ba7127c..3ef1e0a 100644
--- a/design/main.hs
+++ b/design/Main.hs
@@ -5,6 +5,7 @@ import Data.Monoid ((<>))
 
 color1 = rgb 113 68 30
 color2 = rgb 13 13 81
+color3 = rgb 230 230 230
 
 main :: IO ()
 main = putCss $ do
@@ -29,9 +30,15 @@ main = putCss $ do
     color color2
     hover & textDecoration underline
 
-  h1 ? color color1
-  h2 ? color color1
-  h3 ? color color1
+  (h1 <> h2 <> h3) ? color color1
+
+  ".number" ? do
+    backgroundColor color3
+    sym borderRadius (px 5)
+    sym padding (px 2)
+    borderStyle none
+    width (px 70)
+    textAlign (alignSide sideCenter)
 
   (ul <> ol) ? do
     listStyleType none