% decode(encode(...))

%% move these to seperate test file

encode_test() ->
    TestKp = enacl:sign_keypair(),
    #{public := Public } = TestKp,
    Chan =  "#foo",
    Text = <<"hello, world!😉">>,
    Post = posts:encode(TestKp, [], {text,Chan, Text}),
    Decoded = posts:decode(Post),
    [
     [ {pubKey, Public}
     , {links, _Links}
     , {postType, 0}
     , {timestamp, _TimeStamp}
     ],
     [ {channel, GotChan}
     , {text, GotText}
     ]
    ] = Decoded,
    ?assertEqual(Text, GotText),
    ?assertEqual(Chan, GotChan).
% from example tests

     , {postType, _PostType}

     , {postType, 0}

     , {postType, _PostType}

     , {postType, 1}

      , {postType, _PostType}

      , {postType, 2}

     , {postType, _PostType}

     , {postType, 3}

      , {postType, _PostType}

      , {postType, 4}

      , {postType, _PostType}

      , {postType, 5}

%-export([decode_post_request/1, decode_hash_response/1, decode_cancel_request/1, decode_channel_time_range_request/1, decode_channel_state_request/1, decode_channel_list_request/1, decode_post_response/1, decode_channel_list_response/1]).

%%%%%%%%%%%%
% Encoders %
%%%%%%%%%%%%

%%%%%%%%%%%
% Decoders
%%%%%%%%%%%

%%%%%%%%%%%%
% Decoders %
%%%%%%%%%%%%

-export([decode/1]).
%-export([decode_post_text/1, decode_post_delete/1, decode_post_info/1, decode_post_topic/1, decode_post_join/1, decode_post_leave/1]).

-export([decode/1, encode/3]).
% Encode
encode(KeyPair, Links, Post) ->
    {PostType, PostBody} = encode_body(Post),
    NumLinks = wire:encode_varint(length(Links)),
    LinksBin = iolist_to_binary(Links),
    Timestamp = wire:encode_varint(os:system_time(1000)),
    Payload = iolist_to_binary([NumLinks, LinksBin, PostType, Timestamp, PostBody]),
    #{public := Public, secret := Secret} = KeyPair,
    Signature = enacl:sign_detached(Payload, Secret),
    iolist_to_binary([Public, Signature, Payload]).
% TODO: delete, info, topic
encode_body({text, Chan, Text}) ->
    ChanBin = unicode:characters_to_binary(Chan),
    ChanLen = wire:encode_varint(byte_size(ChanBin)),
    TextBin = unicode:characters_to_binary(Text),
    TextLen = wire:encode_varint(byte_size(TextBin)),
    {0, iolist_to_binary([ChanLen, ChanBin, TextLen, TextBin])};
encode_body({join, Chan}) ->
    ChanBin = unicode:characters_to_binary(Chan),
    ChanLen = wire:encode_varint(byte_size(Chan)),
    {4, iolist_to_binary([ChanLen, ChanBin])};
encode_body({leave, Chan}) ->
    ChanBin = unicode:characters_to_binary(Chan),
    ChanLen = wire:encode_varint(byte_size(Chan)),
    {5, iolist_to_binary([ChanLen, ChanBin])}.

% Decode

  [ {channel, binary_to_list(Channel)},  {text, unicode:characters_to_binary(Text)}].

  [ {channel, binary_to_list(Channel)}, {text, unicode:characters_to_binary(Text)}].