chat-cli: account for reverse message ordering
changed the way chat-store orders messages. We need to account for that
when processing/printing. This is the minimum viable fix.
=* path p.n.inbox
=* mailbox q.n.inbox
=/ =target (path-to-target path)
- =^ cards-n state (read-envelopes target envelopes.mailbox)
+ =^ cards-n state (read-envelopes target (flop envelopes.mailbox))
=^ cards-l state $(inbox l.inbox)
=^ cards-r state $(inbox r.inbox)
[:(weld cards-n cards-l cards-r) state]
%create (notice-create (path-to-target path.upd))
%delete [[(show-delete:sh-out (path-to-target path.upd)) ~] state]
%message (read-envelope (path-to-target path.upd) envelope.upd)
- %messages (read-envelopes (path-to-target path.upd) envelopes.upd)
+ %messages (read-envelopes (path-to-target path.upd) (flop envelopes.upd))
==
::
++ read-envelopes
