From ee81f835262010527ef914ba42dfa3326b496784 Mon Sep 17 00:00:00 2001
From: Philip C Monk <philip.monk@tlon.io>
Date: Wed, 17 Dec 2014 19:22:15 -0500
Subject: [PATCH] make disable chat

---
 main/app/chat/core.hook  | 16 +++++++++-------
 main/app/rodeo/core.hook | 14 +++++++-------
 2 files changed, 16 insertions(+), 14 deletions(-)

diff --git a/main/app/chat/core.hook b/main/app/chat/core.hook
index 02984bf5cf..776e18e371 100644
--- a/main/app/chat/core.hook
+++ b/main/app/chat/core.hook
@@ -59,6 +59,7 @@
               $%  [%mess p=hapt q=ship r=cage]
                   [%nuke p=hapt q=ship]
                   [%show p=hapt q=ship r=path]
+                  [%cide p=span]
               ==  ==  ==
     ++  sign
               $?  $:  %g
@@ -328,13 +329,14 @@
       ?:  ?=(%radi-a i.pax)  ~
       [ost %give +.sih]~
     ?:  ?=(%mean +<.sih)
-      :_  +>.$  :_  ~
-      =-  ~&  [%trying-again -]  -
-      :*  ost  %pass  pax  %g  %show
-          [pad.fal /radio]  our.hid
-          ?-(i.pax %radi-a %amigos, %radi-m %mensajes)
-          sat.fal
-      ==
+      ~&  ':chat is no more, please use :talk'
+      [[ost %pass / %g %cide %$]~ +>.$]
+::      =-  ~&  [%trying-again -]  -
+::      :*  ost  %pass  pax  %g  %show
+::          [pad.fal /radio]  our.hid
+::          ?-(i.pax %radi-a %amigos, %radi-m %mensajes)
+::          sat.fal
+::      ==
     =+  ya=(grab t.pax)
     =.  ya
       ?-    i.pax
diff --git a/main/app/rodeo/core.hook b/main/app/rodeo/core.hook
index 0b338cccc9..aa3ac33517 100644
--- a/main/app/rodeo/core.hook
+++ b/main/app/rodeo/core.hook
@@ -28,7 +28,7 @@
       $%  $:  %mess  p=@da  q=ship                      ::
             $=  r                                       ::
               $%  [%do p=@t]                            ::
-                  [%exp p=@t q=tank                     ::
+                  [%exp p=@t q=tank]                    ::
                   [%say p=@t]                           ::
       ==  ==  ==                                        ::
     ++  party                                           ::  a conversation
@@ -763,6 +763,12 @@
     ra-abet:(~(ra-repeat ra ost ~) num her man sih)
   ==
 ::
+++  pull
+  |=  ost=bone
+  ^-  [(list move) _+>]
+  ~&  [%rodeo-pull ost]
+  ra-abet:~(ra-cancel ra ost ~)
+::
 ++  prep
   |=  old=(unit (unit house-any))
   ^-  [(list move) _+>]
@@ -778,12 +784,6 @@
     %0  $(u.u.old [%1 (house-0-to-house-1 +.u.u.old)])
   ==
 ::
-++  pull
-  |=  ost=bone
-  ^-  [(list move) _+>]
-  ~&  [%rodeo-pull ost]
-  ra-abet:~(ra-cancel ra ost ~)
-::
 ++  house-0-to-house-1
   |=  vat=house-0
   ^-  house-1