iyzico

defmodule Iyzico.PaymentRequest do
  @typedoc """
  Represents a payment request information.
  """
  @enforce_keys ~w(conversation_id price
                   paid_price currency installment
                   basket_id payment_channel
                   payment_group payment_card)a

  defstruct [
    :locale,
    :conversation_id,
    :price,
    :paid_price,
    :currency,
    :installment,
    :basket_id,
    :payment_channel,
    :payment_group,
    :payment_card,
    :buyer,
    :shipping_address,
    :billing_address,
    :basket_items
  ]

  @type currency :: :try
  @type payment_channel :: :web
  @type payment_group :: :product

  @type t :: %__MODULE__{
    locale: binary,
    conversation_id: binary,
    price: binary,
    paid_price: binary,
    currency: currency,
    installment: integer,
    basket_id: binary,
    payment_channel: payment_channel,
    payment_group: payment_group,
    payment_card: Iyzico.Card.t,
    buyer: Iyzico.Buyer.t,
    shipping_address: Iyzico.Address.t,
    billing_address: Iyzico.Address.t,
    basket_items: list
  }
end

defimpl Iyzico.IOListConvertible, for: Iyzico.PaymentRequest do
  @default_locale Application.get_env(:iyzico, Iyzico)[:locale]

  def to_iolist(data) do
    [{"locale", @default_locale},
     {"conversationId", data.conversation_id},
     {"price", data.price},
     {"paidPrice", data.paid_price},
     {"installment", data.installment},
     {"paymentChannel", Atom.to_string(data.payment_channel) |> String.upcase()},
     {"basketId", data.basket_id},
     {"paymentGroup", Atom.to_string(data.payment_group) |> String.upcase()},
     {"paymentCard", Iyzico.IOListConvertible.to_iolist(data.payment_card)},
     {"buyer", Iyzico.IOListConvertible.to_iolist(data.buyer)},
     {"shippingAddress", Iyzico.IOListConvertible.to_iolist(data.shipping_address)},
     {"billingAddress", Iyzico.IOListConvertible.to_iolist(data.billing_address)},
     {"basketItems", Enum.map_reduce(data.basket_items, 0, fn (x, acc) ->
       {{acc, Iyzico.IOListConvertible.to_iolist(x)}, acc + 1}
     end) |> elem(0)},
     {"currency", Atom.to_string(data.currency) |> String.upcase()}]
  end
end