blob: f27859b4725b78ee2e51e4ae5cb6f7697af3a351 (
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
|
{-# LANGUAGE OverloadedStrings #-}
module Design.Global
( globalDesign
) where
import Clay
import Data.Text.Lazy (Text)
import qualified Design.Header as HeaderDesign
import qualified Design.SignIn as SignInDesign
import qualified Design.LoggedIn as LoggedInDesign
import Design.Animation.Keyframes
import Design.Color as Color
globalDesign :: Text
globalDesign = renderWith compact [] global
global :: Css
global = do
header ? HeaderDesign.design
".signIn" ? SignInDesign.design
".loggedIn" ? LoggedInDesign.design
allKeyframes
body ? do
minWidth (px 320)
fontFamily ["Cantarell"] [sansSerif]
a ? cursor pointer
h1 ? do
fontSize (px 24)
color Color.red
"margin-bottom" -: "3vh"
ul ? do
"margin-bottom" -: "3vh"
"margin-left" -: "1vh"
li <? do
"margin-bottom" -: "2vh"
before & do
content (stringContent "• ")
color Color.red
"margin-right" -: "0.3vw"
ul <? do
"margin-left" -: "3vh"
"margin-top" -: "2vh"
|
