aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design/LoggedIn.hs
blob: 4a218323538031845c53683b6620f7c48c97c938 (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
{-# LANGUAGE OverloadedStrings #-}

module Design.LoggedIn
  ( design
  ) where

import Clay

import qualified Design.LoggedIn.Home as Home
import qualified Design.LoggedIn.Stat as Stat
import qualified Design.LoggedIn.Table as Table

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

design :: Css
design = do
  ".home" ? Home.design
  ".stat" ? Stat.design
  Table.design

  ".withMargin" ? do
    "margin" -: "0 2vw"

  ".titleButton" ? do
    h1 ? do
      Media.tabletDesktop $ float floatLeft

    button ? do
      Helper.button Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten
      Media.tabletDesktop $ do
        float floatRight
        position relative
        top (px (-8))
      Media.mobile $ do
        width (pct 100)
        marginBottom (px 20)

  ".tag" ? do
    sym borderRadius (px 4)
    sym2 padding (px 2) (px 5)
    boxShadow (px 2) (px 2) (px 5) (rgba 0 0 0 0.3)
    color Color.white