web: tooltips everywhere

hledger-web/.hledger/web/templates/balancereport.hamlet

@@ -1,12 +1,12 @@
 <div#accountsheading
  accounts
  \ #
- <a#accounts-toggle-link.togglelink href="#">[+/-]
+ <a#accounts-toggle-link.togglelink href="#" title="Toggle accounts sidebar">[+/-]
 
 <div#accounts
  <table.balancereport>
   <tr.item :allaccts:.inacct
-   <td.account colspan=3><a href=@{here}>all accounts
+   <td.account colspan=3><a href=@{here} title="Show all accounts and postings">all accounts
 
   $forall i <- items
    ^{itemAsHtml vd i}

hledger-web/.hledger/web/templates/balancereportitem.hamlet

@@ -10,4 +10,4 @@
     <a href="@?{acctsonlyquery}" title="Focus on this account and sub-accounts and hide others">-others -->
 
  <td.balance align=right>#{mixedAmountAsHtml abal}
- <td.numpostings align=right>(#{numpostingsinacct acct})
+ <td.numpostings align=right title="#{numpostings} transactions in this account">(#{numpostings})

hledger-web/.hledger/web/templates/editlinks.hamlet

@@ -1,4 +1,4 @@
-<a#editformlink href onclick="return editformToggle(event)">edit
+<a#editformlink href onclick="return editformToggle(event)" title="Toggle journal edit form">edit
 \ | #
-<a#addformlink href onclick="return addformToggle(event)">add
+<a#addformlink href onclick="return addformToggle(event)" title="Toggle transaction add form">add
 <a#importformlink href onclick="return importformToggle(event)" style="display:none;">import transactions

hledger-web/.hledger/web/templates/journal.hamlet

@@ -4,7 +4,7 @@
   ^{sidecontent}
  <div#main.journal
   <div#navlinks
-   ^{navlink vd "transactions" JournalR} | #
+   ^{navlink vd "transactions" JournalR "View the transaction register"} | #
    ^{editlinks}
   <div#maincontent
    ^{searchform vd}

hledger-web/.hledger/web/templates/navlink.hamlet

@@ -1 +1 @@
-<a##{s}link.#{style} href=@?{u}>#{s}
+<a##{s}link.#{style} href=@?{u} title="#{title}">#{s}

hledger-web/.hledger/web/templates/register.hamlet

@@ -4,7 +4,7 @@
   ^{sidecontent}
  <div#main.register
   <div#navlinks
-   ^{navlink vd "transactions" RegisterR} | #
+   ^{navlink vd "transactions" RegisterR "View the transaction register"} | #
    ^{editlinks}
   <div#maincontent
    ^{searchform vd}

hledger-web/.hledger/web/templates/searchform.hamlet

@@ -9,7 +9,7 @@
      <input name=q size=60 value=#{q}
      <input type=submit value="Search"
      \ #
-     <a#search-help-link href="#">help
+     <a#search-help-link href="#" title="Toggle search help">help
      $if filtering
       \ #
       <span.showall

hledger-web/.hledger/web/templates/topbar.hamlet

@@ -1,9 +1,9 @@
 <div#topbar
- <a.topleftlink href=#{hledgerorgurl}
+ <a.topleftlink href=#{hledgerorgurl} title="More about hledger"
   hledger-web
   <br />
   #{version}
- <a.toprightlink href=#{manualurl} target=hledgerhelp>manual
+ <a.toprightlink href=#{manualurl} target=hledgerhelp title="User manual">manual
  <h1>#{title}
 $maybe m <- msg
  <div#message>#{m}

hledger-web/Handlers.hs

@@ -350,8 +350,8 @@ topbar VD{j=j,msg=msg,today=today} = $(Settings.hamletFile "topbar")
 --    registerlink = navlink vd "postings" RegisterR
 
 -- | Navigation link, preserving parameters and possibly highlighted.
-navlink :: ViewData -> String -> AppRoute -> Hamlet AppRoute
+navlink :: ViewData -> String -> AppRoute -> String -> Hamlet AppRoute
-navlink VD{here=here,q=q} s dest = $(Settings.hamletFile "navlink")
+navlink VD{here=here,q=q} s dest title = $(Settings.hamletFile "navlink")
   where u = (dest, if null q then [] else [("q", pack q)])
         style | dest == here = "navlinkcurrent"
               | otherwise    = "navlink" :: Text