aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design/LoggedIn/Home/Header.hs
blob: 9008a9538261b2a0388f78522161a535eef3912f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
{-# LANGUAGE OverloadedStrings #-}

module Design.LoggedIn.Home.Header
  ( design
  ) where

import Clay

import Design.Constants

import qualified Design.Helper as Helper
import qualified Design.Color as Color
import qualified Design.Constants as Constants

design :: Css
design = do
  marginBottom blockMarginBottom
  marginLeft (pct blockPercentMargin)
  marginRight (pct blockPercentMargin)

  ".exceedingPayers" ? do
    backgroundColor Color.mossGreen
    padding (px 10) (px 10) (px 10) (px 10)
    borderRadius (px 5) (px 5) (px 5) (px 5)
    color Color.white
    marginBottom (em 1)

    ".exceedingPayer:not(:last-child)::after" ? content (stringContent ", ")

    ".userName" ? marginRight (px 5)

  ".searchLine" ? do
    marginBottom (em 1)
    form ? do
      display inlineBlock

      ".textInput" ? do
        display inlineBlock
        marginRight (px 30)
        marginBottom (px 0)

      ".radioGroup" ? do
        display inlineBlock
        marginBottom (px 0)
        ".title" ? display none

    ".addPayment" ? do
      Helper.defaultButton Color.chestnutRose Color.white (px 47) Constants.focusLighten
      float floatRight

  ".infos" ? do
    lineHeight (px Constants.inputHeight)

    ".partition" ? do
      color Color.dustyGray
      marginLeft (px 15)