added :hi

arvo/gall.hoon

@@ -134,6 +134,7 @@
           $?  [?(%b %c %d %e) @tas *]                   ::
               $:  %a                                    ::  by %ames
           $%  [%woot p=ship q=coop]                     ::
+              [%went p=ship q=cape]                     ::  XX only for apps
           ==  ==                                        ::
               $:  %g                                    ::  by %gall
           $%  [%crud p=@tas q=(list tank)]              ::

main/app/hi/core.hook

@@ -0,0 +1,31 @@
+|%
+++  sign                                                ::
+  $%  $:  %a                                            ::
+  $%  [%went p=ship q=cape]                             ::
+  ==  ==  ==
+--
+::
+!:
+|_  [hid=hide ~]
+++  poke-hi-args
+  |=  [ost=bone you=ship her=ship mes=?(~ [tex=tape ~])]
+  :_  +>.$
+  :~  [ost %pass /hi %a %want [our.hid her] /q/hi ?~(mes ~ (crip tex.mes))]
+      [ost %give %nice ~]
+  ==
+++  pour
+  |=  [ost=bone pax=path sih=sign]
+  ?>  ?=([%hi ~] pax)
+  :_  +>.$
+  %+  turn  (~(tap by sup.hid))
+  |=  [ost=bone *]
+  :^  ost  %give  %rush
+  :-  %tang  :_  ~  
+  ?:  ?=(%good q.sih)
+    leaf/"hi to {<p.sih>} successful"
+  leaf/"hi to {<p.sih>} not successful"
+++  peer
+  |=
+    *
+  `+>
+--

main/app/shell/core.hook

@@ -58,12 +58,12 @@
 ++  maybe
   |*  fel=_rule
   ;~  pose
-    (stag ~ fel)
+    fel
     (easy ~)
   ==
 ::
 ++  args
-  (more ace wide:(vang & pax))
+  ;~(pfix ace (more ace wide:(vang & pax)))
 ::
 ++  pipe
   ;~  plug
@@ -76,7 +76,7 @@
   ^-  $+(nail (like coma))
   =+  paf=?.(=('0' &3.pax) pax pax(&3 (scot da/lat.hid)))
   ;~  pose
-    (stag %start ;~(pfix col ;~(plug sym args(pax paf))))
+    (stag %start ;~(pfix col ;~(plug sym (maybe args(pax paf)))))
     (stag %end ;~(pfix sem ;~(pose (stag %& dem) (stag %| sym))))
     (stag %path (sear plex rood):(vang & pax))
     (stag %pipe pipe(pax paf))

main/mar/hi-args/door.hook

@@ -0,0 +1,15 @@
+::
+::::  /hoon/core/zing/pro
+  ::
+/?  314
+/-  hi-args
+|_  arg=hi-args
+::
+++  grab                                                ::  convert from
+  |%
+  ++  noun                                              ::  convert from %noun
+    |=  src=*
+    ^+  +>+
+    +>+(arg (hi-args src))
+  --
+--

main/sur/hi-args/gate.hook

@@ -0,0 +1 @@
+[her=ship mes=?(~ [tex=tape ~])]