Proc.new do |text|
  text.scan(/(<code\:([a-z].+?)>(.+?)<\/code>)/m).each do |match|
    text.gsub!(match[0],CodeRay.scan(match[2], match[1].to_sym).div(:css => :class))
  end
  text
end