diff options
Diffstat (limited to 'src/server/Design/Global.hs')
| -rw-r--r-- | src/server/Design/Global.hs | 17 |
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) |