aboutsummaryrefslogtreecommitdiff
path: root/src/server
diff options
context:
space:
mode:
Diffstat (limited to 'src/server')
-rw-r--r--src/server/Design/Global.hs17
1 files changed, 11 insertions, 6 deletions
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 13b2d6a..53a73eb 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -168,18 +168,20 @@ global = do
"border-spacing" -: "10 px"
".header" <> ".row" ? display tableRow
+ let headerHeight = (px 70)
+ let rowHeight = (px 60)
".header" ? do
fontWeight bold
backgroundColor C.red
color C.white
fontSize iconFontSize
- lineHeight (px 70)
+ lineHeight headerHeight
".row" ? do
fontSize (px 20)
cursor pointer
- lineHeight (px 60)
+ lineHeight rowHeight
nthChild "odd" & backgroundColor C.lightGrey
".edition" & do
backgroundColor C.paymentFocus
@@ -188,7 +190,7 @@ global = do
".cell" ? do
display tableCell
".category" & width (pct 40)
- ".cost" & width (pct 20)
+ ".cost" & width (pct 17)
".user" & width (pct 20)
".date" & do
width (pct 20)
@@ -199,12 +201,15 @@ global = do
".shortDate" ? display none
".longDate" ? display inline
".delete" & do
- width (px 10)
- height (px 10)
+ width (pct 3)
+ height rowHeight
textAlign (alignSide sideCenter)
backgroundColor C.red
- color C.white
visibility hidden
+ button ? do
+ width (pct 100)
+ height (pct 100)
+ color C.white
".pages" ? do
padding (px 30) (px 30) (px 30) (px 30)