Chatook

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]
+                  [%took p=hapt q=ship]
               ==  ==  ==
     ++  sign
               $?  $:  %g
@@ -219,9 +220,7 @@
       ;title: Radio
       ;script(type "text/javascript", src "//use.typekit.net/fkv0sjk.js");
       ;script(type "text/javascript", src "//cdnjs.cloudflare.com/ajax/libs/jquery/2.1.1/jquery.min.js");
-      ;script:'''
-              try{Typekit.load();}catch(e){}
-              '''
+      ;script:'try{Typekit.load();}catch(e){}'
       ;link(rel "stylesheet", type "text/css", href "/gen/main/pub/src/chat/main.css");
     ==
     ;body
@@ -293,11 +292,17 @@
     ==
   [~ +>.$]
 ::
+++  pass-took
+  |=  [moz=(list move) ost=bone pax=path imp=path]
+  :_  +>.$
+  :_(moz [ost %pass pax %g %took [our.hid imp] our.hid])
+::
 ++  pour
   |=  [ost=bone pax=path sih=*]
   ^-  [(list move) _+>]
   ::  ~&  sih=sih
   =+  sih=((hard sign) sih)
+  =+  took=|=([imp=path moz=(list move)] (pass-took moz ost pax imp))
   ?~  pax  ~&  %chat-pour-strange-path  !!
   ::  ~&  [%pour-mess pax]
   ?+    i.pax  ~&  %chat-pour-strange-path  !!
@@ -307,7 +312,8 @@
       %mean  [(send /out %give +.sih) +>.$]
       ?(%rush %rust)
         ?>  ?=(%txt -.p.sih)
-        (exec-cmd ost p.p.sih)
+        =^  moz  +>.$  (exec-cmd ost p.p.sih)
+        (took +.imp.hid moz)
     ==
   ::
       ?(%mesg %priv)
@@ -319,8 +325,7 @@
       [~ +>.$]
     ?>  ?=(%rush +<.sih)
     ?>  ?=(%zong -.p.sih)
-    :_  +>.$
-    (send /out %give %rush %tang (zong-to-tank & p.p.sih) ~)
+    (took /chat (send /out %give %rush %tang (zong-to-tank & p.p.sih) ~))
   ::
       ?(%radi-a %radi-m)
     ?:  ?=(%nice +<.sih)
@@ -365,7 +370,8 @@
     =+  ^=  pout  ?:(=(i.pax %radi-a) %amigos %mensajes)
     =.  air  (~(put by air) t.pax ya)
     =+  mow=(send [pout t.pax] %give +.sih)
-    =<  [mow +>.$]
+    =<  (took /radio mow)
+    ::  =<  [mow +>.$]
     ::  XX  yes, I just used an inline comment
     ::  XX  and multiple XX's.  why?  because
     ::  XX  tmi is incredibly lame.