(defcomp
  (&key tab label active)
  (button
    :sx-get (str "/sx/(geography.(hypermedia.(example.(api.(tabs." tab ")))))")
    :sx-target "#tab-content"
    :sx-swap "innerHTML"
    :sx-push-url (str "/sx/(geography.(hypermedia.(example.tabs)))?tab=" tab)
    :class (str
      "px-4 py-2 text-sm font-medium border-b-2 -mb-px transition-colors "
      (if
        (= active "true")
        "border-violet-600 text-violet-600"
        "border-transparent text-stone-500 hover:text-stone-700"))
    label))
