slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: register column headings

Browse Source
This commit is contained in:
Simon Michael 2010-08-01 19:54:04 +00:00
parent 506ec00818
commit 1575083855
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Hledger/Cli/Commands/Web.hs
View File

@ -625,11 +625,20 @@ getRegisterOnlyR = do
registerReportAsHtml :: [Opt] -> TemplateData -> RegisterReport -> Hamlet HledgerWebAppRoute registerReportAsHtml :: [Opt] -> TemplateData -> RegisterReport -> Hamlet HledgerWebAppRoute
registerReportAsHtml _ td items = [$hamlet| registerReportAsHtml _ td items = [$hamlet|
%table.registerreport %table.registerreport
%tr.headings
^headings^
$forall number.items i $forall number.items i
^itemAsHtml' i^ ^itemAsHtml' i^
|] |]
where where
number = zip [1..] number = zip [1..]
headings = [$hamlet|
%th.date!align=left Date
%th.description!align=left Description
%th.account!align=left Account
%th.amount!align=right Amount
%th.balance!align=right Balance
|]
itemAsHtml' = itemAsHtml td itemAsHtml' = itemAsHtml td
itemAsHtml :: TemplateData -> (Int, RegisterReportItem) -> Hamlet HledgerWebAppRoute itemAsHtml :: TemplateData -> (Int, RegisterReportItem) -> Hamlet HledgerWebAppRoute
itemAsHtml TD{p=p} (n, (ds, posting, b)) = [$hamlet| itemAsHtml TD{p=p} (n, (ds, posting, b)) = [$hamlet|