1 files changed, 23 insertions, 0 deletions
diff --git a/css/Link.hs b/css/Link.hs
new file mode 100644
index 0000000..ba3b090
--- /dev/null
+++ b/css/Link.hs
@@ -0,0 +1,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