Merge branch 'radio' of github.com:urbit/urbit-new into radio

arvo/dill.hoon

@@ -97,7 +97,7 @@
               [%type p=?]                               ::
           ==  ==                                        ::
 ++  term-line  ,[p=[p=cord q=prom r=cord] q=(list cord) r=(list tark)]
-++  tark  ?(tank [%stem p=tank q=tank])                 ::
+++  tark  ?(tank [%stem p=@da q=tank r=tank])           ::
 ::::::::                                                ::  dill tiles
 ++  bein                                                ::  terminal control
           $:  $:  bul=@ud                               ::  buffer length
@@ -328,8 +328,10 @@
         =-  (furl (zing (turn (flop lis) -)))
         |=  a=tark
         ^-  wall
-        ?+  -.a  (~(win re a) 0 p.q.yar) 
-          %stem  ~[~(ram re p.a) ~(ram re p.a)]
+        ?+    -.a  (~(win re a) 0 p.q.yar) 
+            %stem
+          ?:  =(q.s.yar p.a)  ~
+          ~[(welp ~(ram re q.a) ~(ram re r.a))]
         ==
       %-  edit
       =|  bed=bein
@@ -392,7 +394,7 @@
         %noop  +>
         %belt                                           ::  terminal input
       =.  +>.$
-        ?.  ?=(?(%bac %del %txt) -.p.kyz)  +>.$
+        ?.  ?=(?(%bac %del %ret %txt) -.p.kyz)  +>.$
         ?:  p.s.yar  +>.$(s.yar [& now])
         %_    +>.$
             s.yar  [& now]

main/app/terminal/core.hook

@@ -103,18 +103,18 @@
     [(flop mow) (~(put by hiz) pax tel)]
   ::
   ++  page
-    ;html
-      ;head
-        ;title: Not yet
-      ==
-      ;body;
-    ==
-::    %.  stat
-::    %+  inject
-::      ~[%html %head]
-::    ;=  ;script: urb.appl = "{(trip app.hid)}"
-::        ;script: urb.term = \{pax: "{(spud pax)}"}
+::    ;html
+::      ;head
+::        ;title: Not yet
+::      ==
+::      ;body;
 ::    ==
+    %.  stat
+    %+  inject
+      ~[%html %head]
+    ;=  ;script: urb.appl = "{(trip app.hid)}"
+        ;script: urb.term = \{pax: "{(spud pax)}"}
+    ==
   ::
   ++  peer
     |=  gal=glas
@@ -150,10 +150,12 @@
       ==
     ::
         %line                                           ::  command entered
+      =+  new=stem/[lat.hid leaf/(trip p.p.tel) leaf/(trip p.jof)]
       =.  r.tel
         :_  r.tel
-        stem/[leaf/(trip p.p.tel) leaf/(trip p.jof)]
-      (send %txt -:!>(*cord) p.jof)
+        stem/[lat.hid leaf/(trip p.p.tel) leaf/(trip p.jof)]
+      =.  +>.$  (send %txt -:!>(*cord) p.jof)
+      +>.$(mow (welp (spam p.tel q.tel new ~) mow))
     ::
         %cmd                                            ::  key command
       ?+  p.jof

main/mar/term-line/door.hook

@@ -18,10 +18,10 @@
         [%history %a (turn q.tel |=(a=cord [%s a]))]
         :+  %lines  %a
         %-  zing  ^-  (list (list ^json))
-        %+  turn  (flop r.tel)  |=  a=?(tank [%stem p=tank q=tank])
+        %+  turn  (flop r.tel)  |=  a=?(tank [%stem p=@da q=tank r=tank])
         ?.  ?=(%stem -.a)
           (turn (wash 0^80 a) jape)
-        [(jobe prompt/(jape ~(ram re p.a)) task/(jape ~(ram re q.a)) ~)]~
+        [(jobe prompt/(jape ~(ram re q.a)) task/(jape ~(ram re r.a)) ~)]~
     ==
   --
 --

main/sur/term-line/gate.hook

@@ -1 +1,4 @@
-,[p=[p=cord q=prom r=cord] q=(list cord) r=(list ?(tank [%stem p=tank q=tank]))]
+$:  p=[p=cord q=prom r=cord]
+    q=(list cord)
+    r=(list ?(tank [%stem p=@da q=tank r=tank]))
+==