An erlang macro that creates a function to convert a record to a key-value list

record_to_list.hrl

%%% This macro will create a function that converts a record to
%%% a {key, value} list (a proplist)

-define(record_to_list(Record),
    fun(Val) ->
        Fields = record_info(fields, Record),
        [_Tag| Values] = tuple_to_list(Val),
        lists:zip(Fields, Values)
    end
).


-record(rec, {bar = "baz", camp = "spam"}).

test() ->
    Record = #rec{bar = "qux"},
    Fun = ?make_record_to_list(rec),
    Fun(Record).