From e70c7123b78f528f05e0e255e6173aae53bb672f Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 17 Aug 2019 17:00:08 +0100
Subject: [PATCH] web: ?sidebar= hides the sidebar, like ?sidebar=0

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

diff --git a/hledger-web/Hledger/Web/Foundation.hs b/hledger-web/Hledger/Web/Foundation.hs
index 5139de7e0..82a0be9ec 100644
--- a/hledger-web/Hledger/Web/Foundation.hs
+++ b/hledger-web/Hledger/Web/Foundation.hs
@@ -228,7 +228,12 @@ shouldShowSidebar :: Handler Bool
 shouldShowSidebar = do
   msidebarparam <- lookupGetParam "sidebar"
   msidebarcookie <- lookup "showsidebar" . reqCookies <$> getRequest
-  return $ maybe (msidebarcookie /= Just "0") (/="0") msidebarparam
+  return $
+    let disablevalues = ["","0"]
+    in maybe
+         (not $ msidebarcookie `elem` map Just disablevalues)
+         (not . (`elem` disablevalues))
+         msidebarparam
 
 -- | Update our copy of the journal if the file changed. If there is an
 -- error while reloading, keep the old one and return the error, and set a