Medium: AbsintheSortingCodec

AbsintheSortingCodec.ex

defmodule AbsintheSortingCodec do
  @moduledoc """
  Convert the JSON output of an introspection query into deterministic JSON with types ordered alphabetically.
  """

  def encode(schema, opts \\ []) do
    schema
    |> sorted_objects()
    |> Jason.encode(opts)
  end

  def encode!(schema, opts \\ []) do
    case encode(schema, opts) do
      {:ok, content} -> content
      {:error, reason} -> raise reason
    end
  end

  defp sorted_objects(value)

  defp sorted_objects(map) when is_map(map) do
    for {key, val} <- map, into: %{}, do: {key, sorted_objects(val)}
  end

  defp sorted_objects(list) when is_list(list) do
    list
    |> Enum.sort_by(&list_sorting_value/1)
    |> Enum.map(&sorted_objects/1)
  end

  defp sorted_objects(value), do: value

  defp list_sorting_value(%{name: name}), do: name
  defp list_sorting_value(%{"name" => name}), do: name
  defp list_sorting_value(value), do: value
end