{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.Theme.Blueprint.Atom.Tag where
  
import Bamboo.Theme.Blueprint.Env hiding (name)

tag_link :: State -> String -> Html
tag_link s x = toHtml $ hotlink (s.env.slashed_script_name / s.config.tag_id / x ) << x