From 962ddb3c3ae7ebc43fc091b9a0dde5564c86340d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20S=C3=BC=C3=9F?= Date: Fri, 14 Oct 2016 20:27:03 +0200 Subject: [PATCH] Adopted Bootstrap classes everywhere --- hledger-web/Foundation.hs | 38 ++- hledger-web/Handler/AddForm.hs | 1 - hledger-web/Handler/Common.hs | 89 +++---- hledger-web/Handler/JournalR.hs | 49 ++-- hledger-web/Handler/RegisterR.hs | 29 ++- hledger-web/static/hledger.css | 231 +++++------------- .../templates/default-layout-wrapper.hamlet | 4 +- 7 files changed, 140 insertions(+), 301 deletions(-) diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs index 675d5ded0..df09ff46e 100644 --- a/hledger-web/Foundation.hs +++ b/hledger-web/Foundation.hs @@ -337,23 +337,20 @@ addform _ vd@VD{..} = [hamlet| }); - - - - - - - -
- - - - $forall n <- postingnums - ^{postingfields vd n} - - - Tab in last field for - more - (or ctrl +, ctrl -) + +
+
+
- ^{amtfieldorsubmitbtn} +
+ ^{amtfieldorsubmitbtn} |] where islast = n == numpostings diff --git a/hledger-web/Handler/AddForm.hs b/hledger-web/Handler/AddForm.hs index 80588c692..54f2c6e10 100644 --- a/hledger-web/Handler/AddForm.hs +++ b/hledger-web/Handler/AddForm.hs @@ -44,7 +44,6 @@ postAddForm = do $forall e<-errs \#{e}
|] - -- 1. process the fixed fields with yesod-form VD{..} <- getViewData diff --git a/hledger-web/Handler/Common.hs b/hledger-web/Handler/Common.hs index ea24cc51e..cef07c884 100644 --- a/hledger-web/Handler/Common.hs +++ b/hledger-web/Handler/Common.hs @@ -34,29 +34,19 @@ hledgerLayout vd title content = do defaultLayout $ do setTitle $ toHtml $ title ++ " - hledger-web" toWidget [hamlet| - - $if showsidebar vd - - - - ^{sidebar vd} - $else - - - - - ^{topbar vd} - - ^{searchform vd} - ^{content} + ^{topbar vd} + ^{sidebar vd} +
+ ^{searchform vd} + ^{content} |] -- | Global toolbar/heading area. topbar :: ViewData -> HtmlUrl AppRoute topbar VD{..} = [hamlet| -