panda-2008.9.29: Panda/View/Control/Tag.hs

module Panda.View.Control.Tag where
  
import Panda.Helper.Env
import Prelude hiding ((.), (/), (^), id, span)
import qualified Panda.Type.State as State

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

view state = for_current_page p >>> map render_data >>> (+++ nav p ("/" ++ tag_id)) >>> page state
  where p = state.State.pager
        tag_id = state.State.uid