slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: "sidebar" query parameter shows/hides sidebar

Browse Source
This commit is contained in:
Simon Michael 2014-12-11 12:13:31 -08:00
parent 632648ee38
commit 5545ed3632
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger-web/Foundation.hs
View File

@ -240,8 +240,13 @@ getViewData = do
q <- getParameterOrNull "q" q <- getParameterOrNull "q"
a <- getParameterOrNull "a" a <- getParameterOrNull "a"
p <- getParameterOrNull "p" p <- getParameterOrNull "p"
-- a "sidebar" query parameter overrides the "showsidebar" cookie
sidebarparam <- lookupGetParam (pack "sidebar")
cookies <- reqCookies <$> getRequest 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){ return (viewdataWithDateAndParams today q a p){
opts=opts opts=opts
,msg=msg ,msg=msg