diff options
Diffstat (limited to 'src/server/Design')
| -rw-r--r-- | src/server/Design/Color.hs | 2 | ||||
| -rw-r--r-- | src/server/Design/Global.hs | 14 |
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) |