bamboo-2009.4.22: src/Bamboo/View/Widget/Header.hs

module Bamboo.View.Widget.Header where
  
import Bamboo.Helper.Env hiding (header)
import Prelude hiding ((.), (/), (^), id, span)
import qualified Bamboo.Config.Global as G
import Bamboo.View.Widget.SearchBar

header c =
  div_class_id c "header" << 
    [ search_bar
    , site_name
    ]

site_name = toHtml $
  [ toHtml $ hotlink G.root ! [theclass "logo"] << ""
  , h1 << G.blog_title
  , div_class "description" << G.blog_subtitle
  ]