Header.hs

module Panda.View.Theme.BluePrint.Template.Header where

import Panda.Helper.Env
import Prelude hiding ((.), (/), id, span)
import qualified Panda.Config.Global as Config
import qualified Panda.Type.State as State
import Text.XHtml.Strict


html_head  = header << [meta_tag, title_tag, screen_css, wp_css, custom_css, rss_tag] -- , ie_css, custom_css]

title_tag  = thetitle << Config.blog_title
screen_css = css_link "/theme/blueprint/wp/css/screen.css"
wp_css     = css_link "/theme/blueprint/wp/css/blueprint-wp.css"
-- ie_css  = ie $ css_link "theme/blueprint/core/ie.css"
custom_css = css_link "/theme/blueprint/wp/css/custom.css"

rss_tag = rss_link "rss.xml"