web: fix tooltips showing transactions (fixes #927)

hledger-web/Hledger/Web/Handler/RegisterR.hs

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

hledger-web/templates/chart.hamlet

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

hledger-web/templates/journal.hamlet

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

hledger-web/templates/register.hamlet

@@ -19,11 +19,11 @@
 
     <tbody>
       $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>
             <a href="@{JournalR}#transaction-#{tindex torig}">
               #{show (tdate tacct)}
-          <td title="#{show torig}">
+          <td>
             #{textElideRight 30 (tdescription tacct)}
           <td .account>
             #{elideRight 40 acct}