diff --git a/hledger-web/Handler/Common.hs b/hledger-web/Handler/Common.hs index 72eedfff0..f9bb99c8b 100644 --- a/hledger-web/Handler/Common.hs +++ b/hledger-web/Handler/Common.hs @@ -36,10 +36,13 @@ hledgerLayout vd title content = do toWidget [hamlet| ^{topbar vd} ^{sidebar vd} -
+
^{searchform vd} ^{content} |] + where + showmd = if showsidebar vd then "col-md-8" else "col-md-12" :: String + showsm = if showsidebar vd then "col-sm-8" else "col-sm-12" :: String -- | Global toolbar/heading area. topbar :: ViewData -> HtmlUrl AppRoute @@ -59,7 +62,7 @@ topbar VD{..} = [hamlet| sidebar :: ViewData -> HtmlUrl AppRoute sidebar vd@VD{..} = [hamlet| -
+