aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Design')
-rw-r--r--src/server/Design/Color.hs3
-rw-r--r--src/server/Design/Global.hs23
2 files changed, 18 insertions, 8 deletions
diff --git a/src/server/Design/Color.hs b/src/server/Design/Color.hs
index 97ad3d2..f4223a2 100644
--- a/src/server/Design/Color.hs
+++ b/src/server/Design/Color.hs
@@ -11,6 +11,9 @@ red = C.red
brown :: C.Color
brown = C.brown
+orange :: C.Color
+orange = C.orange
+
green :: C.Color
green = C.green
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index bdf4cdb..b2b6744 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -10,9 +10,9 @@ import Prelude
import Data.Monoid ((<>))
import Clay
+import qualified Clay.Display as D
import Data.Text.Lazy (Text)
-import qualified Clay.Display as D
import Design.Color as C
@@ -103,27 +103,34 @@ global = do
top (px (inputHeight + 10))
left (px 0)
- table ? do
+ ".table" ? do
+ display D.table
width (pct 100)
textAlign (alignSide (sideCenter))
"border-spacing" -: "10 px"
- th ? do
+ ".header" <> ".row" ? display tableRow
+
+ ".header" ? do
backgroundColor C.brown
color C.white
fontSize (px iconFontSize)
lineHeight (px 70)
+ ".row" ? do
+ fontSize (px 20)
+ cursor pointer
+ lineHeight (px 60)
+ nthChild "odd" & backgroundColor C.lightGrey
+ ".edition" & backgroundColor C.orange
+
+ ".cell" ? do
+ display tableCell
".category" & width (pct 40)
".cost" & width (pct 20)
".user" & width (pct 20)
".date" & width (pct 20)
- tr ? do
- fontSize (px 20)
- lineHeight (px 60)
- nthChild "odd" & backgroundColor C.lightGrey
-
".signIn" ? do
form ? do