Tag.hs

module Panda.View.Theme.BluePrint.Tag where
  
import Panda.Helper.Env
import Prelude hiding ((.), (/), id, span)
import Panda.Config.Global as Config
import qualified Panda.Type.State as State
import Text.XHtml.Strict

-- model
import Panda.Model.Tag as Tag

-- view
import Panda.View.Theme.BluePrint.Post hiding (view)
import Panda.View.Theme.BluePrint.Helper
import Panda.View.Theme.BluePrint.Template.Template

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