css/Link.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

{-# LANGUAGE OverloadedStrings #-}

module Link
  ( style
  ) where

import           Clay          hiding (style)
import           Clay.Selector (Fix, SelectorF (SelectorF))

import qualified Color

style :: (Fix SelectorF) -> Css
style selector = do

  selector ? do
    textDecoration none
    color Color.link
    transition "color" (sec 0.3) easeOut (sec 0)
    focus & outline solid (px 0) Color.white

  (selector # hover) <> (selector # focus) ? do
    textDecoration underline
    color Color.blue