ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-20 15:08:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

chat-cli: Subscribe to /updates instead of /all

Browse Source 
On first boot (and debug poke) we scry for /all to ensure we know all
messages.
This commit is contained in:
Fang 2019-10-08 21:59:25 +02:00
parent 9532857ef5
commit 42aa035530
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 31 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
pkg/arvo/app/chat-cli.hoon
View File

@ -85,17 +85,39 @@
~& %chat-cli-prep
?^ old
[~ this(+<+ u.old)]
:- [connect ~]
%_ this
audience [[our-self /] ~ ~]
settings (sy %showtime %notify ~)
width 80
==
=^ moves this
%_ catch-up
audience [[our-self /] ~ ~]
settings (sy %showtime %notify ~)
width 80
==
[[connect moves] this]
:: +catch-up: process all chat-store state
::
++ catch-up
^- (quip move _this)
=/ =inbox
.^ inbox
%gx
(scot %p our.bowl)
%chat-store
(scot %da now.bowl)
/all/noun
==
|- ^- (quip move _this)
?~ inbox [~ this]
=* path p.n.inbox
=* mailbox q.n.inbox
=/ =target (path-to-target path)
=^ mon this (read-envelopes target envelopes.mailbox)
=^ mol this $(inbox l.inbox)
=^ mor this $(inbox r.inbox)
[:(weld mon mol mor) this]
:: +connect: connect to the chat-store
::
++ connect
^- move
[ost.bowl %peer /chat-store [our-self %chat-store] /all]
[ost.bowl %peer /chat-store [our-self %chat-store] /updates]
:: +true-self: moons to planets
::
++ true-self
@ -127,6 +149,8 @@
^- (quip move _this)
?: ?=(%connect a)
[[connect ~] this]
?: ?=(%catch-up a)
catch-up
[~ this]
:: +poke-sole-action: handle cli input
::
@ -152,21 +176,6 @@
:- [prompt:sh-out ~]
:: start with fresh sole state
this(state.cli *sole-share:sole-sur)
:: +diff-chat-initial: catch up on messages
::
++ diff-chat-initial
|= [=wire =inbox]
^- (quip move _this)
=| moves=(list move)
|- ^- (quip move _this)
?~ inbox [~ this]
=* path p.n.inbox
=* mailbox q.n.inbox
=/ =target (path-to-target path)
=^ mon this (read-envelopes target envelopes.mailbox)
=^ mol this $(inbox l.inbox)
=^ mor this $(inbox r.inbox)
[:(weld mon mol mor) this]
:: +diff-chat-update: get new mailboxes & messages
::
++ diff-chat-update