diff options
Diffstat (limited to 'src/server/Design')
| -rw-r--r-- | src/server/Design/Form.hs | 9 | ||||
| -rw-r--r-- | src/server/Design/LoggedIn/Home/Table.hs | 16 |
2 files changed, 11 insertions, 14 deletions
diff --git a/src/server/Design/Form.hs b/src/server/Design/Form.hs index 00de12d..612759b 100644 --- a/src/server/Design/Form.hs +++ b/src/server/Design/Form.hs @@ -82,9 +82,16 @@ design = do marginLeft (px 10) marginRight (px 10) - input ? display none + input ? do + opacity 0 + width (px 30) + margin (px 0) (px (-15)) (px 0) (px (-15)) + label ? cursor pointer + "input:focus + label" ? do + textDecoration underline + "input:checked + label" ? do color Color.chestnutRose fontWeight bold diff --git a/src/server/Design/LoggedIn/Home/Table.hs b/src/server/Design/LoggedIn/Home/Table.hs index 2594f25..0085e4a 100644 --- a/src/server/Design/LoggedIn/Home/Table.hs +++ b/src/server/Design/LoggedIn/Home/Table.hs @@ -11,8 +11,7 @@ import qualified Clay.Display as D import Design.Color as Color import qualified Design.Media as Media -import Design.Constants -import Design.Helper +import Design.Constants as Constants design :: Css design = do @@ -41,9 +40,6 @@ design = do nthChild "odd" & do backgroundColor Color.wildSand - ".edition" & do - backgroundColor Color.negroni - ".delete" |> button ? visibility visible ".cell" ? do display tableCell @@ -66,11 +62,5 @@ design = do position relative width (pct 3) textAlign (alignSide sideCenter) - button ? do - defaultButton Color.chestnutRose Color.white (px rowHeightPx) focusLighten - borderRadius (px 0) (px 0) (px 0) (px 0) - position absolute - top (px 0) - right (px 0) - width (pct 100) - visibility hidden + button # hover ? "svg path" ? do + "fill" -: "rgb(227, 112, 106)" |