%% timeline_db.erl
-module(timeline_db).
-export([add_message/1, all_messages/0]).

-record(global_message, {id, activity, timestamp}).


add_message(Activity) ->
    Id = erlang:unique_integer([monotonic, positive]),
    Timestamp = erlang:system_time(microsecond),
    Record = #global_message{id=Id, activity=Activity, timestamp=Timestamp},
    db_safe_insert:safe_insert(global_message, Record).

all_messages() ->
    F = fun() ->
        mnesia:match_object(#global_message{id = '_', activity = '_', timestamp = '_'})
    end,
    {atomic, Messages} = mnesia:transaction(F),
    Messages.