enhance payout account management

Author: zcesur

lib/algora/integrations/stripe/connect_countries.ex

@@ -126,6 +126,11 @@ defmodule Algora.Stripe.ConnectCountries do
       {"Vietnam", "VN"}
     ]
 
+  @spec from_code(String.t()) :: String.t()
+  def from_code(code) do
+    list() |> Enum.find(&(elem(&1, 1) == code)) |> elem(0) || code
+  end
+
   @spec list_codes() :: [String.t()]
   def list_codes, do: Enum.map(list(), &elem(&1, 1))
 

lib/algora/payments/payments.ex

@@ -134,6 +134,15 @@ defmodule Algora.Payments do
     |> Repo.all()
   end
 
+  @spec get_or_create_account(user_id :: binary(), region :: :US | :EU) :: Account.t()
+  def get_or_create_account(user_id, region) do
+    case get_account(user_id, region) do
+      nil -> create_account(user_id, region)
+      account -> {:ok, account}
+    end
+  end
+
+  @spec get_account(user_id :: binary(), region :: :US | :EU) :: Account.t() | nil
   def get_account(user_id, region) do
     Account
     |> where([a], a.user_id == ^user_id and a.region == ^region)
@@ -199,6 +208,10 @@ defmodule Algora.Payments do
         with {:ok, stripe_account} <- Stripe.Account.retrieve(account.provider_id) do
           attrs = %{
             charges_enabled: stripe_account.charges_enabled,
+            payouts_enabled: stripe_account.payouts_enabled,
+            payout_interval: stripe_account.settings.payouts.schedule.interval,
+            payout_speed: stripe_account.settings.payouts.schedule.delay_days,
+            default_currency: stripe_account.default_currency,
             details_submitted: stripe_account.details_submitted,
             country: stripe_account.country,
             service_agreement: get_service_agreement(stripe_account),
@@ -234,4 +247,11 @@ defmodule Algora.Payments do
   defp get_service_agreement(%{capabilities: capabilities}) do
     if is_nil(capabilities[:card_payments]), do: "recipient", else: "full"
   end
+
+  @spec delete_account(account :: Account.t()) :: {:ok, Account.t()} | {:error, any()}
+  def delete_account(account) do
+    with {:ok, _stripe_account} <- Stripe.Account.delete(account.provider_id) do
+      Repo.delete(account)
+    end
+  end
 end

lib/algora/payments/schemas/account.ex

@@ -13,6 +13,10 @@ defmodule Algora.Payments.Account do
     field :name, :string
     field :details_submitted, :boolean, default: false, null: false
     field :charges_enabled, :boolean, default: false, null: false
+    field :payouts_enabled, :boolean, default: false, null: false
+    field :payout_interval, :string
+    field :payout_speed, :integer
+    field :default_currency, :string
     field :service_agreement, :string
     field :country, :string, null: false
     field :type, Ecto.Enum, values: [:standard, :express], null: false
@@ -32,6 +36,10 @@ defmodule Algora.Payments.Account do
       :provider_meta,
       :details_submitted,
       :charges_enabled,
+      :payouts_enabled,
+      :payout_interval,
+      :payout_speed,
+      :default_currency,
       :service_agreement,
       :country,
       :type,
@@ -45,6 +53,7 @@ defmodule Algora.Payments.Account do
       :provider_meta,
       :details_submitted,
       :charges_enabled,
+      :payouts_enabled,
       :country,
       :type,
       :region,

lib/algora_web/components/ui/drawer.ex

@@ -45,7 +45,7 @@ defmodule AlgoraWeb.Components.UI.Drawer do
           "fixed z-50 transform border bg-background transition-transform duration-300 ease-in-out",
           case @direction do
             "bottom" -> "inset-x-0 bottom-0 rounded-t-xl"
-            "right" -> "inset-y-0 right-0 h-full max-w-lg"
+            "right" -> "inset-y-0 right-0 h-full max-w-lg w-full"
           end,
           case @direction do
             "bottom" -> if(@show, do: "translate-y-0", else: "translate-y-full")