simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-28 21:02:04 +03:00
Code Issues Projects Releases Wiki Activity

web: clicking an account now gives the traditional single-account register report

Browse Source
This commit is contained in:
Simon Michael 2011-06-11 18:42:38 +00:00
parent 5fa829973c
commit 48f208be8f
3 changed files with 23 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,8 +22,8 @@ body { backgroun
#editform textarea { background-color:#eee; }
.negative { color:#800; }
.balancereport .inacct { /*background-color:#f0f0f0;*/ }
.notinacct, .notinacct :link, .notinacct :visited, .notinacct .negative { color:#aaa; }
.balancereport .inacct { background-color:#eee; font-weight:bold; }
.notinacct, .notinacct :link, .notinacct :visited, .notinacct .negative { /*color:#aaa;*/ }
/*------------------------------------------------------------------------------------------*/
/* 2. font families & sizes */

12
hledger-web/.hledger/web/templates/filterform.hamlet
View File

@ -7,15 +7,15 @@
\ #
<td
<input name=q size=100 value=#{q}
<input type=submit value="Search"
$if filtering
\ #
<span.showall
<a href=@{here}>show all
<a href=@{here}>clear search
<tr.help
<td
<td
PAT or acct:PAT to see transactions in all matched accounts, desc:PAT to search by description
<br>
not: to negate, multiple patterns are AND'ed, patterns are regular expressions
<br>
leave blank to see general journal (all postings)
leave blank to see general journal (all postings)<br>
acct:REGEXP to see postings to matched accounts, desc:REGEXP to search by description<br>
inacct:FULLACCTNAME or click an account to see transactions and accurate balance in a single account<br>
not: to negate, single or double quotes to include spaces, multiple patterns are AND'ed

22
hledger-web/Handlers.hs
View File

@ -15,7 +15,7 @@ import Data.List
import Data.Maybe
import Data.Text(Text,pack,unpack)
import Data.Time.Calendar
import Safe
-- import Safe
import System.FilePath (takeFileName, (</>))
import System.IO.Storage (putValue, getValue)
import Text.Hamlet hiding (hamletFile)
@ -63,7 +63,7 @@ getRegisterR :: Handler RepHtml
getRegisterR = do
vd@VD{opts=opts,m=m,j=j} <- getViewData
let sidecontent = balanceReportAsHtml opts vd{q=""} $ balanceReport opts nullfilterspec j
maincontent = registerReportAsHtml opts vd $ registerReport opts nullfilterspec $ filterJournalPostings2 m j
maincontent = registerReportAsHtml opts vd $ accountOrJournalRegisterReport opts m j
editform' = editform vd
defaultLayout $ do
setTitle "hledger-web register"
@ -89,11 +89,17 @@ getRegisterOnlyR = do
vd@VD{opts=opts,m=m,j=j} <- getViewData
defaultLayout $ do
setTitle "hledger-web register only"
addHamlet $ registerReportAsHtml opts vd $ registerReport opts nullfilterspec $ filterJournalPostings2 m j
addHamlet $ registerReportAsHtml opts vd $ accountOrJournalRegisterReport opts m j
postRegisterOnlyR :: Handler RepPlain
postRegisterOnlyR = handlePost
-- temporary helper - use the new account register report when in:ACCT is specified.
accountOrJournalRegisterReport :: [Opt] -> Matcher -> Journal -> RegisterReport
accountOrJournalRegisterReport opts m j =
case matcherInAccount m of Just a -> accountRegisterReport opts j m a
Nothing -> registerReport opts nullfilterspec $ filterJournalPostings2 m j
-- | A simple accounts view, like hledger balance. If the Accept header
-- specifies json, returns the chart of accounts as json.
getAccountsR :: Handler RepHtmlJson
@ -116,19 +122,21 @@ getAccountsJsonR = do
-- helpers
accountUrl :: String -> String
accountUrl a = "in:" ++ quoteIfSpaced (accountNameToAccountRegex a)
accountUrl a = "inacct:" ++ quoteIfSpaced a -- (accountNameToAccountRegex a)
-- | Render a balance report as HTML.
balanceReportAsHtml :: [Opt] -> ViewData -> BalanceReport -> Hamlet AppRoute
balanceReportAsHtml _ vd@VD{here=here,q=q,m=m,j=j} (items,total) = $(Settings.hamletFile "balancereport")
where
filtering = not $ null q
inacct = headMay $ filter (m `matchesInAccount`) $ journalAccountNames j
inacct = matcherInAccount m -- headMay $ filter (m `matchesInAccount`) $ journalAccountNames j
itemAsHtml :: ViewData -> BalanceReportItem -> Hamlet AppRoute
itemAsHtml VD{here=here,q=q} (acct, adisplay, aindent, abal) = $(Settings.hamletFile "balancereportitem")
where
depthclass = "depth"++show aindent
inclass = if acct == inacct then "inacct" else "notinacct" :: String
inclass | Just acct == inacct = "inacct"
| isJust inacct = "notinacct"
| otherwise = "" :: String
indent = preEscapedString $ concat $ replicate (2 * aindent) "&nbsp;"
accturl = (here, [("q", pack $ accountUrl acct)])
@ -407,7 +415,7 @@ getViewData = do
Just here' <- getCurrentRoute
today <- liftIO getCurrentDay
q <- getParameter "q"
let m = strace $ parseMatcher today q
let m = parseMatcher today q
return mkvd{opts=opts, q=q, m=m, j=j, today=today, here=here', msg=msg}
where
-- | Update our copy of the journal if the file changed. If there is an