web: journal: better display of account names

2014-07-29 20:00:17 +02:00 · 2014-07-29 20:00:17 +02:00 · 73d4c86002
commit 73d4c86002
parent 50ef6d52dd
1 changed files with 1 additions and 1 deletions
--- a/hledger-web/Handler/JournalR.hs
+++ b/hledger-web/Handler/JournalR.hs
@ -70,7 +70,7 @@ $forall p' <- tpostings t
  <td.description>
  <td.account>
   &nbsp;
-   <a href="/register?q=inacct:'#{paccount p'}'##{date}">#{elideRight 40 $ paccount p'}
+   <a href="/register?q=inacct:'#{paccount p'}'##{date}" title="#{paccount p'}">#{elideAccountName 40 $ paccount p'}
  <td.amount style="text-align:right;">#{mixedAmountAsHtml $ pamount p'}
 <tr.#{evenodd}>
 <td>&nbsp;