aboutsummaryrefslogtreecommitdiff
path: root/server/src/Design/Appearing.hs
blob: 79b94b3f52f786b84662c2ca36f0b8fd6a15e6e7 (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
module Design.Appearing
  ( design
  ) where

import           Clay

design :: Css
design = do

  appearKeyframe

  ".g-Appearing" ? do
    appearAnimation

appearAnimation :: Css
appearAnimation = do
  animationName "appear"
  animationDuration (sec 0.2)
  animationTimingFunction easeIn

appearKeyframe :: Css
appearKeyframe = keyframes
  "appear"
  [ (0, "opacity" -: "0")
  ]