-- | Common page components and rendering helpers. module Handler.Common where import Import import Data.List import Data.Maybe import Data.Text(pack) import Data.Time.Calendar import System.FilePath (takeFileName) #if BLAZE_HTML_0_5 import Text.Blaze.Internal (preEscapedString) #else import Text.Blaze (preEscapedString) #endif import Text.Printf import Hledger.Utils import Hledger.Data import Hledger.Query import Hledger.Reports import Hledger.Cli.Options import Hledger.Web.Options import Handler.Utils ------------------------------------------------------------------------------- -- Page components -- | Global toolbar/heading area. topbar :: ViewData -> HtmlUrl AppRoute topbar VD{..} = [hamlet|