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

web: fix tooltips showing transactions (fixes #927)

Browse Source
This commit is contained in:
Simon Michael 2019-02-18 07:55:29 -08:00
parent 024bd944a1
commit 10b45c75aa
4 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-web/Hledger/Web/Handler/RegisterR.hs
View File

@ -58,3 +58,4 @@ dayToJsTimestamp d =
read (formatTime defaultTimeLocale "%s" t) * 1000 -- XXX read read (formatTime defaultTimeLocale "%s" t) * 1000 -- XXX read
where where
t = UTCTime d (secondsToDiffTime 0) t = UTCTime d (secondsToDiffTime 0)

2
hledger-web/templates/chart.hamlet
View File

@ -38,7 +38,7 @@
#{simpleMixedAmountQuantity $ triCommodityBalance c i}, #{simpleMixedAmountQuantity $ triCommodityBalance c i},
'#{showMixedAmountWithZeroCommodity $ triCommodityAmount c i}', '#{showMixedAmountWithZeroCommodity $ triCommodityAmount c i}',
'#{showMixedAmountWithZeroCommodity $ triCommodityBalance c i}', '#{showMixedAmountWithZeroCommodity $ triCommodityBalance c i}',
'#{concat $ intersperse "\\n" $ lines $ show $ triOrigTransaction i}', '#{concat $ intersperse "\\n" $ lines $ showTransaction $ triOrigTransaction i}',
#{tindex $ triOrigTransaction i} #{tindex $ triOrigTransaction i}
], ],
/* [] */ /* [] */

4
hledger-web/templates/journal.hamlet
View File

@ -15,7 +15,7 @@ $if elem CapAdd caps
<th .amount style="text-align:right;">Amount <th .amount style="text-align:right;">Amount
$forall (torig, _, split, _, amt, _) <- items $forall (torig, _, split, _, amt, _) <- items
<tr .title #transaction-#{tindex torig}> <tr .title #transaction-#{tindex torig} title="#{showTransaction torig}">
<td .date nowrap> <td .date nowrap>
#{show (tdate torig)} #{show (tdate torig)}
<td colspan=2> <td colspan=2>
@ -25,7 +25,7 @@ $if elem CapAdd caps
^{mixedAmountAsHtml amt} ^{mixedAmountAsHtml amt}
$forall Posting { paccount = acc, pamount = amt } <- tpostings torig $forall Posting { paccount = acc, pamount = amt } <- tpostings torig
<tr .posting title="#{show torig}"> <tr .posting>
<td> <td>
<td> <td>
<td> <td>

4
hledger-web/templates/register.hamlet
View File

@ -19,11 +19,11 @@
<tbody> <tbody>
$forall (torig, tacct, split, acct, amt, bal) <- items $forall (torig, tacct, split, acct, amt, bal) <- items
<tr ##{tindex torig} title="#{show torig}" style="vertical-align:top;"> <tr ##{tindex torig} title="#{showTransaction torig}" style="vertical-align:top;">
<td .date> <td .date>
<a href="@{JournalR}#transaction-#{tindex torig}"> <a href="@{JournalR}#transaction-#{tindex torig}">
#{show (tdate tacct)} #{show (tdate tacct)}
<td title="#{show torig}"> <td>
#{textElideRight 30 (tdescription tacct)} #{textElideRight 30 (tdescription tacct)}
<td .account> <td .account>
#{elideRight 40 acct} #{elideRight 40 acct}