Revert "Revert changes introduced by ohaitch/talk-fix-presence at 8f7d7b9"

This reverts commit 5e3b34de76.

app/talk.hoon

@@ -1636,10 +1636,15 @@
     ++  pa-report-group                                  ::  update presence
       |=  vew/(set bone)
       %^  pa-report  vew  %group
-      :_  remotes
+      :-  %-  ~(run by locals)
-      |-  ^-  atlas
+          |=({@ a/status} a)
-      ?~  locals  ~
+      %-  ~(urn by remotes)           ::  XX preformance
-      [[p.n.locals q.q.n.locals] $(locals l.locals) $(locals r.locals)]
+      |=  {pan/partner atl/atlas}  ^-  atlas
+      ?.  &(?=($& -.pan) =(our.hid p.p.pan))  atl
+      =+  (~(get by stories) q.p.pan)
+      ?~  -  atl
+      %-  ~(run by locals.u)
+      |=({@ a/status} a)
     ::
     ++  pa-report-cabal                                 ::  update config
       (pa-report cabalers %cabal shape mirrors)
@@ -1753,30 +1758,11 @@
     ::
     ++  pa-remind                                       ::  remote presence
       |=  {tay/partner loc/atlas rem/(map partner atlas)}
-      =+  ^=  buk
+      =.  rem  (~(del by rem) %& our.hid man)  :: superceded by local data
-          =+  mer=(turn (~(tap by rem) ~) |=({* a/atlas} a))
+      =/  buk  (~(uni by remotes) rem)  ::  XX drop?
-          |-  ^-  atlas
+      =.  buk  (~(put by buk) tay loc)
-          ?~  mer  loc
+      ?:  =(buk remotes)  +>.$
-          =.  loc  $(mer t.mer)
+      (pa-report-group(remotes buk) groupers)
-          =+  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)
     ::
     ++  pa-start                                        ::  start stream
       |=  riv/river