Fix some bugs. Spay talk display.

base/ape/octo/core.hook

@@ -55,10 +55,10 @@
 ++  abet  [(flop moz) .(moz ~)]                         ::  resolve
 ++  bike  $+(_. _+>)                                    ::  self-transformer
 ++  dish  |=(cad=card %_(+> moz [[ost cad] moz]))       ::  request
-++  echo  |=  [all=(list sink) fun=bike]  =+  +>+<-     ::  publish to all
-          |-  ^+  +>.^$  ?~  all  +>.^$(+<- +<)  %=  $  ::
-          all  t.all  ost  p.i.all  src  q.i.all        ::
-          +>.^$  (fun +>.^$)  ==                        ::
+++  echo  |=  [all=(list sink) fun=bike]  =+  old=+>+<- ::  publish to all
+          |-  ^+  +>.^$  ?~  all  +>.^$(+<- old)        ::
+          =>  .(ost p.i.all, src q.i.all)               ::
+          $(all t.all, +>.^$ (fun +>.^$))               ::
 ++  eels  (~(tap by sup))                               ::  all clients
 ++  elfs  (prey /octo +<-)                              ::  network clients
 ++  elks  (prey /sole +<-)                              ::  console clients

base/ape/talk/core.hook

@@ -1489,23 +1489,6 @@
   ++  sn-curt                                           ::  render name in 14
     |=  mup=?
     ^-  tape
-    =+  ^=  syl
-        |=  [len=@ud sez=(list cord)]
-        ?>  !=(0 len)
-        |-  ^-  tape
-        ?~  sez  ~
-        =+  nez=(trip i.sez)
-        =+  nel=(lent nez)
-        ?:  (gte nel len)
-          (welp (scag (dec len) nez) ">")
-        (welp nez $(sez t.sez))
-    ::
-    ?:  =(p.one our.hid)
-      ?:  =(q.one man)
-        (sigh 14 ?:(mup "*=" "=") %$)
-      (sigh 14 ?:(mup "*%" "%") q.one)
-    ?:  =(p.one (sein our.hid))
-      (sigh 14 ?:(mup "*/" "/") q.one)
     =+  rac=(clan p.one) 
     =+  raw=(scow %p p.one)
     =.  raw  ?.(mup raw ['*' (slag 2 raw)])
@@ -1630,8 +1613,8 @@
     =+  eck=?:((~(has by aud) [%& our.hid man]) '*' '-')
     =+  heb=?:(oug '>' '<')
     =+  ^=  baw
-        ?:  oug 
-          ~(te-whom te man tr-pals)
+        ::  ?:  oug 
+        ::  ~(te-whom te man tr-pals)
         (~(sn-curt sn man [who (main who)]) |)
     [heb eck (weld baw txt)]
   ::

base/lib/octo/core.hook

@@ -55,6 +55,6 @@
            ?~  dow  ~  =+  mor=$(dow t.dow)             ::
            :(weld nam(src p.i.dow) ?~(mor "" ", ") mor)   ::
   ++  voy   =+  ~[(icon who)]  %+  weld  vew            ::  print prompt
-            ?:(ept " ({-}'s turn) " ": {-} (row/col): ")::
+            ?.(ept " ({-}'s turn) " ": {-} (row/col): ")::
   --
 --

base/mar/octo-update/door.hook

@@ -15,9 +15,13 @@
 ++  grow                                                ::  convert to
   |%
   ++  json  ^-  ^json                                   ::  to %json  
-    ?:  ?=(| +<-<)  s/(crip p)
+    ~!  +>-<
+    ?:  ?=(| +>-<)
+      ~!  +>-<
+      ~!  p
+      s/(crip p)
     =+  she=|=(ship s/(scot %p +<))
-    =+  hes=|=([ship *] (she -<-))
+    =+  hes=|=([ship *] (she +<-))
     %-  jobe
     :~  who/s/?:(who.p %x %o) 
         plx/?~(p.sag.p ~ (she u.p.sag.p))