curry

defmodule Curry do
  @moduledoc File.read!("README.md")

  defmacro __using__(_) do
    quote do
      import Curry, only: [curry: 2, curryp: 2]
    end
  end

  defmacro curry(head, do: body) do
    write_def(head, body, false)
  end

  defmacro curryp(head, do: body) do
    write_def(head, body, true)
  end

  defp write_def(head, body, private) do
    {_, _, fargs} = head
    case fargs do
      [] -> raise ArgumentError, "cannot curry a function when its arity is 0"
      nil -> raise ArgumentError, "cannot curry a function when its arity is 0"
      [_|_] -> :ok
    end
    {fname, ctx, [arg1|args_rest]} = head
    small_head = {fname,ctx,[arg1]}
    body = make_fns(args_rest, body)
    case private do
      true  -> quote do: (defp unquote(small_head), do: unquote(body))
      _     -> quote do: (def unquote(small_head), do: unquote(body))
    end
  end

  defp make_fns([last_arg], body) do
    quote do
      fn unquote(last_arg) ->
        unquote(body)
      end
    end
  end

  defp make_fns([arg|args], body) do
    body = make_fns(args, body)
    quote do
      fn unquote(arg) ->
        unquote(body)
      end
    end
  end

end