Ctrl l and x

main/app/shell/core.hook

@@ -3,7 +3,7 @@
 ::::  /hook/core/shell/app
   ::
 /?    314
-/-    term-line
+/-    term-line, kyev
 /=    pit  /~  !>(.)                                    ::  kernel vase
 ::
 ::::  structures
@@ -77,7 +77,7 @@
   ++  parse
     ^-  $+(nail (like coma))
     =+  paf=pax
-    =.  pax  ?.(=('0' &3.pax) pax pax(&3 (scot da/lat)))
+    =.  pax  ?.(&(?=([@ @ @ *] pax) =('0' &3.pax)) pax pax(&3 (scot da/lat)))
     ;~  pose
       (stag %run ;~(plug (star ;~(sfix (comd(tol %0) bar) ace)) (comd col)))
       (stag %end ;~(pfix sem ;~(pose (stag %& dem) (stag %| sym))))
@@ -138,6 +138,11 @@
     ~
   (some i.t.a)
 ::
+++  poke-kyev
+  |=  [ost=bone you=ship key=kyev]
+  ?>  ?=([[%ctrl ~ ~] @t] key)
+  (poke-txt ost you (cat 3 '\\' q.key))
+::
 ++  poke-txt
   |=  [ost=bone you=ship txt=cord]
   ^-  [(list move) _+>]
@@ -304,7 +309,7 @@
   ^-  @t
   ?^  act
     (rap 3 (~(got by cub.hid) u.act) '(' u.act ') ' ~)
-  ?.  =('0' &3.pax)
+  ?.  &(?=([@ @ @ *] pax) =('0' &3.pax))
     (spat pax)
   (rap 3 '/' &1.pax '/' &2.pax '=' ?~(|3.pax ~ [(spat |3.pax)]~))
 ++  exec

main/app/terminal/core.hook

@@ -3,7 +3,7 @@
 ::::  /hook/core/terminal/app
   ::
 /?    314                                               ::  need urbit 314
-/-    term-line
+/-    term-line, kyev
 ::
 ::::  structures
   ::
@@ -31,7 +31,7 @@
   $%  [%cide p=span]                                    ::
       [%show p=hapt q=ship r=path]                      ::
       [%sire p=term q=span]                             ::
-      [%mess p=hapt q=ship r=[%txt vase]]               ::
+      [%mess p=hapt q=ship r=[?(%txt %kyev) vase]]      ::
   ==  ==  ==                                            ::
 ++  sign                                                ::
   $%  $:  %g                                            ::
@@ -66,6 +66,7 @@
       ;title: Hi
       ;script(src "/gen/main/lib/urb.js");
       ;script(src "//cdnjs.cloudflare.com/ajax/libs/jquery/2.1.1/jquery.min.js");
+      ;script(src "//cdnjs.cloudflare.com/ajax/libs/mousetrap/1.4.6/mousetrap.js");
       ;script: urb.appl = "{(trip app.hid)}"
       ;script: urb.term = \{pax: "{(spud pax)}"}
       ;script(src "//use.typekit.net/fkv0sjk.js");
@@ -113,12 +114,23 @@
     ==
     ;body
       ;pre#cont;
-      ;span#prem:">"  ;input#prom; 
+      ;span#prem:">"  ;input.mousetrap#prom; 
       ;br;
       ;button(onclick "jpok('res', 'shell')"): Reboot
       ;script:'''
               var hist = [], hind = 0;
+              var keys = ['l', 'x']
+              for (i in keys) (function(k){
+                Mousetrap.bind('ctrl+' + k, function(){
+                  console.log(k)
+                  jpok('cmd', k)
+                })
+              })(keys[i])
               $(prom).keydown(function(e){
+                //if(e. ==){
+                //  jpok('act', e.which)
+                //  return true
+                //}
                 switch(e.which){  
                   default: return true
                     break;
@@ -186,10 +198,13 @@
   |=  [ost=bone you=ship jon=json]
   ^-  [(list move) _+>]
   ::~&  tem-poke/jon
-  =+  ^-  [pax=path jof=$%([%line p=span] [%res p=span])]
+  =+  ^-  [pax=path jof=$%([%line p=span] [%res p=span] [%cmd p=span])]
       %-  need
-      %.  jon
+      %.  jon  =>  jo
-      (ot pax/(su ;~(pfix fas (more fas sym))) act/(of line/so res/so ~) ~):jo
+      %^  ot
+        pax/(su ;~(pfix fas (more fas sym)))
+        act/(of line/so res/so cmd/so ~)
+      ~
   =+  tel=(fall (~(get by hiz) pax) *term-line)
   ?-    -.jof
       %res
@@ -214,12 +229,18 @@
     =.  r.tel  :_(r.tel leaf/"{(trip p.tel)}> {(trip p.jof)}")
     =.  hiz  (~(put by hiz) pax tel)
     :_  +>.$
-    %+  murn  (~(tap by cub.hid))
+    (send ost you pax %txt !>(p.jof))
-    |=  [p=span q=term]
+      %cmd
-    ?.  =(pax q:(decode p))  ~
+    :_  +>.$
-    %-  some
+    (send ost you pax %kyev !>(`kyev`[[%ctrl ~ ~] p.jof]))
-    [ost %pass [%txt p pax] %g %mess [our.hid p imp.hid] you %txt !>(p.jof)]
   ==
+++  send
+  |=  [ost=bone you=ship pax=path mez=[?(%txt %kyev) vase]]
+  %+  murn  (~(tap by cub.hid))
+  |=  [p=span q=term]
+  ?.  =(pax q:(decode p))  ~
+  %-  some  ^-  move
+  [ost %pass [%txt p pax] %g %mess [our.hid p imp.hid] you mez]
 ::
 ++  jell
   |=  [a=bone b=path]

main/sur/kyev/gate.hook

@@ -0,0 +1,10 @@
+::  Modified key event
+::
+::::  /hook/gate/kyev/sur
+  ::
+=-  ,[p=(set ?(%ctrl %shift %alt %meta)) q=$|(cord [%act speck])]
+^=  speck
+$?  %ctrl  %shift  %alt   %meta   %entr  %esc  %caps  %uncap
+    %pgup  %pgdn   %home  %end    %baxp  %del  %ins
+    %up    %down   %left  %right
+==