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

web: show a count of postings in each account

Browse Source
This commit is contained in:
Simon Michael 2011-06-11 18:53:56 +00:00
parent fb9fb50cfd
commit 9a5e5da3aa
3 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-web/.hledger/web/static/style.css
View File

@ -24,6 +24,7 @@ body { backgroun
.balancereport .inacct { background-color:#eee; font-weight:bold; } .balancereport .inacct { background-color:#eee; font-weight:bold; }
.notinacct, .notinacct :link, .notinacct :visited, .notinacct .negative { /*color:#aaa;*/ } .notinacct, .notinacct :link, .notinacct :visited, .notinacct .negative { /*color:#aaa;*/ }
.balancereport .numpostings { padding-left:1em; color:#aaa; }
/*------------------------------------------------------------------------------------------*/ /*------------------------------------------------------------------------------------------*/
/* 2. font families & sizes */ /* 2. font families & sizes */

1
hledger-web/.hledger/web/templates/balancereportitem.hamlet
View File

@ -3,3 +3,4 @@
#{indent} #{indent}
<a href="@?{accturl}">#{adisplay} <a href="@?{accturl}">#{adisplay}
<td.balance align=right>#{mixedAmountAsHtml abal} <td.balance align=right>#{mixedAmountAsHtml abal}
<td.numpostings align=right>(#{numpostingsinacct acct})

2
hledger-web/Handlers.hs
View File

@ -126,6 +126,8 @@ accountUrl a = "inacct:" ++ quoteIfSpaced a -- (accountNameToAccountRegex a)
balanceReportAsHtml :: [Opt] -> ViewData -> BalanceReport -> Hamlet AppRoute balanceReportAsHtml :: [Opt] -> ViewData -> BalanceReport -> Hamlet AppRoute
balanceReportAsHtml _ vd@VD{here=here,q=q,m=m,qopts=qopts,j=j} (items,total) = $(Settings.hamletFile "balancereport") balanceReportAsHtml _ vd@VD{here=here,q=q,m=m,qopts=qopts,j=j} (items,total) = $(Settings.hamletFile "balancereport")
where where
l = journalToLedger nullfilterspec j
numpostingsinacct = length . apostings . ledgerAccount l
filtering = not $ null q filtering = not $ null q
inacctmatcher = inAccountMatcher qopts inacctmatcher = inAccountMatcher qopts
itemAsHtml :: ViewData -> BalanceReportItem -> Hamlet AppRoute itemAsHtml :: ViewData -> BalanceReportItem -> Hamlet AppRoute