aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Design')
-rw-r--r--src/server/Design/Color.hs2
-rw-r--r--src/server/Design/Global.hs14
2 files changed, 12 insertions, 4 deletions
diff --git a/src/server/Design/Color.hs b/src/server/Design/Color.hs
index f4223a2..f5bd59d 100644
--- a/src/server/Design/Color.hs
+++ b/src/server/Design/Color.hs
@@ -15,7 +15,7 @@ orange :: C.Color
orange = C.orange
green :: C.Color
-green = C.green
+green = C.rgb 165 213 42
darkgrey :: C.Color
darkgrey = C.rgb 150 150 150
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index f7dd28d..f61fa66 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -4,9 +4,6 @@ module Design.Global
( globalDesign
) where
-import qualified Prelude
-import Prelude
-
import Data.Monoid ((<>))
import Clay
@@ -51,6 +48,17 @@ global = do
hover & transform (scale 1.2 1.2)
".payments" ? do
+
+ ".exceedingPayers" ? do
+ margin (px 0) (px 20) (px 45) (px 20)
+ padding (px 10) (px 10) (px 10) (px 10)
+ backgroundColor C.green
+ color C.white
+ fontWeight bold
+ borderRadius (px 5) (px 5) (px 5) (px 5)
+
+ ".exceedingPayer" Clay.** ".userName" ? marginRight (px 10)
+
form # ".add" ? do
let inputHeight = 40
width (pct 80)