(defcomp
  (&key effect)
  (span
    :class (str
      "text-xs px-1.5 py-0.5 rounded "
      (case
        effect
        "mutation"
        "bg-amber-100 text-amber-700"
        "io"
        "bg-orange-100 text-orange-700"
        "render"
        "bg-sky-100 text-sky-700"
        :else "bg-stone-100 text-stone-500"))
    effect))
