remove passive auto-audience entirely

app/talk.hoon

@@ -381,9 +381,7 @@
       %+  sh-fact  %pro
       :+  &  %talk-line
       ^-  tape
-      =+  ^=  rew  ^-  (pair (pair @t @t) (set partner))
-          ?~  active.she
-            [['(' ')'] passive.she]
+      =/  rew/(pair (pair @t @t) (set partner))
           [['[' ']'] u.active.she]
       =+  cha=(~(get by nik) q.rew)
       ?^  cha  ~[u.cha ' ']
@@ -394,9 +392,10 @@
     ++  sh-pact                                         ::  update active aud
       |=  lix/(set partner)
       ^+  +>
-      =+  act=?~(lix ~ `(sh-pare lix))
-      ?:  =(active.she act)  +>.$
-      sh-prod(active.she act)
+      =+  act=(sh-pare lix)
+      ?~  act  ~|(%no-audience !!)
+      ?:  =(active.she `act)  +>.$
+      sh-prod(active.she `act)
     ::
     ++  sh-pare                                         ::  adjust target list
       |=  paz/(set partner)
@@ -411,25 +410,6 @@
           (~(has in sources.shape:(~(got by stories) man.she)) `partner`n.paz)
       ==
     ::
-    ++  sh-pass                                         ::  passive from aud
-      |=  aud/audience
-      %-  sh-poss
-      %-  ~(gas in *(set partner))
-      (turn (~(tap by aud)) |=({a/partner *} a))
-    ::
-    ++  sh-poss                                         ::  passive update
-      |=  lix/(set partner)
-      ?^  buf.say.she
-        +>.$
-      =+  sap=(sh-pare lix)
-      ?:  =(sap passive.she)
-        +>.$
-      ::  XX exclude autogenerated forum stations
-      ?:  %+  lien  (~(tap in passive.she))
-          |=(a/partner ?=({$& ship ?($post $comments)} a))
-        +>.$
-      sh-prod(passive.she sap)
-    ::
     ++  sh-pest                                         ::  report listen
       |=  tay/partner
       ^+  +>
@@ -437,12 +417,12 @@
       =+  sib=(~(get by ham.system.she) `station`p.tay)
       ?.  |(?=($~ sib) !?=($white p.cordon.u.sib))
         +>.$
-      (sh-poss [tay ~ ~])
+      (sh-pact [tay ~ ~])
     ::
     ++  sh-rend                                         ::  print on one line
       |=  gam/telegram
       =+  lin=~(tr-line tr man.she settings.she gam)
-      (sh-pass:(sh-fact %txt lin) q.q.gam)
+      (sh-fact %txt lin)
     ::
     ++  sh-numb                                         ::  print msg number
       |=  num/@ud
@@ -966,7 +946,7 @@
     ++  sh-whom                                         ::  current audience
       ^-  audience
       %-  ~(gas by *audience)
-      %+  turn  (~(tap in ?~(active.she passive.she u.active.she)))
+      %+  turn  (~(tap in u.active.she))
       |=(a/partner [a *envelope %pending])
     ::
     ++  sh-tell                                         ::  add command
@@ -1083,7 +1063,7 @@
       :: 
       ++  bind                                          ::  %bind
         |=  {cha/char pan/(unit (set partner))}  ^+  ..sh-work
-        ?~  pan  $(pan [~ ?~(active.she passive.she u.active.she)])
+        ?~  pan  $(pan [~ u.active.she])
         =+  ole=(~(get by nik) u.pan)
         ?:  =(ole [~ cha])  ..sh-work
         (sh-note:(set-glyph cha u.pan) "bound {<cha>} {<u.pan>}")
@@ -1255,7 +1235,7 @@
       ^+  +>
       ?-  -.act
         $det  (sh-stir +.act)
-        $clr  (sh-pact ~)
+        $clr  ..sh-sole :: (sh-pact ~) :: XX clear to PM-to-self?
         $ret  sh-done
       ==
     ::
@@ -1539,7 +1519,7 @@
         {@ta $~}  i.pax
       ==
     =/  she/shell
-      %*(. *shell her her, man man, passive (sy [%& our.hid man] ~))
+      %*(. *shell her her, man man, active `(sy [%& our.hid man] ~))
     sh-abet:~(sh-peer sh ~ `shell`she)
   ::
   ++  ra-subscribe                                      ::  listen to