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

web: show the sidebar by default (#310)

Browse Source
This commit is contained in:
Simon Michael 2016-01-25 09:08:19 -08:00
parent 6fb76d979f
commit ec87da8b04
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hledger-web/Foundation.hs
View File

@ -229,7 +229,7 @@ viewdataWithDateAndParams d q a p =
,am = acctsmatcher
,aopts = acctsopts
,showpostings = p == "1"
,showsidebar = False
,showsidebar = True
}
-- | Gather data used by handlers and templates in the current request.
@ -246,11 +246,11 @@ getViewData = do
a <- getParameterOrNull "a"
p <- getParameterOrNull "p"
-- a "sidebar" query parameter overrides the "showsidebar" cookie
sidebarparam <- lookupGetParam (pack "sidebar")
cookies <- reqCookies <$> getRequest
let sidebarcookie = lookup "showsidebar" cookies
let showsidebar = maybe (sidebarcookie == Just "1") (=="1") sidebarparam
-- sidebar visibility: show it, unless there is a showsidebar cookie
-- set to "0", or a ?sidebar=0 query parameter.
msidebarparam <- lookupGetParam "sidebar"
msidebarcookie <- reqCookies <$> getRequest >>= return . lookup "showsidebar"
let showsidebar = maybe (msidebarcookie /= Just "0") (/="0") msidebarparam
return (viewdataWithDateAndParams today q a p){
opts=opts