From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 server/src/Design/Form.hs | 101 ----------------------------------------------
 1 file changed, 101 deletions(-)
 delete mode 100644 server/src/Design/Form.hs

(limited to 'server/src/Design/Form.hs')

diff --git a/server/src/Design/Form.hs b/server/src/Design/Form.hs
deleted file mode 100644
index 5713bfe..0000000
--- a/server/src/Design/Form.hs
+++ /dev/null
@@ -1,101 +0,0 @@
-module Design.Form
-  ( design
-  ) where
-
-import           Data.Monoid  ((<>))
-
-import           Clay
-
-import           Design.Color as Color
-
-design :: Css
-design = do
-
-  let inputHeight = 30
-  let inputTop = 22
-  let inputPaddingBottom = 3
-
-  ".textInput" ? do
-    position relative
-    marginBottom (em 2)
-    paddingTop (px inputTop)
-    marginTop (px (-10))
-
-    input ? do
-      width (pct 100)
-      position relative
-      backgroundColor transparent
-      paddingBottom (px inputPaddingBottom)
-      paddingRight (px 14) -- Space for the delete icon
-      borderStyle none
-      borderBottom solid (px 1) Color.dustyGray
-      marginBottom (px 5)
-      height (px inputHeight)
-      lineHeight (px inputHeight)
-      focus & do
-        borderWidth (px 2)
-        paddingBottom (px $ inputPaddingBottom - 1)
-
-    ".label" ? do
-      zIndex (-1)
-      color Color.silver
-      lineHeight (px inputHeight)
-      position absolute
-      top (px inputTop)
-      left (px 0)
-      transition "all" (sec 0.2) easeInOut (sec 0)
-
-    button ? do
-      position absolute
-      right (px 0)
-      top (px 27)
-      svg ? "path" ?
-        ("fill" -: Color.toString Color.silver)
-      hover & svg ? "path" ?
-        ("fill" -: Color.toString (Color.silver -. 25))
-
-    (input # ".filled" |+ ".label") <> (input # focus |+ ".label") ? do
-      top (px 0)
-      fontSize (pct 80)
-
-    ".error" & do
-      input ? do
-        borderBottomColor Color.chestnutRose
-
-      ".errorMessage" ? do
-        position absolute
-        color Color.chestnutRose
-        fontSize (pct 80)
-
-  ".colorInput" ? do
-    display flex
-    alignItems center
-    marginBottom (em 1.5)
-
-    input ? do
-      borderColor transparent
-      backgroundColor transparent
-
-  ".selectInput" ? do
-
-    ".label" ? do
-      color Color.silver
-      display block
-      marginBottom (px 10)
-      fontSize (pct 80)
-
-    select ? do
-      width (pct 100)
-      backgroundColor Color.white
-      border solid (px 1) Color.silver
-      sym borderRadius (px 3)
-      sym2 padding (px 5) (px 8)
-      option ? sym2 padding (px 5) (px 8)
-      focus & backgroundColor Color.wildSand
-
-    ".error" & do
-      select ? borderColor Color.chestnutRose
-      ".errorMessage" ? do
-        color Color.chestnutRose
-        fontSize (pct 80)
-        marginTop (em 0.5)
-- 
cgit v1.2.3