Various fixes and improvements.

main/app/radio-test/core.hook

@@ -1,54 +0,0 @@
-/-    *radio
-!:
-::::
-  ::
-|_  [hide ~]
-++  peek  
-  |=  [@ pax=path]
-::   ?:  |
-::     radio-report/(report grams/[7 "foo" ~])
-  =+  :+  dat=(trip '{ping: {party:"rom", presence:"talk"}}')
-          =-  dat2=(trip -)
-          '''
-          { publish:
-            [{  serial: 
-              "0vs.tteei.qlhhr.v09gs.s3iml.7him6.2injj.uiiu6.hg990.fha70.cqdtm",
-                statement:
-              { now: Date.now(),
-                speech:
-                { say: "Hello world"
-                }
-              },
-                audience:
-              { "~zod/rume": "received",
-                "twitter/_urbit": "pending"
-              }
-            }]
-          }
-          '''
-      ^=  js
-      %-  trip
-      '''
-      function come(a){
-        urb.send({
-          appl: 'radio-test',
-          mark: 'radio-command',
-          data: a
-        })
-      }
-      '''
-  :-  %hymn
-  ^-  manx
-  ;html
-    ;head
-      ;script(src "/gen/main/lib/urb.js");
-      ;script: {js}
-      ;script: dat = {dat2}
-    ==
-    ;body:button(onclick "come(dat)"):"Ping"
-  ==
-++  poke-radio-command
-  |=  [ost=bone ship com=command]
-  ~&  got/com
-  [[ost %give /nice]~ +>]
---

main/app/radio-wipe/core.hook

@@ -1,13 +0,0 @@
-!:
-|_  [hid=hide ~]
-++  poke-radio-wipe-args
-  |=  [ost=bone you=ship ~]
-  :_  +>.$
-  :~  [ost %pass / %g %mess [our.hid /radio] our.hid %bit !>(~)]
-      [ost %give %nice ~]
-  ==
-++  peer
-  |=
-    *
-  `+>
---

main/app/radio/core.hook

@@ -238,7 +238,6 @@
         [%g %mean *]  ~&([%radio-repeat-rejected num her man sih] %rejected)
         [%g %nice ~]  %received
       ==
-    ~&  [%ra-repeat our.hid u.oot]
     (ra-think | our.hid u.oot ~)
   ::
   ++  ra-cancel                                         ::  drop a bone
@@ -343,12 +342,11 @@
   ++  ra-conduct                                        ::  thought to station
     |=  [pub=? her=ship tay=station tip=thought]
     ^+  +>
-    ~&  [%ra-conduct pub her tay]
+    ::  ~&  [%ra-conduct pub her tay]
     ?-  -.tay
       %&  ?:  pub
             =.  her  our.hid                            ::  XX security!
             ?:  =(her p.p.tay)
-              ~&  [%ra-conduct-record p.tay]
               (ra-record q.p.tay p.p.tay tip)
             (ra-transmit p.tay tip)
           ?.  =(our.hid p.p.tay)

main/app/talk/core.hook

@@ -148,9 +148,16 @@
   ++  text  (boss 256 (star prn))
   ++  stati
     %+  peach
-      ;~(plug ;~(pose (cold our tis) (ifix sig^fas fed:ag)) urs:ab)
-    %+  sear  (soft partner)
-    ;~((glue fas) sym urs:ab)                           ::  XX  [a-z0-9_]{1,15}
+      ;~  pose
+        ;~(pfix tis (stag our urs:ab))
+        ;~  pfix  sig 
+          ;~  plug
+            fed:ag
+            ;~(pose ;~(pfix fas urs:ab) (easy %main))
+          ==
+        ==
+      ==
+    ;~(pfix fas (stag %twitter ;~(pfix ;~(plug (just 'twitter') fas) urs:ab)))
   --
 --
 !:
@@ -189,9 +196,11 @@
   =+  rey=(rush txt talk(lat lat.hid, our our.hid))
   ?~  rey
     [(send /out %give %rush %tang [%leaf "invalid input"] ~) +>.$]
+  ~&  [%rey rey]
   |-  ^-  [(list move) _+>.^$]
-  ?+    -.u.rey  !!
+  ?-    -.u.rey
       %priv  $(targets `(sa p.u.rey), u.rey [%def q.u.rey])
+      %all   $(targets ~, u.rey [%def p.u.rey])
       %who
     :_  +>.^$
     %^  send  /out  %give  :+  %rush  %tang  :_  ~
@@ -408,9 +417,20 @@
   ^-  cord
   ?~  live
     'waiting...'
-  ?:  =(%main u.live)
-    '& '
-  (cat 3 u.live '& ')
+  ?~  targets
+    ?:  =(%main u.live)
+      '& '
+    (cat 3 u.live '& ')
+  =+  taz=(~(tap by u.targets) ~)
+  |-  ^-  cord
+  ?~  taz  ' '
+  %^  cat  3  '+'
+  %^  cat  3  
+    ?-  -.i.taz
+      %&  (cat 3 (scot %p p.p.i.taz) (cat 3 '/' q.p.i.taz))
+      %|  (cat 3 '/' (cat 3 %twitter (cat 3 '/' p.p.i.taz)))
+    ==
+  $(taz t.taz)
 ::
 ++  present
   ^-  (list move)