feat: add custom email type for validation

lib/membership/email.ex

@@ -0,0 +1,34 @@
+defmodule Mv.Membership.Email do
+  @constraints [
+    match: ~r/^[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,}$/,
+    trim?: true,
+    min_length: 5,
+    max_length: 254
+  ]
+
+  use Ash.Type.NewType,
+    subtype_of: :string,
+    constraints: @constraints
+
+  @impl true
+  def cast_input(value, _) when is_binary(value) do
+    value = if @constraints[:trim?], do: String.trim(value), else: value
+
+    cond do
+      @constraints[:min_length] && String.length(value) < @constraints[:min_length] ->
+        :error
+
+      @constraints[:max_length] && String.length(value) > @constraints[:max_length] ->
+        :error
+
+      @constraints[:match] && !Regex.match?(@constraints[:match], value) ->
+        :error
+
+      true ->
+        {:ok, value}
+    end
+  end
+
+  @impl true
+  def cast_input(_, _), do: :error
+end

lib/membership/property.ex

@@ -23,7 +23,8 @@ defmodule Mv.Membership.Property do
           boolean: [type: :boolean],
           date: [type: :date],
           integer: [type: :integer],
-          string: [type: :string]
+          string: [type: :string],
+          email: [type: Mv.Membership.Email]
         ]
       ]
   end

lib/membership/property_type.ex

@@ -19,7 +19,7 @@ defmodule Mv.Membership.PropertyType do
     attribute :name, :string, allow_nil?: false, public?: true
 
     attribute :value_type, :atom,
-      constraints: [one_of: [:string, :integer, :boolean, :date]],
+      constraints: [one_of: [:string, :integer, :boolean, :date, :email]],
       allow_nil?: false,
       description: "Definies the datatype `Property.value` is interpreted as"