diff options
| author | Joris | 2016-06-19 21:18:56 +0200 |
|---|---|---|
| committer | Joris | 2016-06-21 12:49:51 +0200 |
| commit | 36a90770ebeb9bd99e136bfe035fdda5dfabc304 (patch) | |
| tree | 42b605108f4b8b731fecd65b028006aa41399f40 /src/server/Design/Global.hs | |
| parent | fb5629d7f705b7e80dcf1852da58d2864c2b0d25 (diff) | |
| download | budget-36a90770ebeb9bd99e136bfe035fdda5dfabc304.tar.gz budget-36a90770ebeb9bd99e136bfe035fdda5dfabc304.tar.bz2 budget-36a90770ebeb9bd99e136bfe035fdda5dfabc304.zip | |
Add a dialog to confirm income deletion
Diffstat (limited to 'src/server/Design/Global.hs')
| -rw-r--r-- | src/server/Design/Global.hs | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs index 68cff68..7d4a1bb 100644 --- a/src/server/Design/Global.hs +++ b/src/server/Design/Global.hs @@ -8,14 +8,16 @@ import Clay import Data.Text.Lazy (Text) -import qualified Design.Header as HeaderDesign -import qualified Design.SignIn as SignInDesign -import qualified Design.LoggedIn as LoggedInDesign +import qualified Design.Header as Header +import qualified Design.SignIn as SignIn +import qualified Design.LoggedIn as LoggedIn import qualified Design.Form as Form import Design.Animation.Keyframes import Design.Color as Color +import Design.Helper as Helper +import Design.Constants as Constants globalDesign :: Text globalDesign = renderWith compact [] global @@ -23,9 +25,9 @@ globalDesign = renderWith compact [] global global :: Css global = do - header ? HeaderDesign.design - ".signIn" ? SignInDesign.design - ".loggedIn" ? LoggedInDesign.design + header ? Header.design + ".signIn" ? SignIn.design + ".loggedIn" ? LoggedIn.design Form.design allKeyframes @@ -54,4 +56,8 @@ global = do "margin-left" -: "3vh" "margin-top" -: "2vh" + ".dialog" ? ".content" ? button ? do + ".confirm" & Helper.defaultButton Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten + ".undo" & Helper.defaultButton Color.silver Color.white (px Constants.inputHeight) Constants.focusLighten + svg ? height (pct 100) |