Tag.hs

module Panda.View.Atom.Tag where
  
import Panda.Helper.Env hiding (name)
import Panda.Model.Tag
import qualified Panda.Config.Global as G
import Prelude hiding ((/))

instance DataRenderer Tag where
  render_data = name >>> tag_link

tag_link s = toHtml $ hotlink (G.root / "tag" / s ) << s