From 5545ed363277097b8bc9d254568ef738fd02db1c Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 11 Dec 2014 12:13:31 -0800
Subject: [PATCH] web: "sidebar" query parameter shows/hides sidebar

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

diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs
index b6e4f81d6..1cc5da387 100644
--- a/hledger-web/Foundation.hs
+++ b/hledger-web/Foundation.hs
@@ -240,8 +240,13 @@ getViewData = do
   q          <- getParameterOrNull "q"
   a          <- getParameterOrNull "a"
   p          <- getParameterOrNull "p"
+
+  -- a "sidebar" query parameter overrides the "showsidebar" cookie
+  sidebarparam <- lookupGetParam (pack "sidebar")
   cookies <- reqCookies <$> getRequest
-  let showsidebar = maybe False (=="1") $ lookup "showsidebar" cookies
+  let sidebarcookie = lookup "showsidebar" cookies
+  let showsidebar = maybe (sidebarcookie == Just "1") (=="1") sidebarparam
+
   return (viewdataWithDateAndParams today q a p){
                opts=opts
               ,msg=msg