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

{-# LANGUAGE NoImplicitPrelude #-}

module Bamboo.View.Control.Tag where
  
import Bamboo.Helper.Env
import qualified Bamboo.Type.State as State
import qualified Bamboo.Config.Global as G

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


view state = for_current_page p > map render > p_eval' > (+++ nav p ( G.root / tag_id)) >>> page state where
  p = state.State.pager
  tag_id = state.State.uid
  render = render_summary G.summary_for_tag