diff --git a/hledger-web/src/Handler/JournalR.hs b/hledger-web/src/Handler/JournalR.hs index 06abdf33b..bf6014611 100644 --- a/hledger-web/src/Handler/JournalR.hs +++ b/hledger-web/src/Handler/JournalR.hs @@ -12,7 +12,7 @@ import Import import Hledger import Hledger.Cli.CliOptions import Hledger.Web.WebOptions -import Widget.AddForm (addForm) +import Widget.AddForm (addModal) import Widget.Common (accountQuery, mixedAmountAsHtml) -- | The formatted journal view, with sidebar. @@ -27,7 +27,6 @@ getJournalR = do acctlink a = (RegisterR, [("q", accountQuery a)]) (_, items) = journalTransactionsReport (reportopts_ $ cliopts_ opts) j m - (addView, addEnctype) <- generateFormPost (addForm j today) defaultLayout $ do setTitle "journal - hledger-web" $(widgetFile "journal") diff --git a/hledger-web/src/Handler/RegisterR.hs b/hledger-web/src/Handler/RegisterR.hs index 0462a2f6c..ba14a1f61 100644 --- a/hledger-web/src/Handler/RegisterR.hs +++ b/hledger-web/src/Handler/RegisterR.hs @@ -17,8 +17,8 @@ import Text.Hamlet (hamletFile) import Hledger import Hledger.Cli.CliOptions import Hledger.Web.WebOptions -import Widget.AddForm (addForm) -import Widget.Common (mixedAmountAsHtml, numberTransactionsReportItems) +import Widget.AddForm (addModal) +import Widget.Common (mixedAmountAsHtml) -- | The main journal/account register view, with accounts sidebar. getRegisterR :: Handler Html @@ -31,13 +31,6 @@ getRegisterR = do let r@(balancelabel,items) = accountTransactionsReport (reportopts_ $ cliopts_ opts) j m $ fromMaybe Any $ inAccountQuery qopts balancelabel' = if isJust (inAccount qopts) then balancelabel else "Total" - evenodd x = if even x then "even" else "odd" :: Text - datetransition newm newd - | newm = "newmonth" - | newd = "newday" - | otherwise = "" :: Text - - (addView, addEnctype) <- generateFormPost (addForm j today) defaultLayout $ do setTitle "register - hledger-web" $(widgetFile "register") diff --git a/hledger-web/src/Widget/AddForm.hs b/hledger-web/src/Widget/AddForm.hs index 5cb8f3675..15800e093 100644 --- a/hledger-web/src/Widget/AddForm.hs +++ b/hledger-web/src/Widget/AddForm.hs @@ -2,10 +2,12 @@ {-# LANGUAGE GADTs #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE QuasiQuotes #-} +{-# LANGUAGE RankNTypes #-} {-# LANGUAGE TemplateHaskell #-} module Widget.AddForm ( addForm + , addModal ) where import Control.Monad.State.Strict (evalStateT) @@ -26,6 +28,27 @@ import Settings (widgetFile) -- XXX -
- $if not (T.null q) - - -