Make pie slices clickable

Author: raboof

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

@@ -117,8 +117,8 @@ registerChartHtml title percommoditytxnreports = $(hamletFile "templates/chart.h
    shownull c = if null c then " " else c
 
 -- | Generate javascript/html for a mockup pie chart
-registerPieChartHtml :: BalanceReport -> HtmlUrl AppRoute
-registerPieChartHtml (items, _) = $(hamletFile "templates/piechart.hamlet")
+registerPieChartHtml :: Text -> BalanceReport -> HtmlUrl AppRoute
+registerPieChartHtml q (items, _) = $(hamletFile "templates/piechart.hamlet")
   where
     charttitle = "Pie Chart" :: String
     labelDataTuples =
@@ -127,6 +127,7 @@ registerPieChartHtml (items, _) = $(hamletFile "templates/piechart.hamlet")
       flip concatMap items $ \(accname, _, _, Mixed as) ->
         flip map as $ \a -> (accname, aquantity a)
     showChart = if ((length labelDataTuples) > 1) then "true" else "false" :: String
+    noacctlink = (RegisterR, [("q", T.unwords $ removeInacct q)])
 
 dayToJsTimestamp :: Day -> Integer
 dayToJsTimestamp d =

hledger-web/templates/piechart.hamlet

@@ -22,7 +22,8 @@
          }
        },
        grid: {
-         hoverable: true
+         hoverable: true,
+         clickable: true
        },
        legend: {
          show: true,
@@ -37,5 +38,16 @@
        var percent = parseFloat(obj.series.percent).toFixed(2);
        \$("#piehover").html("<span style='font-weight:bold; color:" + obj.series.color + "'>" + obj.series.label + " (" + percent + "%)</span>");
      });
+     \$chartdiv.bind("plotclick", function(event, pos, obj) {
+       if (!obj) {
+         return;
+       }
+       var baselink = "@?{noacctlink}";
+       if (baselink.endsWith("?q")) {
+         document.location = baselink + "=inacct:" + obj.series.label;
+       } else {
+         document.location = baselink + "%20inacct:" + obj.series.label;
+       }
+     });
    }
  });

hledger-web/templates/register.hamlet

@@ -3,7 +3,7 @@
 
 <div .hidden-xs>
   ^{registerChartHtml balancelabel $ transactionsReportByCommodity items}
-  ^{registerPieChartHtml balancereport }
+  ^{registerPieChartHtml q balancereport }
 
 <div.table-responsive>
   <table .table.table-striped.table-condensed>