diff options
Diffstat (limited to 'src/server/Design/LoggedIn/Home/Table.hs')
-rw-r--r-- | src/server/Design/LoggedIn/Home/Table.hs | 36 |
1 files changed, 12 insertions, 24 deletions
diff --git a/src/server/Design/LoggedIn/Home/Table.hs b/src/server/Design/LoggedIn/Home/Table.hs index b68f48f..538bc6d 100644 --- a/src/server/Design/LoggedIn/Home/Table.hs +++ b/src/server/Design/LoggedIn/Home/Table.hs @@ -33,32 +33,20 @@ design = do ".row" ? do fontSize (px 18) height (px rowHeightPx) + ".cell:first-child::before" ? do + display block + content (stringContent "") + position absolute + top (px 0) + left (px 0) + width (px 0) + height (px rowHeightPx) + backgroundColor Color.mossGreen + transition "width" (sec 0.3) ease (sec 0) + opacity (0.8) hover & do - let (borderW, triangleW, triangleH) = (4, 6, 8) - ".cell:first-child::before" ? do - display block - content (stringContent "") - position absolute - top (px 0) - left (px 0) - - width (px borderW) - height (px rowHeightPx) - backgroundColor Color.mossGreen - - ".cell:first-child::after" ? do - display block - content (stringContent "") - position absolute - top (px (rowHeightPx `Prelude.div` 2 - triangleH)) - left (px borderW) - - width (px 0) - height (px 0) - borderTop solid (px triangleH) transparent - borderBottom solid (px triangleH) transparent - borderLeft solid (px triangleW) Color.mossGreen + ".cell:first-child::before" ? width (px 5) nthChild "odd" & do backgroundColor Color.wildSand |