diff options
| author | Joris | 2017-05-08 20:44:45 +0200 |
|---|---|---|
| committer | Joris | 2017-05-08 20:44:45 +0200 |
| commit | 14433a928f7fdf9be3193812cbbed1a5ae49ecd7 (patch) | |
| tree | a9a81b57922ba007f9864db9fbe789e559d10fb3 /design | |
| parent | 9e4c00c3df11b7ffc1e9b626ffbf5a74521b5a7a (diff) | |
| download | cooking-14433a928f7fdf9be3193812cbbed1a5ae49ecd7.tar.gz cooking-14433a928f7fdf9be3193812cbbed1a5ae49ecd7.tar.bz2 cooking-14433a928f7fdf9be3193812cbbed1a5ae49ecd7.zip | |
Let the user upgrade an ingredient quantity and adapt other quantities
Diffstat (limited to 'design')
| -rw-r--r-- | design/Main.hs (renamed from design/main.hs) | 13 |
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 |