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

Made backlinking work again

Browse Source
This commit is contained in:
Dominik Süß 2016-10-21 18:13:22 +02:00 committed by Simon Michael
parent 533d4ff2b8
commit 4b6ad55cd8
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-web/Handler/JournalR.hs
View File

@ -62,14 +62,14 @@ journalTransactionsReportAsHtml _ vd (_,items) = [hamlet|
-- .#{datetransition} -- .#{datetransition}
itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute
itemAsHtml VD{..} (n, _, _, _, (torig, _, split, _, amt, _)) = [hamlet| itemAsHtml VD{..} (n, _, _, _, (torig, _, split, _, amt, _)) = [hamlet|
<tr .title> <tr .title #transaction-#{tindex torig}>
<td .date>#{date} <td .date>#{date}
<td .description colspan=2>#{textElideRight 60 desc} <td .description colspan=2>#{textElideRight 60 desc}
<td .amount style="text-align:right;"> <td .amount style="text-align:right;">
$if showamt $if showamt
\#{mixedAmountAsHtml amt} \#{mixedAmountAsHtml amt}
$forall p' <- tpostings torig $forall p' <- tpostings torig
<tr .item.#{evenodd}.posting title="#{show torig}"> <tr .item .posting title="#{show torig}">
<td .nonhead> <td .nonhead>
<td .nonhead> <td .nonhead>
<td .nonhead> <td .nonhead>
@ -79,7 +79,6 @@ $forall p' <- tpostings torig
|] |]
where where
acctlink a = (RegisterR, [("q", T.pack $ accountQuery a)]) acctlink a = (RegisterR, [("q", T.pack $ accountQuery a)])
evenodd = if even n then "even" else "odd" :: String
-- datetransition | newm = "newmonth" -- datetransition | newm = "newmonth"
-- | newd = "newday" -- | newd = "newday"
-- | otherwise = "" :: String -- | otherwise = "" :: String

2
hledger-web/Handler/RegisterR.hs
View File

@ -80,7 +80,7 @@ registerItemsHtml _ vd (balancelabel,items) = [hamlet|
<tr ##{tindex torig} .item.#{evenodd}.#{firstposting}.#{datetransition} title="#{show torig}" style="vertical-align:top;"> <tr ##{tindex torig} .item.#{evenodd}.#{firstposting}.#{datetransition} title="#{show torig}" style="vertical-align:top;">
<td .date> <td .date>
<a href="@{JournalR}##{tindex torig}">#{date} <a href="@{JournalR}#transaction-#{tindex torig}">#{date}
<td .description title="#{show torig}">#{textElideRight 30 desc} <td .description title="#{show torig}">#{textElideRight 30 desc}
<td .account>#{elideRight 40 acct} <td .account>#{elideRight 40 acct}
<td .amount style="text-align:right; white-space:nowrap;"> <td .amount style="text-align:right; white-space:nowrap;">