aboutsummaryrefslogtreecommitdiff
path: root/src/server
diff options
context:
space:
mode:
Diffstat (limited to 'src/server')
-rw-r--r--src/server/Design/Header.hs30
-rw-r--r--src/server/Model/Message/Key.hs6
-rw-r--r--src/server/Model/Message/Translations.hs19
3 files changed, 32 insertions, 23 deletions
diff --git a/src/server/Design/Header.hs b/src/server/Design/Header.hs
index c4f9332..3b4f35c 100644
--- a/src/server/Design/Header.hs
+++ b/src/server/Design/Header.hs
@@ -22,32 +22,30 @@ headerDesign =
height headerHeight
marginBottom blockMarginBottom
position relative
+ backgroundColor C.red
+ color C.white
- (".title" <> ".user" <> ".icon") ? do
- color C.white
- backgroundColor C.red
+ ".item" ? do
+ float floatLeft
+ paddingLeft headerPadding
+ paddingRight headerPadding
hover & backgroundColor darkenedRed
focus & backgroundColor darkenedRed
".title" ? do
- display block
- width (pct 100)
height (pct 100)
fontSize (px 35)
textAlign (alignSide sideLeft)
paddingLeft headerPadding
paddingRight headerPadding
- ".signedPanel" ? do
- float floatRight
- height (pct 100)
- display flex
- position absolute
- top (px 0)
- right (px 0)
+ (".name" <> ".signOut") ? float floatRight
- ".user" <> ".icon" ? do
- paddingLeft headerPadding
- paddingRight headerPadding
+ ".name" ? do
+ paddingLeft headerPadding
+ paddingRight headerPadding
- ".icon" ? fontSize iconFontSize
+ ".signOut" ? do
+ height (pct 100)
+ fontSize iconFontSize
+ color C.white
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 9d1c053..83d0467 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -63,11 +63,15 @@ data Key =
| SingularMonthlyCount
| PluralMonthlyCount
+ -- Statistics
+
+ | Statistics
+
-- Income
| AddIncome
- | Incomes
| Income
+ | MonthlyNetIncomes
| IncomeNotDeleted
-- Http error
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 9db4a76..8c1ba08 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -244,6 +244,13 @@ m l PluralMonthlyCount =
French -> "{1} paiements mensuels comptabilisant {2}"
]
+-- Statistics
+
+m l Statistics =
+ case l of
+ English -> "Statistics"
+ French -> "Statistiques"
+
-- Income
m l AddIncome =
@@ -251,15 +258,15 @@ m l AddIncome =
English -> "Add a monthly net income"
French -> "Ajouter un revenu mensuel net"
-m l Incomes =
+m l Income =
case l of
- English -> "Monthly net incomes"
- French -> "Revenus mensuels nets"
+ English -> "Income"
+ French -> "Revenu"
-m l Income =
+m l MonthlyNetIncomes =
case l of
- English -> "Monthly net income: {1}"
- French -> "Revenu mensuel net : {1}"
+ English -> "Monthly net incomes"
+ French -> "Revenus mensuels nets"
m l IncomeNotDeleted =
case l of