Added :reboot

main/app/reboot/core.hook

@@ -0,0 +1,38 @@
+::  Reboot %zuse and all kernel vanes
+::
+::::  /hook/core/reboot/app
+  ::
+/+    sh-utils
+!:
+::::
+  ::
+|_  [hid=hide ~]
+++  peer  ,_`.
+++  poke--args
+  %^  add-output  .
+    rush/tang/[leaf/"done"]~
+  %+  args-into-resp  .
+  |=  arg=~
+  %-  turn   
+  :_  |=  [tip=@tasD nam=@tas]
+      =+  pax=[(scot %p our.hid) %arvo (scot %da lat.hid) nam %hoon ~]
+      [%veer tip pax (,@ .^(%cx pax))]
+  %-  flop
+  ^-  (list ,[p=@tas q=@tas])
+  :~  [%$ %zuse]
+      [%a %ames]
+      [%c %clay]
+      [%d %dill]
+      [%e %eyre]
+      [%f %ford]
+      [%g %gall]
+      [%t %time]
+  ==
+++  pour
+  %+  gate-bang
+    =+  pax=/(scot %p our.hid)/=/(scot %da lat.hid)/==count/txt
+    =+  nuf=(file pax)
+    =+  num=?~(nuf 0 +((fall (slaw %ud (,@t u.nuf)) 0)))
+    ,_[%c %info our.hid (foal pax num)]                 ::  touch clay to reload apps
+  ,_`.
+--

main/app/reload/core.hook

@@ -9,11 +9,10 @@
 |_  [hid=hide ~]
 ++  peer  ,_`.
 ++  poke--args
-  %-  args-done
   %^  add-output  .
     rush/tang/[leaf/"done"]~
-  |=  [ost=bone you=ship all=(list ,@tas)]
+  %+  args-into-resp  . 
-  :_  +>.$
+  |=  all=(list ,@tas)
   %+  turn  (flop all)
   =+  ark=(arch .^(%cy /(scot %p our.hid)/arvo/(scot %da lat.hid)))
   =+  van=(~(tap by r.ark))
@@ -27,5 +26,5 @@
     `term`p.i.zaz
   =+  tip=(end 3 1 nam)
   =+  pax=[(scot %p our.hid) %arvo (scot %da lat.hid) nam %hoon ~]
-  [ost %give %veer ?:(=('z' tip) %$ tip) pax (,@ .^(%cx pax))]
+  [%veer ?:(=('z' tip) %$ tip) pax (,@ .^(%cx pax))]
 --

main/app/reset/core.hook

@@ -8,10 +8,9 @@
   |=  [ost=bone you=ship ~]
   :_  +>.$
   =+  top=`path`/(scot %p our.hid)/arvo/(scot %da lat.hid)
-  =+  pax=`path`(weld top `path`[%hoon ~])
   :+  [ost %give %nice ~]
     [ost %pass / %t %wait lat.hid]
-  %-  welp  :_  [ost %give %vega pax]~
+  %-  welp  :_  [ost %give %vega (weld top `path`/hoon)]~
   %+  turn
     %-  flop
     ^-  (list ,[p=@tas q=@tas])
@@ -25,13 +24,13 @@
         [%t %time]
     ==
   |=  [p=@tas q=@tas]
-  =+  pax=(weld top `path`[q ~])
+  =+  pax=`path`(welp top /[q])
-  =+  txt=((hard ,@) .^(%cx (weld pax `path`[%hoon ~])))
+  =+  txt=((hard ,@) .^(%cx (welp pax /hoon)))
   [ost %give %veer p pax txt]
 ++  pour
   |=  [ost=bone pax=path *]
   :_  +>.$  :_  ~
-  =+  paf=/(scot %p our.hid)/main/(scot %da lat.hid)/app/reset/count/txt
+  =+  paf=/(scot %p our.hid)/=/(scot %da lat.hid)/==count/txt
   =+  nuf=(file paf)
   =+  num=?~(nuf 0 +((fall (slaw %ud (,@t u.nuf)) 0)))
   [ost %pass /touch %c %info our.hid (foal paf num)]