From db338096bb8ed9c49c26170c3d852900af1d70e4 Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Wed, 16 Dec 2015 19:09:12 +0100
Subject: [PATCH 01/11] web: Remove extra closing tags for scripts in header

---
 hledger-web/Foundation.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs
index 1bfe9a083..bac90a0a8 100644
--- a/hledger-web/Foundation.hs
+++ b/hledger-web/Foundation.hs
@@ -128,8 +128,8 @@ instance Yesod App where
             addStylesheet $ StaticR css_bootstrap_min_css
              -- load these things early, in HEAD:
             toWidgetHead [hamlet|
-                          <script type="text/javascript" src="@{StaticR js_jquery_min_js}"></script>
-                          <script type="text/javascript" src="@{StaticR js_typeahead_bundle_min_js}"></script>
+                          <script type="text/javascript" src="@{StaticR js_jquery_min_js}">
+                          <script type="text/javascript" src="@{StaticR js_typeahead_bundle_min_js}">
                          |]
             addScript $ StaticR js_bootstrap_min_js
             -- addScript $ StaticR js_typeahead_bundle_min_js

From 2782f2abf10220c9ca28a98e442a2de401a59597 Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Wed, 16 Dec 2015 20:38:56 +0100
Subject: [PATCH 02/11] web: tt tag is deprecated, replace it with code tag and
 some colouring

---
 hledger-web/static/hledger.css                |  7 +++-
 .../templates/default-layout-wrapper.hamlet   | 34 +++++++++----------
 2 files changed, 23 insertions(+), 18 deletions(-)

diff --git a/hledger-web/static/hledger.css b/hledger-web/static/hledger.css
index 5cc5ec30b..9b1d7708c 100644
--- a/hledger-web/static/hledger.css
+++ b/hledger-web/static/hledger.css
@@ -259,4 +259,9 @@ tr.firstposting td          { }
 
 .twitter-typeahead {
   width:100%;
-}
\ No newline at end of file
+}
+
+code {
+  font-weight: bold;
+  color: black;
+}
diff --git a/hledger-web/templates/default-layout-wrapper.hamlet b/hledger-web/templates/default-layout-wrapper.hamlet
index 82fc94dbd..8407e5e3f 100644
--- a/hledger-web/templates/default-layout-wrapper.hamlet
+++ b/hledger-web/templates/default-layout-wrapper.hamlet
@@ -61,11 +61,11 @@ $newline never
                     <p>
                       <b>Keyboard shortcuts
                       <ul>
-                        <li> <b><tt>h</tt></b> or maybe <b><tt>?</tt></b> - view this help (escape or click to exit)
-                        <li> <b><tt>j</tt></b> - go to the Journal view (home)
-                        <li> <b><tt>a</tt></b> - add a transaction (escape to cancel)
-                        <li> <b><tt>s</tt></b> - toggle sidebar
-                        <li> <b><tt>f</tt></b> - focus search form ("find")
+                        <li> <code>h</code> or maybe <code>?</code> - view this help (escape or click to exit)
+                        <li> <code>j</code> - go to the Journal view (home)
+                        <li> <code>a</code> - add a transaction (escape to cancel)
+                        <li> <code>s</code> - toggle sidebar
+                        <li> <code>f</code> - focus search form ("find")
                     <p>
                       <b>General
                       <ul>
@@ -79,19 +79,19 @@ $newline never
                     <p>
                       <b>Search
                       <ul>
-                        <li> <b><tt>acct:REGEXP</tt></b> - filter on to/from account
-                        <li> <b><tt>desc:REGEXP</tt></b> - filter on description
-                        <li> <b><tt>date:PERIODEXP</tt></b>, <b><tt>date2:PERIODEXP</tt></b> - filter on date or secondary date
-                        <li> <b><tt>code:REGEXP</tt></b> - filter on transaction's code (eg check number)
-                        <li> <b><tt>status:*</tt></b>, <b><tt>status:!</tt></b>, <b><tt>status:</tt></b> - filter on transaction's cleared status (cleared, pending, uncleared)
-                        <!-- <li> <b><tt>empty:BOOL</tt></b> - filter on whether amount is zero -->
-                        <li> <b><tt>amt:N</tt></b>, <b><tt>amt:&lt;N</tt></b>, <b><tt>amt:&gt;N</tt></b> - filter on the unsigned amount magnitude. Or with a sign before N, filter on the signed value. (Single-commodity amounts only.)
-                        <li> <b><tt>cur:REGEXP</tt></b> - filter on the currency/commodity symbol (must match all of it). Dollar sign must be written as <tt>\$</tt>
-                        <li> <b><tt>tag:NAME</tt></b>, <b><tt>tag:NAME=REGEX</tt></b> - filter on tag name, or tag name and value
-                        <!-- <li> <b><tt>depth:N</tt></b> - filter out accounts below this depth -->
-                        <li> <b><tt>real:BOOL</tt></b> - filter on postings' real/virtual-ness
+                        <li> <code>acct:REGEXP</code> - filter on to/from account
+                        <li> <code>desc:REGEXP</code> - filter on description
+                        <li> <code>date:PERIODEXP</code>, <code>date2:PERIODEXP</code> - filter on date or secondary date
+                        <li> <code>code:REGEXP</code> - filter on transaction's code (eg check number)
+                        <li> <code>status:*</code>, <code>status:!</code>, <code>status:</code> - filter on transaction's cleared status (cleared, pending, uncleared)
+                        <!-- <li> <code>empty:BOOL</code> - filter on whether amount is zero -->
+                        <li> <code>amt:N</code>, <code>amt:&lt;N</code>, <code>amt:&gt;N</code> - filter on the unsigned amount magnitude. Or with a sign before N, filter on the signed value. (Single-commodity amounts only.)
+                        <li> <code>cur:REGEXP</code> - filter on the currency/commodity symbol (must match all of it). Dollar sign must be written as <code>\$</code>
+                        <li> <code>tag:NAME</code>, <code>tag:NAME=REGEX</code> - filter on tag name, or tag name and value
+                        <!-- <li> <code>depth:N</code> - filter out accounts below this depth -->
+                        <li> <code>real:BOOL</code> - filter on postings' real/virtual-ness
                         <li> Enclose search patterns containing spaces in single or double quotes
-                        <li> Prepend <b><tt>not:</tt></b> to negate a search term
+                        <li> Prepend <code>not:</code> to negate a search term
                         <li> Multiple search terms on different fields are AND'ed, multiple search terms on the same field are OR'ed
                         <li> These search terms also work with command-line hledger
 

From ac3db83e02bfc08d8a0de0f6f3ed568026f9c82b Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Wed, 16 Dec 2015 23:07:18 +0100
Subject: [PATCH 03/11] web: add some newlines to fix tags

---
 hledger-web/Foundation.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs
index bac90a0a8..43c1d715b 100644
--- a/hledger-web/Foundation.hs
+++ b/hledger-web/Foundation.hs
@@ -347,7 +347,9 @@ addform _ vd@VD{..} = [hamlet|
     ^{postingfields vd n}
   <span style="padding-left:2em;">
    <span .small>
-     Tab in last field for <a .small href="#" onclick="addformAddPosting(); return false;">more</a> (or ctrl +, ctrl -)
+     Tab in last field for
+     <a href="#" onclick="addformAddPosting(); return false;">more
+     (or ctrl +, ctrl -)
 |]
  where
   defdate = "today" :: String

From 5fbdae005b224a66706c0f11a57cdb819ab2ed18 Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Fri, 18 Dec 2015 08:35:37 +0100
Subject: [PATCH 04/11] web: use transaction indexes instead of the date for
 html tag ids #308

---
 hledger-web/Handler/JournalR.hs  | 4 ++--
 hledger-web/Handler/RegisterR.hs | 8 +++++---
 hledger-web/static/hledger.js    | 7 +++----
 3 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/hledger-web/Handler/JournalR.hs b/hledger-web/Handler/JournalR.hs
index fa2cca24a..29ade6c61 100644
--- a/hledger-web/Handler/JournalR.hs
+++ b/hledger-web/Handler/JournalR.hs
@@ -60,7 +60,7 @@ journalTransactionsReportAsHtml _ vd (_,items) = [hamlet|
 -- .#{datetransition}
    itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute
    itemAsHtml VD{..} (n, _, _, _, (t, _, split, _, amt, _)) = [hamlet|
-<tr ##{date} .item.#{evenodd}.#{firstposting} style="vertical-align:top;" title="#{show t}">
+<tr ##{tindex t} .item.#{evenodd}.#{firstposting} style="vertical-align:top;" title="#{show t}">
  <td.date>#{date}
  <td.description colspan=2>#{elideRight 60 desc}
  <td.amount style="text-align:right;">
@@ -72,7 +72,7 @@ $forall p' <- tpostings t
   <td.description>
   <td.account>
    &nbsp;
-   <a href="@?{acctlink (paccount p')}##{date}" title="#{paccount p'}">#{elideAccountName 40 $ paccount p'}
+   <a href="@?{acctlink (paccount p')}##{tindex t}" title="#{paccount p'}">#{elideAccountName 40 $ paccount p'}
   <td.amount style="text-align:right;">#{mixedAmountAsHtml $ pamount p'}
 <tr.#{evenodd}>
  <td>&nbsp;
diff --git a/hledger-web/Handler/RegisterR.hs b/hledger-web/Handler/RegisterR.hs
index 64678be93..164f50de8 100644
--- a/hledger-web/Handler/RegisterR.hs
+++ b/hledger-web/Handler/RegisterR.hs
@@ -73,8 +73,9 @@ registerItemsHtml _ vd (balancelabel,items) = [hamlet|
    itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute
    itemAsHtml VD{..} (n, newd, newm, _, (torig, tacct, split, acct, amt, bal)) = [hamlet|
 
-<tr ##{date} .item.#{evenodd}.#{firstposting}.#{datetransition} title="#{show torig}" style="vertical-align:top;">
- <td.date><a href="@{JournalR}##{date}">#{date}
+<tr ##{tindex torig} .item.#{evenodd}.#{firstposting}.#{datetransition} title="#{show torig}" style="vertical-align:top;">
+ <td.date>
+  <a href="@{JournalR}##{tindex torig}">#{date}
  <td.description title="#{show torig}">#{elideRight 30 desc}
  <td.account>#{elideRight 40 acct}
  <td.amount style="text-align:right; white-space:nowrap;">
@@ -119,7 +120,7 @@ registerChartHtml percommoditytxnreports =
           $forall i <- reverse items
            [
             #{dayToJsTimestamp $ triDate i},
-            #{simpleMixedAmountQuantity $ triCommodityBalance c i},
+            #{simpleMixedAmountQuantity $ triCommodityBalance c i}
            ],
           /* [] */
         ],
@@ -145,6 +146,7 @@ registerChartHtml percommoditytxnreports =
             '#{showMixedAmountWithZeroCommodity $ triCommodityAmount c i}',
             '#{showMixedAmountWithZeroCommodity $ triCommodityBalance c i}',
             '#{concat $ intersperse "\\n" $ lines  $ show $ triOrigTransaction i}',
+            #{tindex $ triOrigTransaction i}
            ],
           /* [] */
         ],
diff --git a/hledger-web/static/hledger.js b/hledger-web/static/hledger.js
index 18012d385..1a460f73b 100644
--- a/hledger-web/static/hledger.js
+++ b/hledger-web/static/hledger.js
@@ -113,13 +113,12 @@ function registerChart($container, series) {
 
 function registerChartClick(ev, pos, item) {
   if (item) {
-    var date = $.plot.dateGenerator(item.datapoint[0], {});
-    var dateid = $.plot.formatDate(date, '%Y-%m-%d');
-    $target = $('#'+dateid);
-    if ($target.length)
+    $target = $('#'+item.series.data[item.dataIndex][5]);
+    if ($target.length) {
       $('html, body').animate({
         scrollTop: $target.offset().top
       }, 1000);
+    }
   }
 }
 

From 28f23d09cf113108b6a37147e809e49d68fd54da Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Fri, 18 Dec 2015 08:38:04 +0100
Subject: [PATCH 05/11] web: some naming convention would be nice

---
 hledger-web/Handler/JournalR.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/hledger-web/Handler/JournalR.hs b/hledger-web/Handler/JournalR.hs
index 29ade6c61..a27b6d23e 100644
--- a/hledger-web/Handler/JournalR.hs
+++ b/hledger-web/Handler/JournalR.hs
@@ -59,20 +59,20 @@ journalTransactionsReportAsHtml _ vd (_,items) = [hamlet|
  where
 -- .#{datetransition}
    itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute
-   itemAsHtml VD{..} (n, _, _, _, (t, _, split, _, amt, _)) = [hamlet|
-<tr ##{tindex t} .item.#{evenodd}.#{firstposting} style="vertical-align:top;" title="#{show t}">
+   itemAsHtml VD{..} (n, _, _, _, (torig, _, split, _, amt, _)) = [hamlet|
+<tr ##{tindex torig} .item.#{evenodd}.#{firstposting} style="vertical-align:top;" title="#{show torig}">
  <td.date>#{date}
  <td.description colspan=2>#{elideRight 60 desc}
  <td.amount style="text-align:right;">
   $if showamt
    \#{mixedAmountAsHtml amt}
-$forall p' <- tpostings t
- <tr .item.#{evenodd}.posting title="#{show t}">
+$forall p' <- tpostings torig
+ <tr .item.#{evenodd}.posting title="#{show torig}">
   <td.date>
   <td.description>
   <td.account>
    &nbsp;
-   <a href="@?{acctlink (paccount p')}##{tindex t}" title="#{paccount p'}">#{elideAccountName 40 $ paccount p'}
+   <a href="@?{acctlink (paccount p')}##{tindex torig}" title="#{paccount p'}">#{elideAccountName 40 $ paccount p'}
   <td.amount style="text-align:right;">#{mixedAmountAsHtml $ pamount p'}
 <tr.#{evenodd}>
  <td>&nbsp;
@@ -86,7 +86,7 @@ $forall p' <- tpostings t
        -- datetransition | newm = "newmonth"
        --                | newd = "newday"
        --                | otherwise = "" :: String
-       (firstposting, date, desc) = (False, show $ tdate t, tdescription t)
+       (firstposting, date, desc) = (False, show $ tdate torig, tdescription torig)
        -- acctquery = (here, [("q", pack $ accountQuery acct)])
        showamt = not split || not (isZeroMixedAmount amt)
 

From 8a725e7e61be8e6ecaaf68acd9eaaa36f1b0a541 Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Fri, 18 Dec 2015 08:57:19 +0100
Subject: [PATCH 06/11] web: cleanup commented code

---
 hledger-web/static/hledger.js | 40 ++++-------------------------------
 1 file changed, 4 insertions(+), 36 deletions(-)

diff --git a/hledger-web/static/hledger.js b/hledger-web/static/hledger.js
index 1a460f73b..43fd51674 100644
--- a/hledger-web/static/hledger.js
+++ b/hledger-web/static/hledger.js
@@ -36,58 +36,39 @@ function registerChart($container, series) {
   return $container.plot(
     series,
     { /* general chart options */
-      // series: {
-      // },
-      // yaxis: {
-      //   /* ticks: 6, */
-      // },
       xaxis: {
         mode: "time",
         timeformat: "%Y/%m/%d"
-        /* ticks: 6, */
+      },
+      legend: {
+        position: 'sw'
       },
       grid: {
         markings:
          function (axes) {
           var now = Date.now();
           var markings = [
-            // {
-            //   xaxis: { to: now },        // past
-            //   yaxis: { from: 0, to: 0 }, // =0
-            //  color: '#d88',
-            //  lineWidth:1
-            // },
             {
               xaxis: { to: now }, // past
               yaxis: { to: 0 },   // <0
               color: '#ffdddd',
             },
-
-            // {
-            //   xaxis: { from: now, to: now }, // now
-            //  color: '#bbb',
-            // },
-
             {
               xaxis: { from: now }, // future
               yaxis: { from: 0 },   // >0
-              // color: '#dddddd',
               color: '#e0e0e0',
             },
             {
               xaxis: { from: now }, // future
               yaxis: { to: 0 },     // <0
-              // color: '#ddbbbb',
               color: '#e8c8c8',
             },
             {
-              // xaxis: { from: now },      // future
               yaxis: { from: 0, to: 0 }, // =0
               color: '#bb0000',
               lineWidth:1
             },
           ];
-          // console.log(markings);
           return markings;
         },
         hoverable: true,
@@ -253,33 +234,20 @@ function addformDeletePosting() {
 // SIDEBAR
 
 function sidebarToggle() {
-  //console.log('sidebarToggle');
   var visible = $('#sidebar').is(':visible');
-  //console.log('sidebar visibility was',visible);
   // if opening sidebar, start an ajax fetch of its content
   if (!visible) {
-    //console.log('getting sidebar content');
     $.get("sidebar"
          ,null
          ,function(data) {
-            //console.log( "success" );
             $("#sidebar-body" ).html(data);
           })
-          .done(function() {
-            //console.log( "success 2" );
-          })
           .fail(function() {
-            //console.log( "error" );
+            alert("Loading the sidebar did fail");
           });
   }
-  // localStorage.setItem('sidebarVisible', !visible);
   // set a cookie to communicate the new sidebar state to the server
   $.cookie('showsidebar', visible ? '0' : '1');
-  // horizontally slide the sidebar in or out
-  // how to make it smooth, without delayed content pop-in ?
-  //$('#sidebar').animate({'width': 'toggle'});
-  //$('#sidebar').animate({'width': visible ? 'hide' : '+=20m'});
-  //$('#sidebar-spacer').width(200);
   $('#sidebar').animate({'width': visible ? 'hide' : 'show'});
 }
 

From b6c3ba1caf22551daa26b40f58c8d22fef4f2cff Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Fri, 18 Dec 2015 09:21:14 +0100
Subject: [PATCH 07/11] web: highlight whatever is in the url hash, i.e.
 transactions

---
 hledger-web/Handler/JournalR.hs | 39 +++++++++++++++++----------------
 hledger-web/static/hledger.css  |  7 +++++-
 hledger-web/static/hledger.js   |  5 +++++
 3 files changed, 31 insertions(+), 20 deletions(-)

diff --git a/hledger-web/Handler/JournalR.hs b/hledger-web/Handler/JournalR.hs
index a27b6d23e..2645997ee 100644
--- a/hledger-web/Handler/JournalR.hs
+++ b/hledger-web/Handler/JournalR.hs
@@ -60,25 +60,26 @@ journalTransactionsReportAsHtml _ vd (_,items) = [hamlet|
 -- .#{datetransition}
    itemAsHtml :: ViewData -> (Int, Bool, Bool, Bool, TransactionsReportItem) -> HtmlUrl AppRoute
    itemAsHtml VD{..} (n, _, _, _, (torig, _, split, _, amt, _)) = [hamlet|
-<tr ##{tindex torig} .item.#{evenodd}.#{firstposting} style="vertical-align:top;" title="#{show torig}">
- <td.date>#{date}
- <td.description colspan=2>#{elideRight 60 desc}
- <td.amount style="text-align:right;">
-  $if showamt
-   \#{mixedAmountAsHtml amt}
-$forall p' <- tpostings torig
- <tr .item.#{evenodd}.posting title="#{show torig}">
-  <td.date>
-  <td.description>
-  <td.account>
-   &nbsp;
-   <a href="@?{acctlink (paccount p')}##{tindex torig}" title="#{paccount p'}">#{elideAccountName 40 $ paccount p'}
-  <td.amount style="text-align:right;">#{mixedAmountAsHtml $ pamount p'}
-<tr.#{evenodd}>
- <td>&nbsp;
- <td>
- <td>
- <td>
+<tbody ##{tindex torig}>
+  <tr .item.#{evenodd}.#{firstposting} style="vertical-align:top;" title="#{show torig}">
+   <td.date>#{date}
+   <td.description colspan=2>#{elideRight 60 desc}
+   <td.amount style="text-align:right;">
+    $if showamt
+     \#{mixedAmountAsHtml amt}
+  $forall p' <- tpostings torig
+   <tr .item.#{evenodd}.posting title="#{show torig}">
+    <td.date>
+    <td.description>
+    <td.account>
+     &nbsp;
+     <a href="@?{acctlink (paccount p')}##{tindex torig}" title="#{paccount p'}">#{elideAccountName 40 $ paccount p'}
+    <td.amount style="text-align:right;">#{mixedAmountAsHtml $ pamount p'}
+  <tr.#{evenodd}>
+   <td>&nbsp;
+   <td>
+   <td>
+   <td>
 |]
      where
        acctlink a = (RegisterR, [("q", pack $ accountQuery a)])
diff --git a/hledger-web/static/hledger.css b/hledger-web/static/hledger.css
index 9b1d7708c..024bf6cce 100644
--- a/hledger-web/static/hledger.css
+++ b/hledger-web/static/hledger.css
@@ -25,6 +25,9 @@ a:link, a:visited { color:#00e; }
 #editform textarea                                                   { background-color:#eee; }
 .negative                                                            { color:#800; }
 .help                                                                {  }
+.highlighted {
+  background-color: #F4F466 !important;
+}
 
 #sidebar .hoverlinks { visibility:hidden; }
 /* #sidebar .mouseover { background-color:rgba(208,208,208,0.5); } */
@@ -119,7 +122,9 @@ body                        { margin:0; }
 .description                { padding-left:1em; white-space:normal; }
 .account                    { padding-left:1em; white-space:normal; }
 .amount                     { padding-left:1em; white-space:nowrap; }
-.balance                    { padding-left:1em; padding-right:0.3em; white-space:nowrap; }
+.balance                    { padding-left:1em; white-space:nowrap; }
+tr td:last-child { padding-right:0.3em; }
+tr td:first-child { padding-left:0.3em; }
 .amount, .balance { width:2em; }  /* minimise width */
 .positive                   { }
 
diff --git a/hledger-web/static/hledger.js b/hledger-web/static/hledger.js
index 43fd51674..8eba20e25 100644
--- a/hledger-web/static/hledger.js
+++ b/hledger-web/static/hledger.js
@@ -26,6 +26,11 @@ $(document).ready(function() {
   $('body, #addform input, #addform select').bind('keydown', 'ctrl+-',       addformDeletePosting);
   $('#addform tr.posting:last > td:first input').bind('keydown', 'tab', addformAddPostingWithTab);
 
+
+  // highlight the entry from the url hash
+  if (window.location.hash && $(window.location.hash)[0]) {
+    $(window.location.hash).addClass('highlighted');
+  }
 });
 
 //----------------------------------------------------------------------

From 71f4dc53b1ed3603ff6c1e87bcac465922fbbc8c Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Fri, 18 Dec 2015 10:14:09 +0100
Subject: [PATCH 08/11] web: in registerCharClick set the window.location.hash
 and listen to that event to highlight the new row

---
 hledger-web/static/hledger.js | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/hledger-web/static/hledger.js b/hledger-web/static/hledger.js
index 8eba20e25..f0f5186d0 100644
--- a/hledger-web/static/hledger.js
+++ b/hledger-web/static/hledger.js
@@ -31,6 +31,10 @@ $(document).ready(function() {
   if (window.location.hash && $(window.location.hash)[0]) {
     $(window.location.hash).addClass('highlighted');
   }
+  $(window).on('hashchange', function(event) {
+    $('.highlighted').removeClass('highlighted');
+    $(window.location.hash).addClass('highlighted');
+  });
 });
 
 //----------------------------------------------------------------------
@@ -99,8 +103,10 @@ function registerChart($container, series) {
 
 function registerChartClick(ev, pos, item) {
   if (item) {
-    $target = $('#'+item.series.data[item.dataIndex][5]);
+    targetselector = '#'+item.series.data[item.dataIndex][5];
+    $target = $(targetselector);
     if ($target.length) {
+      window.location.hash = targetselector;
       $('html, body').animate({
         scrollTop: $target.offset().top
       }, 1000);

From 3306c65ae5ea81ed8be3f0e09d5500995ac5bd78 Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Fri, 18 Dec 2015 10:14:35 +0100
Subject: [PATCH 09/11] web: colour for visited links needs to be important to
 stick

---
 hledger-web/static/hledger.css | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-web/static/hledger.css b/hledger-web/static/hledger.css
index 024bf6cce..6c0af21ce 100644
--- a/hledger-web/static/hledger.css
+++ b/hledger-web/static/hledger.css
@@ -8,7 +8,7 @@ body                                                                 { backgroun
 .registerreport .odd                                                 { background-color:#ded; }
 /* .transactionsreport .odd                                             { background-color:#eee; } */
 .filtering                                                           { background-color:#e0e0e0; }
-a:link, a:visited { color:#00e; }
+a:link, a:visited { color:#00e !important; }
 /* a:link:hover, a:visited:hover { color:red; } */
 /* #main                                                                { border-color:#e0e0e0; } see below */
 /* .journalreport td                                                    { border-color:thin solid #e0e0e0; } see below */

From f9c1902cbbbca449a265cd3e48c5e1a3562abc00 Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Fri, 18 Dec 2015 22:43:23 +0100
Subject: [PATCH 10/11] web: delete a few unused files from Yesod default app
 the normalize file is called but not delivered(?), anyways there is a newer
 version in bootstrap.css

---
 hledger-web/Foundation.hs              |   1 -
 hledger-web/hledger-web.cabal          |   4 -
 hledger-web/package.yaml               |   4 -
 hledger-web/templates/homepage.hamlet  |  38 ---
 hledger-web/templates/homepage.julius  |   1 -
 hledger-web/templates/homepage.lucius  |   6 -
 hledger-web/templates/normalize.lucius | 439 -------------------------
 7 files changed, 493 deletions(-)
 delete mode 100644 hledger-web/templates/homepage.hamlet
 delete mode 100644 hledger-web/templates/homepage.julius
 delete mode 100644 hledger-web/templates/homepage.lucius
 delete mode 100644 hledger-web/templates/normalize.lucius

diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs
index 43c1d715b..b03852ae8 100644
--- a/hledger-web/Foundation.hs
+++ b/hledger-web/Foundation.hs
@@ -124,7 +124,6 @@ instance Yesod App where
     --     hamletToRepHtml $(hamletFile "templates/default-layout-wrapper.hamlet")
 
         pc <- widgetToPageContent $ do
-            $(widgetFile "normalize")
             addStylesheet $ StaticR css_bootstrap_min_css
              -- load these things early, in HEAD:
             toWidgetHead [hamlet|
diff --git a/hledger-web/hledger-web.cabal b/hledger-web/hledger-web.cabal
index 5a7a5567b..be2ddc10d 100644
--- a/hledger-web/hledger-web.cabal
+++ b/hledger-web/hledger-web.cabal
@@ -92,10 +92,6 @@ extra-source-files:
       static/js/typeahead.bundle.min.js
       templates/default-layout-wrapper.hamlet
       templates/default-layout.hamlet
-      templates/homepage.hamlet
-      templates/homepage.julius
-      templates/homepage.lucius
-      templates/normalize.lucius
 
 source-repository head
     type: git
diff --git a/hledger-web/package.yaml b/hledger-web/package.yaml
index 8ca9172dc..75aee67e1 100644
--- a/hledger-web/package.yaml
+++ b/hledger-web/package.yaml
@@ -98,10 +98,6 @@ extra-source-files:
   - static/js/typeahead.bundle.min.js
   - templates/default-layout-wrapper.hamlet
   - templates/default-layout.hamlet
-  - templates/homepage.hamlet
-  - templates/homepage.julius
-  - templates/homepage.lucius
-  - templates/normalize.lucius
 
 # XXX not supported
 # flag threaded
diff --git a/hledger-web/templates/homepage.hamlet b/hledger-web/templates/homepage.hamlet
deleted file mode 100644
index e4f458032..000000000
--- a/hledger-web/templates/homepage.hamlet
+++ /dev/null
@@ -1,38 +0,0 @@
-<h1>_{MsgHello}
-
-<ol>
-  <li>Now that you have a working project you should use the #
-    \<a href="http://www.yesodweb.com/book/">Yesod book</a> to learn more. #
-    You can also use this scaffolded site to explore some basic concepts.
-
-  <li> This page was generated by the #{handlerName} handler in #
-    \<em>Handler/Home.hs</em>.
-
-  <li> The #{handlerName} handler is set to generate your site's home screen in Routes file #
-    <em>config/routes
-
-  <li> The HTML you are seeing now is actually composed by a number of <em>widgets</em>, #
-    most of them are brought together by the <em>defaultLayout</em> function which #
-    is defined in the <em>Foundation.hs</em> module, and used by <em>#{handlerName}</em>. #
-    All the files for templates and wigdets are in <em>templates</em>.
-
-  <li>
-    A Widget's Html, Css and Javascript are separated in three files with the #
-    \<em>.hamlet</em>, <em>.lucius</em> and <em>.julius</em> extensions. 
-
-  <li ##{aDomId}>If you had javascript enabled then you wouldn't be seeing this.
-    
-  <li #form>
-    This is an example trivial Form. Read the #
-    \<a href="http://www.yesodweb.com/book/forms">Forms chapter</a> #
-    on the yesod book to learn more about them.
-    $maybe (info,con) <- submission
-      <div .message>
-        Your file's type was <em>#{fileContentType info}</em>. You say it has: <em>#{con}</em>
-    <form method=post action=@{HomeR}#form enctype=#{formEnctype}>
-      ^{formWidget}
-      <input type="submit" value="Send it!">
-
-  <li> And last but not least, Testing. In <em>tests/main.hs</em> you will find a #
-    test suite that performs tests on this page. #
-    You can run your tests by doing: <pre>yesod test</pre>
diff --git a/hledger-web/templates/homepage.julius b/hledger-web/templates/homepage.julius
deleted file mode 100644
index efae7990d..000000000
--- a/hledger-web/templates/homepage.julius
+++ /dev/null
@@ -1 +0,0 @@
-document.getElementById("#{aDomId}").innerHTML = "This text was added by the Javascript part of the homepage widget.";
diff --git a/hledger-web/templates/homepage.lucius b/hledger-web/templates/homepage.lucius
deleted file mode 100644
index 54986f816..000000000
--- a/hledger-web/templates/homepage.lucius
+++ /dev/null
@@ -1,6 +0,0 @@
-h1 {
-    text-align: center
-}
-h2##{aDomId} {
-    color: #990
-}
diff --git a/hledger-web/templates/normalize.lucius b/hledger-web/templates/normalize.lucius
deleted file mode 100644
index 9fc7ae4df..000000000
--- a/hledger-web/templates/normalize.lucius
+++ /dev/null
@@ -1,439 +0,0 @@
-/*! normalize.css 2011-08-12T17:28 UTC · http://github.com/necolas/normalize.css */
-
-/* =============================================================================
-   HTML5 display definitions
-   ========================================================================== */
-
-/*
- * Corrects block display not defined in IE6/7/8/9 & FF3
- */
-
-article,
-aside,
-details,
-figcaption,
-figure,
-footer,
-header,
-hgroup,
-nav,
-section {
-    display: block;
-}
-
-/*
- * Corrects inline-block display not defined in IE6/7/8/9 & FF3
- */
-
-audio,
-canvas,
-video {
-    display: inline-block;
-    *display: inline;
-    *zoom: 1;
-}
-
-/*
- * Prevents modern browsers from displaying 'audio' without controls
- */
-
-audio:not([controls]) {
-    display: none;
-}
-
-/*
- * Addresses styling for 'hidden' attribute not present in IE7/8/9, FF3, S4
- * Known issue: no IE6 support
- */
-
-[hidden] {
-    display: none;
-}
-
-
-/* =============================================================================
-   Base
-   ========================================================================== */
-
-/*
- * 1. Corrects text resizing oddly in IE6/7 when body font-size is set using em units
- *    http://clagnut.com/blog/348/#c790
- * 2. Keeps page centred in all browsers regardless of content height
- * 3. Prevents iOS text size adjust after orientation change, without disabling user zoom
- *    www.456bereastreet.com/archive/201012/controlling_text_size_in_safari_for_ios_without_disabling_user_zoom/
- */
-
-html {
-    font-size: 100%; /* 1 */
-    overflow-y: scroll; /* 2 */
-    -webkit-text-size-adjust: 100%; /* 3 */
-    -ms-text-size-adjust: 100%; /* 3 */
-}
-
-/*
- * Addresses margins handled incorrectly in IE6/7
- */
-
-body {
-    margin: 0;
-}
-
-/* 
- * Addresses font-family inconsistency between 'textarea' and other form elements.
- */
-
-body,
-button,
-input,
-select,
-textarea {
-    font-family: sans-serif;
-}
-
-
-/* =============================================================================
-   Links
-   ========================================================================== */
-
-a {
-    color: #00e;
-}
-
-a:visited {
-    color: #551a8b;
-}
-
-/*
- * Addresses outline displayed oddly in Chrome
- */
-
-a:focus {
-    outline: thin dotted;
-}
-
-/*
- * Improves readability when focused and also mouse hovered in all browsers
- * people.opera.com/patrickl/experiments/keyboard/test
- */
-
-a:hover,
-a:active {
-    outline: 0;
-}
-
-
-/* =============================================================================
-   Typography
-   ========================================================================== */
-
-/*
- * Addresses styling not present in IE7/8/9, S5, Chrome
- */
-
-abbr[title] {
-    border-bottom: 1px dotted;
-}
-
-/*
- * Addresses style set to 'bolder' in FF3/4, S4/5, Chrome
-*/
-
-b, 
-strong { 
-    font-weight: bold; 
-}
-
-blockquote {
-    margin: 1em 40px;
-}
-
-/*
- * Addresses styling not present in S5, Chrome
- */
-
-dfn {
-    font-style: italic;
-}
-
-/*
- * Addresses styling not present in IE6/7/8/9
- */
-
-mark {
-    background: #ff0;
-    color: #000;
-}
-
-/*
- * Corrects font family set oddly in IE6, S4/5, Chrome
- * en.wikipedia.org/wiki/User:Davidgothberg/Test59
- */
-
-pre,
-code,
-kbd,
-samp {
-    font-family: monospace, serif;
-    _font-family: 'courier new', monospace;
-    font-size: 1em;
-}
-
-/*
- * Improves readability of pre-formatted text in all browsers
- */
-
-pre {
-    white-space: pre;
-    white-space: pre-wrap;
-    word-wrap: break-word;
-}
-
-/*
- * 1. Addresses CSS quotes not supported in IE6/7
- * 2. Addresses quote property not supported in S4
- */
-
-/* 1 */
-
-q {
-    quotes: none;
-}
-
-/* 2 */
-
-q:before,
-q:after {
-    content: '';
-    content: none;
-}
-
-small {
-    font-size: 75%;
-}
-
-/*
- * Prevents sub and sup affecting line-height in all browsers
- * gist.github.com/413930
- */
-
-sub,
-sup {
-    font-size: 75%;
-    line-height: 0;
-    position: relative;
-    vertical-align: baseline;
-}
-
-sup {
-    top: -0.5em;
-}
-
-sub {
-    bottom: -0.25em;
-}
-
-
-/* =============================================================================
-   Lists
-   ========================================================================== */
-
-ul,
-ol {
-    margin: 1em 0;
-    padding: 0 0 0 40px;
-}
-
-dd {
-    margin: 0 0 0 40px;
-}
-
-nav ul,
-nav ol {
-    list-style: none;
-    list-style-image: none;
-}
-
-
-/* =============================================================================
-   Embedded content
-   ========================================================================== */
-
-/*
- * 1. Removes border when inside 'a' element in IE6/7/8/9
- * 2. Improves image quality when scaled in IE7
- *    code.flickr.com/blog/2008/11/12/on-ui-quality-the-little-things-client-side-image-resizing/
- */
-
-img {
-    border: 0; /* 1 */
-    -ms-interpolation-mode: bicubic; /* 2 */
-}
-
-/*
- * Corrects overflow displayed oddly in IE9 
- */
-
-svg:not(:root) {
-    overflow: hidden;
-}
-
-
-/* =============================================================================
-   Figures
-   ========================================================================== */
-
-/*
- * Addresses margin not present in IE6/7/8/9, S5, O11
- */
-
-figure {
-    margin: 0;
-}
-
-
-/* =============================================================================
-   Forms
-   ========================================================================== */
-
-/*
- * Corrects margin displayed oddly in IE6/7
- */
-
-form {
-    margin: 0;
-}
-
-/*
- * Define consistent margin and padding
- */
-
-fieldset {
-    margin: 0 2px;
-    padding: 0.35em 0.625em 0.75em;
-}
-
-/*
- * 1. Corrects color not being inherited in IE6/7/8/9
- * 2. Corrects alignment displayed oddly in IE6/7
- */
-
-legend {
-    border: 0; /* 1 */
-    *margin-left: -7px; /* 2 */
-}
-
-/*
- * 1. Corrects font size not being inherited in all browsers
- * 2. Addresses margins set differently in IE6/7, F3/4, S5, Chrome
- * 3. Improves appearance and consistency in all browsers
- */
-
-button,
-input,
-select,
-textarea {
-    font-size: 100%; /* 1 */
-    margin: 0; /* 2 */
-    vertical-align: baseline; /* 3 */
-    *vertical-align: middle; /* 3 */
-}
-
-/*
- * 1. Addresses FF3/4 setting line-height using !important in the UA stylesheet
- * 2. Corrects inner spacing displayed oddly in IE6/7
- */
-
-button,
-input {
-    line-height: normal; /* 1 */
-    *overflow: visible;  /* 2 */
-}
-
-/*
- * Corrects overlap and whitespace issue for buttons and inputs in IE6/7
- * Known issue: reintroduces inner spacing
- */
-
-table button,
-table input {
-    *overflow: auto;
-}
-
-/*
- * 1. Improves usability and consistency of cursor style between image-type 'input' and others
- * 2. Corrects inability to style clickable 'input' types in iOS
- */
-
-button,
-html input[type="button"], 
-input[type="reset"], 
-input[type="submit"] {
-    cursor: pointer; /* 1 */
-    -webkit-appearance: button; /* 2 */
-}
-
-/*
- * 1. Addresses box sizing set to content-box in IE8/9
- * 2. Addresses excess padding in IE8/9
- */
-
-input[type="checkbox"],
-input[type="radio"] {
-    box-sizing: border-box; /* 1 */
-    padding: 0; /* 2 */
-}
-
-/*
- * 1. Addresses appearance set to searchfield in S5, Chrome
- * 2. Addresses box sizing set to border-box in S5, Chrome (include -moz to future-proof)
- */
-
-input[type="search"] {
-    -webkit-appearance: textfield; /* 1 */
-    -moz-box-sizing: content-box;
-    -webkit-box-sizing: content-box; /* 2 */
-    box-sizing: content-box;
-}
-
-/*
- * Corrects inner padding displayed oddly in S5, Chrome on OSX
- */
-
-input[type="search"]::-webkit-search-decoration {
-    -webkit-appearance: none;
-}
-
-/*
- * Corrects inner padding and border displayed oddly in FF3/4
- * www.sitepen.com/blog/2008/05/14/the-devils-in-the-details-fixing-dojos-toolbar-buttons/
- */
-
-button::-moz-focus-inner,
-input::-moz-focus-inner {
-    border: 0;
-    padding: 0;
-}
-
-/*
- * 1. Removes default vertical scrollbar in IE6/7/8/9
- * 2. Improves readability and alignment in all browsers
- */
-
-textarea {
-    overflow: auto; /* 1 */
-    vertical-align: top; /* 2 */
-}
-
-
-/* =============================================================================
-   Tables
-   ========================================================================== */
-
-/* 
- * Remove most spacing between table cells
- */
-
-table {
-    border-collapse: collapse;
-    border-spacing: 0;
-}

From 9f49da371314952a92ee3d6fa8359b38551108e3 Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Fri, 18 Dec 2015 23:12:39 +0100
Subject: [PATCH 11/11] web: remove more deprecated html attributes (align) and
 fix a tag with duplicate style attribute

---
 hledger-web/Handler/Common.hs   | 8 ++++----
 hledger-web/Handler/JournalR.hs | 2 +-
 hledger-web/static/hledger.css  | 3 +++
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/hledger-web/Handler/Common.hs b/hledger-web/Handler/Common.hs
index 0c1f5d6fb..b73f50b5b 100644
--- a/hledger-web/Handler/Common.hs
+++ b/hledger-web/Handler/Common.hs
@@ -138,7 +138,7 @@ searchform VD{..} = [hamlet|
 --   <tr#addbuttonrow>
 --    <td>
 --     <span.help>^{formathelp}
---    <td align=right>
+--    <td>
 --     <span.help>
 --      Are you sure ? This will overwrite the journal. #
 --     <input type=hidden name=action value=edit>
@@ -193,7 +193,7 @@ balanceReportAsHtml _ vd@VD{..} (items',total) =
    <td colspan=2>
   <tr>
    <td>
-   <td.balance align=right>#{mixedAmountAsHtml total}
+   <td.balance>#{mixedAmountAsHtml total}
 |]
  where
    l = ledgerFromJournal Any j
@@ -210,11 +210,11 @@ balanceReportAsHtml _ vd@VD{..} (items',total) =
      &nbsp;
      <a href="@?{acctonlyquery}" title="Show transactions affecting this account but not subaccounts">only
 
- <td.balance align=right>#{mixedAmountAsHtml abal}
+ <td.balance>#{mixedAmountAsHtml abal}
 |]
      where
        hassubs = not $ maybe False (null.asubs) $ ledgerAccount l acct
- -- <td.numpostings align=right title="#{numpostings} transactions in this account">(#{numpostings})
+ -- <td.numpostings title="#{numpostings} transactions in this account">(#{numpostings})
        -- numpostings = maybe 0 (length.apostings) $ ledgerAccount l acct
        depthclass = "depth"++show aindent
        inacctclass = case inacctmatcher of
diff --git a/hledger-web/Handler/JournalR.hs b/hledger-web/Handler/JournalR.hs
index 2645997ee..6640423dc 100644
--- a/hledger-web/Handler/JournalR.hs
+++ b/hledger-web/Handler/JournalR.hs
@@ -35,7 +35,7 @@ getJournalR = do
   hledgerLayout vd "journal" [hamlet|
        <h2#contenttitle>#{title}
        <!-- p>Journal entries record movements of commodities between accounts. -->
-       <a#addformlink role="button" style="cursor:pointer;" onClick="addformReset(true);" data-toggle="modal" data-target="#addmodal"  title="Add a new transaction to the journal" style="margin-top:1em;">Add a transaction
+       <a#addformlink role="button" style="cursor:pointer; margin-top:1em;" onClick="addformReset(true);" data-toggle="modal" data-target="#addmodal"  itle="Add a new transaction to the journal" >Add a transaction
        ^{maincontent}
      |]
 
diff --git a/hledger-web/static/hledger.css b/hledger-web/static/hledger.css
index 6c0af21ce..7b95994aa 100644
--- a/hledger-web/static/hledger.css
+++ b/hledger-web/static/hledger.css
@@ -128,6 +128,9 @@ tr td:first-child { padding-left:0.3em; }
 .amount, .balance { width:2em; }  /* minimise width */
 .positive                   { }
 
+td.balance, td.numpostings {
+  text-align: right;
+}
 /* table.transactionsreport         { border-spacing: 0; } */
 /* .transactionsreport td           {  } */
 /* .transactionsreport pre          { margin-top:0; } */