web: "sidebar" query parameter shows/hides sidebar

2014-12-11 12:13:31 -08:00 · 2014-12-11 12:13:31 -08:00 · 5545ed3632
commit 5545ed3632
parent 632648ee38
1 changed files with 6 additions and 1 deletions
--- 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