spacerace

defmodule Spacerace do
  defmacro __using__(opts) do
    quote bind_quoted: binding() do
      use Ecto.Schema

      import Ecto.Changeset
      import Spacerace

      @action_headers []
      @actions []

      @before_compile Spacerace
    end
  end

  defmacro __before_compile__(_) do
    quote bind_quoted: binding() do
      @embedded_fields Keyword.keys(@ecto_embeds)
      @action_headers Enum.uniq_by(@actions, fn {verb, action, endpoint, opts} -> action end)
      @fields Keyword.drop(@ecto_fields, @embedded_fields) |> Keyword.keys()

      def __spacerace__(:actions), do: @actions

      def new(response) do
        %__MODULE__{}
        |> changeset(response)
        |> apply_changes()
      end

      def changeset(struct, params) do
        changeset = cast(struct, params, @fields)
        Enum.reduce(@embedded_fields, changeset, fn field, changeset ->
          cast_embed(changeset, field)
        end)
      end

      for {verb, action, endpoint, opts} <- @action_headers do
        def unquote(action)(client, params \\ %{})
      end

      for {verb, action, endpoint, opts} <- @actions do
        default     = Keyword.get(opts, :default, %{})

        if !is_map(default), do: raise ArgumentError, message: """
        Wrong option passed to default, expected a Map like so:

                #{verb} :#{action}, #{endpoint}, default: %{...}
        """

        def unquote(action)(client, params) do
          endpoint = Spacerace.URI.prepare(unquote(endpoint), params)
          params   = Map.merge(unquote(Macro.escape(default)), params)
          response = apply(Spacerace.Request, unquote(verb), [client, endpoint, params])
          if is_list(response), do: Enum.map(response, &new/1), else: new(response)
        end
      end

      defoverridable [new: 1, changeset: 2]
    end
  end

  defmacro get(action, endpoint, opts \\ []) do
    quote bind_quoted: binding() do
      @actions [{:get, action, endpoint, opts} | @actions]
      @actions [{:get!, :"#{action}!", endpoint, opts} | @actions]
    end
  end

  defmacro post(action, endpoint, opts \\ []) do
    quote bind_quoted: binding() do
      @actions [{:post, action, endpoint, opts} | @actions]
      @actions [{:post!, :"#{action}!", endpoint, opts} | @actions]
    end
  end
end