From 6cee99e1eaadf08ce20e13fb8e7826792deb6ee1 Mon Sep 17 00:00:00 2001
From: Davide Di Pumpo <davidemak@gmail.com>
Date: Mon, 20 Oct 2025 12:03:57 +0200
Subject: [PATCH 1/5] refactor: Makes CommandButton accessible

---
 .../src/components/CommandButton.vue          | 35 ++++++++++++-------
 1 file changed, 22 insertions(+), 13 deletions(-)

diff --git a/packages/vue-components/src/components/CommandButton.vue b/packages/vue-components/src/components/CommandButton.vue
index d4166a1961..200291d963 100644
--- a/packages/vue-components/src/components/CommandButton.vue
+++ b/packages/vue-components/src/components/CommandButton.vue
@@ -4,6 +4,7 @@
   generic="I = never"
 >
 import type { CommandBase } from "@effect-app/vue"
+import { computed } from "vue"
 import type { VBtn } from "vuetify/components"
 
 export type VBtnProps = VBtn["$props"]
@@ -28,6 +29,20 @@ const props = defineProps<
   }
   & ButtonProps
 >()
+
+const isDisabled = computed(() => props.command.blocked || props.disabled)
+
+const handleClick = () => {
+  // Block execution if button is disabled
+  if (isDisabled.value) {
+    return
+  }
+
+  const input = ("input" in props && props.input
+    ? props.input
+    : undefined) as unknown as I
+  ;(props.command.handle as any)(input)
+}
 </script>
 <script lang="ts">
 /** Command Button is an easy way to connect commands and have it execute on click, while keeping track of disabled/loading states automatically */
@@ -40,17 +55,14 @@ export default {
     v-if="command.allowed && !empty"
     v-bind="$attrs"
     :loading="command.waiting"
-    :disabled="command.blocked || disabled"
+    :aria-disabled="isDisabled"
     :title="title ?? command.action"
-    @click="(command.handle as any)(
-      (`input` in props && props.input
-        ? props.input
-        : undefined) as unknown as I
-    )"
+    :class="{ 'v-btn--disabled': isDisabled }"
+    @click="handleClick"
   >
     <slot
       :loading="command.waiting"
-      :disabled="command.blocked || disabled"
+      :disabled="isDisabled"
       :label="command.label"
       :title="title ?? command.action"
     >
@@ -61,12 +73,9 @@ export default {
     v-else-if="command.allowed"
     v-bind="$attrs"
     :loading="command.waiting"
-    :disabled="command.blocked || disabled"
+    :aria-disabled="isDisabled"
     :title="title ?? command.action"
-    @click="(command.handle as any)(
-      (`input` in props && props.input
-        ? props.input
-        : undefined) as unknown as I
-    )"
+    :class="{ 'v-btn--disabled': isDisabled }"
+    @click="handleClick"
   />
 </template>

From de196a991e99b5e8248e47721aa724e1c9ca1b38 Mon Sep 17 00:00:00 2001
From: Davide Di Pumpo <davidemak@gmail.com>
Date: Mon, 20 Oct 2025 12:38:05 +0200
Subject: [PATCH 2/5] linting

---
 packages/infra/src/Store/Cosmos.ts  | 2 +-
 packages/infra/src/Store/service.ts | 2 +-
 packages/vue/src/query.ts           | 1 -
 3 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/packages/infra/src/Store/Cosmos.ts b/packages/infra/src/Store/Cosmos.ts
index 08171db0d8..45c6ac9df3 100644
--- a/packages/infra/src/Store/Cosmos.ts
+++ b/packages/infra/src/Store/Cosmos.ts
@@ -258,7 +258,7 @@ function makeCosmosStore({ prefix }: StorageConfig) {
                       attributes: { "repository.container_id": containerId, "repository.model_name": name }
                     })
                 ),
-            batchRemove: (ids, partitionKey?: string | undefined) =>
+            batchRemove: (ids, partitionKey?: string) =>
               Effect.promise(() =>
                 execBatch(
                   mutable(ids.map((id) =>
diff --git a/packages/infra/src/Store/service.ts b/packages/infra/src/Store/service.ts
index 3679b067cd..e162675396 100644
--- a/packages/infra/src/Store/service.ts
+++ b/packages/infra/src/Store/service.ts
@@ -85,7 +85,7 @@ export interface Store<
   bulkSet: (
     items: NonEmptyReadonlyArray<PM>
   ) => Effect.Effect<NonEmptyReadonlyArray<PM>, OptimisticConcurrencyException>
-  batchRemove: (ids: NonEmptyReadonlyArray<Encoded[IdKey]>, partitionKey?: string | undefined) => Effect.Effect<void>
+  batchRemove: (ids: NonEmptyReadonlyArray<Encoded[IdKey]>, partitionKey?: string) => Effect.Effect<void>
   queryRaw: <Out>(query: RawQuery<Encoded, Out>) => Effect.Effect<readonly Out[]>
 }
 
diff --git a/packages/vue/src/query.ts b/packages/vue/src/query.ts
index 14bbfc397c..7c99810398 100644
--- a/packages/vue/src/query.ts
+++ b/packages/vue/src/query.ts
@@ -59,7 +59,6 @@ export interface CustomDefinedInitialQueryOptions<
     | undefined
     | NonFunctionGuard<TQueryData>
     | PlaceholderDataFunction<NonFunctionGuard<TQueryData>, TError, NonFunctionGuard<TQueryData>, TQueryKey>
-    | undefined
 }
 
 export interface CustomDefinedPlaceholderQueryOptions<

From fd12951a0240053428b478798932296ce2d379b5 Mon Sep 17 00:00:00 2001
From: Davide Di Pumpo <davidemak@gmail.com>
Date: Mon, 20 Oct 2025 12:40:17 +0200
Subject: [PATCH 3/5] chore/bump

---
 .changeset/ninety-llamas-search.md | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 .changeset/ninety-llamas-search.md

diff --git a/.changeset/ninety-llamas-search.md b/.changeset/ninety-llamas-search.md
new file mode 100644
index 0000000000..85a3bdfec3
--- /dev/null
+++ b/.changeset/ninety-llamas-search.md
@@ -0,0 +1,5 @@
+---
+"@effect-app/vue-components": major
+---
+
+Adds A11y support to CommandButton

From 2d220d50a852db70074c69d3a692be143e580ea7 Mon Sep 17 00:00:00 2001
From: Davide Di Pumpo <davidemak@gmail.com>
Date: Mon, 20 Oct 2025 12:46:56 +0200
Subject: [PATCH 4/5] lint

---
 packages/infra/src/Store/Cosmos.ts  | 2 +-
 packages/infra/src/Store/service.ts | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/infra/src/Store/Cosmos.ts b/packages/infra/src/Store/Cosmos.ts
index 45c6ac9df3..08171db0d8 100644
--- a/packages/infra/src/Store/Cosmos.ts
+++ b/packages/infra/src/Store/Cosmos.ts
@@ -258,7 +258,7 @@ function makeCosmosStore({ prefix }: StorageConfig) {
                       attributes: { "repository.container_id": containerId, "repository.model_name": name }
                     })
                 ),
-            batchRemove: (ids, partitionKey?: string) =>
+            batchRemove: (ids, partitionKey?: string | undefined) =>
               Effect.promise(() =>
                 execBatch(
                   mutable(ids.map((id) =>
diff --git a/packages/infra/src/Store/service.ts b/packages/infra/src/Store/service.ts
index e162675396..3679b067cd 100644
--- a/packages/infra/src/Store/service.ts
+++ b/packages/infra/src/Store/service.ts
@@ -85,7 +85,7 @@ export interface Store<
   bulkSet: (
     items: NonEmptyReadonlyArray<PM>
   ) => Effect.Effect<NonEmptyReadonlyArray<PM>, OptimisticConcurrencyException>
-  batchRemove: (ids: NonEmptyReadonlyArray<Encoded[IdKey]>, partitionKey?: string) => Effect.Effect<void>
+  batchRemove: (ids: NonEmptyReadonlyArray<Encoded[IdKey]>, partitionKey?: string | undefined) => Effect.Effect<void>
   queryRaw: <Out>(query: RawQuery<Encoded, Out>) => Effect.Effect<readonly Out[]>
 }
 

From e4ae97ffafb4b32397f166a68994214982b01839 Mon Sep 17 00:00:00 2001
From: Davide Di Pumpo <davidemak@gmail.com>
Date: Mon, 20 Oct 2025 12:58:53 +0200
Subject: [PATCH 5/5] lint

---
 packages/infra/src/Store/Cosmos.ts  | 2 +-
 packages/infra/src/Store/service.ts | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/infra/src/Store/Cosmos.ts b/packages/infra/src/Store/Cosmos.ts
index 08171db0d8..45c6ac9df3 100644
--- a/packages/infra/src/Store/Cosmos.ts
+++ b/packages/infra/src/Store/Cosmos.ts
@@ -258,7 +258,7 @@ function makeCosmosStore({ prefix }: StorageConfig) {
                       attributes: { "repository.container_id": containerId, "repository.model_name": name }
                     })
                 ),
-            batchRemove: (ids, partitionKey?: string | undefined) =>
+            batchRemove: (ids, partitionKey?: string) =>
               Effect.promise(() =>
                 execBatch(
                   mutable(ids.map((id) =>
diff --git a/packages/infra/src/Store/service.ts b/packages/infra/src/Store/service.ts
index 3679b067cd..e162675396 100644
--- a/packages/infra/src/Store/service.ts
+++ b/packages/infra/src/Store/service.ts
@@ -85,7 +85,7 @@ export interface Store<
   bulkSet: (
     items: NonEmptyReadonlyArray<PM>
   ) => Effect.Effect<NonEmptyReadonlyArray<PM>, OptimisticConcurrencyException>
-  batchRemove: (ids: NonEmptyReadonlyArray<Encoded[IdKey]>, partitionKey?: string | undefined) => Effect.Effect<void>
+  batchRemove: (ids: NonEmptyReadonlyArray<Encoded[IdKey]>, partitionKey?: string) => Effect.Effect<void>
   queryRaw: <Out>(query: RawQuery<Encoded, Out>) => Effect.Effect<readonly Out[]>
 }