aboutsummaryrefslogtreecommitdiff
path: root/src/server
diff options
context:
space:
mode:
Diffstat (limited to 'src/server')
-rw-r--r--src/server/Design/Form.hs9
-rw-r--r--src/server/Design/LoggedIn/Home/Table.hs16
-rw-r--r--src/server/Model/Message/Key.hs4
-rw-r--r--src/server/Model/Message/Translations.hs7
4 files changed, 20 insertions, 16 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)"
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 093024b..a88d2b8 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -79,6 +79,8 @@ data Key =
| PaymentPunctual
| PaymentMonthly
+ | ConfirmPaymentDelete
+
-- Statistics
| Statistics
@@ -93,7 +95,7 @@ data Key =
| IncomeNotDeleted
| IncomeDate
| IncomeAmount
- | ConfirmDelete
+ | ConfirmIncomeDelete
-- Form
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 6522d75..3b91d17 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -327,6 +327,11 @@ m l PaymentMonthly =
English -> "Monthly"
French -> "Mensuel"
+m l ConfirmPaymentDelete =
+ case l of
+ English -> "Are you sure to delete this payment ?"
+ French -> "Voulez-vous vraiment supprimer ce paiement ?"
+
-- Income
m l CumulativeIncomesSince =
@@ -359,7 +364,7 @@ m l IncomeAmount =
English -> "Amount"
French -> "Montant"
-m l ConfirmDelete =
+m l ConfirmIncomeDelete =
case l of
English -> "Are you sure to delete this income ?"
French -> "Voulez-vous vraiment supprimer ce revenu ?"