Standard Error Format for Erlang

error.erl

-record(error, {type, ctx}).

% Macros to create error adding module, line and function to context
% line(#error{}), module(#error{}), function(#error{}) to return those fields if defined or undefined if not

new(Type) -> new(Type, #{}).

new(Type, Ctx) -> #error{type=Type, ctx=Ctx}.

wrap(Type, Cause=#error{}) -> wrap(Type, Cause, Ctx).

wrap(Type, Cause=#error{}, Ctx) ->
  #error{type=Type, ctx=maps:merge(Ctx, #{cause => Cause})}.

cause(#error{ctx=#{cause := Cause}}) -> {ok, Cause};
cause(#error{}) -> notfound.

get(Error=#error{}, Key) -> get(Error, Key, undefined).
get(Error=#error{ctx=Ctx}, Key, Default) -> maps:get(Key, Ctx, Default).