(defisland
  ()
  (let
    ((store (use-store "demo-theme")))
    (div
      (~tw :tokens "rounded border border-stone-200 bg-stone-50 p-4 my-2")
      (p
        (~tw :tokens "text-xs font-semibold text-stone-500 mb-2")
        "Island B — Store Reader")
      (div
        :class (str
          "p-3 rounded font-medium text-sm "
          (if
            (deref (get store "dark"))
            (str
              "bg-"
              (deref (get store "color"))
              "-900 text-"
              (deref (get store "color"))
              "-100")
            (str
              "bg-"
              (deref (get store "color"))
              "-100 text-"
              (deref (get store "color"))
              "-800")))
        "Styled by signals from Island A"))))
