mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-16 10:49:26 +03:00
Merge commit '0779aaf' into cc-merge
This commit is contained in:
commit
de7b95ba1c
@ -1754,30 +1754,11 @@
|
||||
::
|
||||
++ pa-remind :: remote presence
|
||||
|= {tay/partner loc/atlas rem/(map partner atlas)}
|
||||
=+ ^= buk
|
||||
=+ mer=(turn (~(tap by rem) ~) |=({* a/atlas} a))
|
||||
|- ^- atlas
|
||||
?~ mer loc
|
||||
=. loc $(mer t.mer)
|
||||
=+ dur=`(list (pair ship status))`(~(tap by i.mer) ~)
|
||||
|- ^- atlas
|
||||
?~ dur loc
|
||||
=. loc $(dur t.dur)
|
||||
=+ fuy=(~(get by loc) p.i.dur)
|
||||
?~ fuy (~(put by loc) p.i.dur q.i.dur)
|
||||
?: =(`presence`p.q.i.dur `presence`p.u.fuy)
|
||||
loc
|
||||
?- p.u.fuy
|
||||
$gone (~(del by loc) p.i.dur q.i.dur)
|
||||
$talk loc
|
||||
$hear (~(put by loc) p.i.dur q.i.dur)
|
||||
==
|
||||
=+ gub=(~(get by remotes) tay)
|
||||
:: ~& [%pa-remind tay gub buk]
|
||||
?. |(?=($~ gub) !=(buk u.gub))
|
||||
+>.$
|
||||
=. remotes (~(put by remotes) tay buk)
|
||||
(pa-report-group groupers)
|
||||
=. rem (~(del by rem) %& our.hid man) :: superceded by local data
|
||||
=/ buk (~(uni by remotes) rem) :: XX drop?
|
||||
=. buk (~(put by buk) tay loc)
|
||||
?: =(buk remotes) +>.$
|
||||
(pa-report-group(remotes buk) groupers)
|
||||
::
|
||||
++ pa-start :: start stream
|
||||
|= riv/river
|
||||
|
Loading…
Reference in New Issue
Block a user