ListDict is dead, long live the ListDict

lax.ex

defmodule LAX do
	defmodule Transformer do
		def exec({ {:., _, [Kernel, :access]} , misc, [subj, [key]]}) do
			quote do
				LAX.getter(unquote(exec(subj)), unquote(exec(key)))
			end
		end
		def exec(code), do: code
	end

	defp scan_proplist([], _), do: nil
	defp scan_proplist([{key, value}|rest], key), do: value
	defp scan_proplist([_|rest], key), do: scan_proplist(rest, key)

	def getter(subject, key) when not(is_atom(key)) and is_list(subject) do
		scan_proplist(subject, key)
	end
	def getter(subject, key) do
		Dict.get(subject, key)
	end
	defmacro la(code) do
		Transformer.exec(code)
	end
end

require LAX

LAX.la ([a: 1, b: 2])[:a]
LAX.la ([{"hello", "world"}, {"goodbye", ListDict}])["goodbye"]