Added some comment strings, access throuhgh ? :app

main/app/poke/core.hook

@@ -1,3 +1,4 @@
+::  Poke path [mark *] || Poke ship path [mark *]. Send message to an app.
 !:
 ::::
   ::

main/app/reset/core.hook

@@ -1,3 +1,4 @@
+::  Reset: recompile arvo, from hoon/hoon up
 !:
 ::::
   ::
@@ -31,10 +32,7 @@
   |=  [ost=bone pax=path *]
   :_  +>.$  :_  ~
   =+  paf=/(scot %p our.hid)/main/(scot %da lat.hid)/app/reset/count/txt
-  =+  ^=  num
-      ?:  ?=([%0 %0 %0] [.^(%cy paf)])  '0'
-      %+  scot  %ud
-      .+
-      (fall (slaw %ud (,@t .^(%cx paf))) 0)
+  =+  nuf=(file paf)
+  =+  num=?~(nuf 0 +((fall (slaw %ud (,@t u.nuf)) 0)))
   [ost %pass /touch %c %info our.hid (foal paf num)]
 --

main/app/shell/core.hook

@@ -64,6 +64,7 @@
       [%comt ~]                                         ::  comment
       [%var p=term q=twig]                              ::  set variable
       [%rvar p=term]                                    ::  unset variable
+      [%help p=term]                                    ::  info about command
   ==                                                    ::
 ++  sign                                                ::
   $%  $:  %g                                            ::
@@ -116,6 +117,7 @@
       (stag %del ;~(pfix hep ace loca))
       (stag %mut ;~(pfix col ace ;~(plug loca expg)))
       (stag %ins ;~(pfix lus ace ;~(plug loca (opts expg))))
+      (stag %help ;~(pfix wut ace ;~(pfix col sym)))
       (stag %path (full ;~(sfix loca(pax paf) (star ace))))
       (stag %var ;~(plug ;~(pfix tis sym) expg))
       (stag %rvar ;~(pfix ;~(plug tis tis) sym))
@@ -184,6 +186,7 @@
       %hoon  (eat-hoon +.com)
       %ins   (eat-ins +.com)
       %mut   (eat-mut +.com)
+      %help  (eat-help +.com)
       %path  (eat-path +.com)
       %run   (eat-run you +.com)
       %rvar  (eat-rvar +.com)
@@ -242,6 +245,22 @@
     ?~  (file paf)  '! none'
     (foal paf q:(exec gen))
   ::
+  ++  eat-help
+    |=  app=term
+    ^+  +>
+    %-  blab  %-  print
+    ^-  tank
+    =+  rup=/(scot %p our.hid)/main/(scot %da lat.hid)
+    =+  paf=`path`(welp rup /app/[app]/core/hook)
+    =+  src=(file paf)
+    ?.  ?=([~ @t] src)
+      leaf/"app {<app>} does not exist"
+    =+  cot=;~(pfix col col (plus ace) (star prn))
+    =+  led=(cot 1^1 (trip u.src))
+    ?^  q.led
+      leaf/"::  {(wonk led)}"
+    palm/[" " ``~]^~[leaf/"no leading comment in" >paf<]
+  ::
   ++  eat-path
     |=  paf=path
     ^+  +>
@@ -252,9 +271,9 @@
     |=  [you=ship mud=(list mand) mad=mand]
     ^+  +>
     ::  =.  +>.$  (blab (print leaf/"+ :{(trip p.mad)}"))
-    ?:  .=  [0 0 0]
+    ?.  =-  (~(has by r:(arch -)) %core)
         .^(%cy /(scot %p our.hid)/main/(scot %da lat.hid)/app/[p.mad])
-      (blab (print leaf/"{<p.mad>} does not exist"))
+      (blab (print leaf/"app {<p.mad>} does not exist"))
     =|  inp=(unit span) 
     =<  +>.$
     %+  reel

main/lib/sh-utils/core.hook

@@ -31,7 +31,7 @@
     |=(a=_+<.gat [%rush (gat a)])
   ,_`con
 ::
-++  args-into-gift                    ::  compute gifts with gate and exit
+++  args-into-resp                    ::  compute gifts with gate and exit
   |*  [con=[* [hide *] *] gat=_,(pole ,[@ *])]
   %-  args-done
   |*  [ost=bone * arg=_+<.gat]