aboutsummaryrefslogtreecommitdiff
path: root/server/src/Design/View/Payment/Table.hs
blob: 243d7f46e0c1ae6a067d6c5402abe3082397b220 (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
{-# LANGUAGE OverloadedStrings #-}

module Design.View.Payment.Table
  ( design
  ) where

import           Clay

import qualified Design.Color as Color
import qualified Design.Media as Media

design :: Css
design = do
  ".cell" ? do
    ".name" & do
      Media.tabletDesktop $ width (pct 30)

    ".cost" & do
      Media.tabletDesktop $ width (pct 10)

    ".user" & do
      Media.tabletDesktop $ width (pct 15)

    ".category" & do
      Media.tabletDesktop $ width (pct 10)

    ".date" & do
      Media.tabletDesktop $ width (pct 15)
      Media.desktop $ do
        ".shortDate" ? display none
        ".longDate" ? display inline
      Media.tablet $ do
        ".shortDate" ? display inline
        ".longDate" ? display none
      Media.mobile $ do
        ".shortDate" ? display none
        ".longDate" ? display inline
        marginBottom (em 0.5)

    ".button" & svg ? do
      "path" ? ("fill" -: Color.toString Color.chestnutRose)
      width (px 18)