simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-27 12:24:43 +03:00
Code Issues 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
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