aboutsummaryrefslogtreecommitdiff
path: root/server/src/Design/View/Payment/Header.hs
diff options
context:
space:
mode:
Diffstat (limited to 'server/src/Design/View/Payment/Header.hs')
-rw-r--r--server/src/Design/View/Payment/Header.hs45
1 files changed, 18 insertions, 27 deletions
diff --git a/server/src/Design/View/Payment/Header.hs b/server/src/Design/View/Payment/Header.hs
index 9111374..49c1a09 100644
--- a/server/src/Design/View/Payment/Header.hs
+++ b/server/src/Design/View/Payment/Header.hs
@@ -8,45 +8,36 @@ import Clay
import qualified Design.Color as Color
import qualified Design.Constants as Constants
-import qualified Design.Helper as Helper
import qualified Design.Media as Media
design :: Css
design = do
- Media.desktop $ marginBottom (em 3)
- Media.mobileTablet $ marginBottom (em 2)
+ Media.desktop $ marginBottom (em 2)
+ Media.mobileTablet $ marginBottom (em 1)
marginLeft (pct Constants.blockPercentMargin)
marginRight (pct Constants.blockPercentMargin)
- ".payerAndAdd" ? do
- Media.tabletDesktop $ display flex
+ ".g-HeaderInfos__ExceedingPayers" ? do
+ backgroundColor Color.mossGreen
+ borderRadius (px 5) (px 5) (px 5) (px 5)
+ color Color.white
+ lineHeight (px Constants.inputHeight)
+ paddingLeft (px 10)
+ paddingRight (px 10)
marginBottom (em 1)
- ".exceedingPayers" ? do
- backgroundColor Color.mossGreen
- borderRadius (px 5) (px 5) (px 5) (px 5)
- color Color.white
- lineHeight (px Constants.inputHeight)
- paddingLeft (px 10)
- paddingRight (px 10)
+ Media.mobile $ do
+ textAlign (alignSide sideCenter)
- Media.tabletDesktop $ do
- "flex-grow" -: "1"
- marginRight (px 15)
+ ".exceedingPayer:not(:last-child)::after" ? content (stringContent ", ")
- Media.mobile $ do
- marginBottom (em 1)
- textAlign (alignSide sideCenter)
-
- ".exceedingPayer:not(:last-child)::after" ? content (stringContent ", ")
-
- ".userName" ? marginRight (px 8)
+ ".userName" ? marginRight (px 8)
- ".addPayment" ? do
- Helper.button Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten
- Media.mobile $ width (pct 100)
+ -- ".addPayment" ? do
+ -- Helper.button Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten
+ -- Media.mobile $ width (pct 100)
- ".searchLine" ? do
+ ".g-HeaderForm" ? do
marginBottom (em 1)
Media.mobile $ textAlign (alignSide sideCenter)
@@ -62,7 +53,7 @@ design = do
".selectInput" ? do
Media.tabletDesktop $ display inlineBlock
- ".infos" ? do
+ ".g-HeaderInfos__Repartition" ? do
Media.tabletDesktop $ lineHeight (px Constants.inputHeight)
Media.mobile $ lineHeight (px 25)