feat: add ability to add variants with list and ability to add custom class string

gleam.toml

···
 name = "gva"
 description = "Type-safe, composable class variants for Gleam"
-version = "1.2.0"
+version = "1.3.0"
 target = "javascript"
 licences = ["Apache-2.0"]
 repository = { type = "github", user = "dinkelspiel", repo = "gva" }

src/gva.gleam

···
   Class(..class, using: [key, ..class.using])
 }
 
+pub fn with_all(class: Class(a), keys: List(a)) -> Class(a) {
+  case keys {
+    [key, ..keys] -> with_all(Class(..class, using: [key, ..class.using]), keys)
+    [] -> class
+  }
+}
+
+pub fn class(class: Class(a), class_string: String) -> Class(a) {
+  Class(..class, default: class.default <> " " <> class_string)
+}
+
 // Build a list of keys to a class string
 fn do_build(
   resolver: fn(a) -> String,

test/gva_test.gleam

···
 import glailwind_merge
 import gleeunit
-import gva.{build, gva, with}
+import gva.{build, class, gva, with, with_all}
 
 pub fn main() -> Nil {
   gleeunit.main()
···
     |> build()
 
   assert glailwind_merge.tw_merge([class]) == "text-white text-md bg-slate-600"
+
+  Nil
+}
+
+pub fn basic_2_test() -> Nil {
+  let button =
+    gva(
+      "text-white",
+      resolver: fn(in: BasicKey) {
+        case in {
+          BasicSize(size) ->
+            case size {
+              BasicSmall -> "text-sm"
+              BasicMedium -> "text-md"
+            }
+          BasicVariant(variant) ->
+            case variant {
+              BasicPrimary -> "bg-slate-950"
+              BasicSecondary -> "bg-slate-600"
+            }
+        }
+      },
+      defaults: [],
+    )
+
+  let class =
+    button
+    |> with_all([BasicSize(BasicMedium), BasicVariant(BasicSecondary)])
+    |> build()
+
+  assert glailwind_merge.tw_merge([class]) == "text-white text-md bg-slate-600"
+
+  Nil
+}
+
+pub fn basic_3_test() -> Nil {
+  let button =
+    gva(
+      "text-white",
+      resolver: fn(in: BasicKey) {
+        case in {
+          BasicSize(size) ->
+            case size {
+              BasicSmall -> "text-sm"
+              BasicMedium -> "text-md"
+            }
+          BasicVariant(variant) ->
+            case variant {
+              BasicPrimary -> "bg-slate-950"
+              BasicSecondary -> "bg-slate-600"
+            }
+        }
+      },
+      defaults: [],
+    )
+
+  let class =
+    button
+    |> with_all([BasicSize(BasicMedium), BasicVariant(BasicSecondary)])
+    |> class("opacity-50")
+    |> build()
+
+  assert glailwind_merge.tw_merge([class])
+    == "text-white opacity-50 text-md bg-slate-600"
 
   Nil
 }