bamboo-2009.6.6: src/Bamboo/View/Control/Tag.hs

{-# LANGUAGE NoImplicitPrelude #-}

module Bamboo.View.Control.Tag where
  
import Bamboo.View.Env hiding (p, tag_id)
import Bamboo.Type.State
import qualified Bamboo.Type.State as State
import qualified Bamboo.Type as C
import Bamboo.Type (root, summary_for_tag)

-- view
import Bamboo.View.Atom.Post
import Bamboo.View.Control.Helper
import Bamboo.View.Widget.Template

view :: Widget
view s = s.posts.(map render > (+++ nav p ( s.config.root / tag_id)) > page s) 
  where
    p = s.pager
    tag_id = s.uid
    render = render_summary s (s.config.summary_for_tag)