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

web: ?sidebar= hides the sidebar, like ?sidebar=0

Browse Source
This commit is contained in:
Simon Michael 2019-08-17 17:00:08 +01:00
parent ef1bd24edc
commit e70c7123b7
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/Hledger/Web/Foundation.hs
View File

@ -228,7 +228,12 @@ shouldShowSidebar :: Handler Bool
shouldShowSidebar = do shouldShowSidebar = do
msidebarparam <- lookupGetParam "sidebar" msidebarparam <- lookupGetParam "sidebar"
msidebarcookie <- lookup "showsidebar" . reqCookies <$> getRequest 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 -- | 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 -- error while reloading, keep the old one and return the error, and set a