(defisland
  ()
  (let
    ((store (def-store "demo-theme" (fn () (dict "color" (signal "violet") "dark" (signal false))))))
    (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 A — Store Writer")
      (div
        (~tw :tokens "flex items-center gap-3")
        (select
          :bind (get store "color")
          (~tw :tokens "px-2 py-1 rounded border border-stone-300 text-sm")
          (option :value "violet" "Violet")
          (option :value "blue" "Blue")
          (option :value "green" "Green")
          (option :value "red" "Red"))
        (label
          (~tw :tokens "flex items-center gap-1 text-sm text-stone-600")
          (input
            :type "checkbox"
            :bind (get store "dark")
            (~tw :tokens "rounded border-stone-300"))
          "Dark mode")))))
