Rescued |hi Yfrīt from the sands of time into helm: closes #304

base/ape/hood.hoon

@@ -56,6 +56,7 @@
   [~ +>]
 ::
 ++  coup-drum-phat  (wrap take-coup-phat):from-drum
+++  coup-helm-hi    (wrap coup-hi):from-helm
 ++  diff-sole-effect-drum-phat  (wrap diff-sole-effect-phat):from-drum
 ++  from-lib
   |*  _[%helm ..$ ,_abet]:(helm-work)
@@ -73,6 +74,8 @@
 ++  poke-dill-belt          (wrap poke-dill-belt):from-drum
 ++  poke-helm-init          (wrap poke-init):from-helm
 ++  poke-helm-verb          (wrap poke-verb):from-helm
+++  poke-helm-send-hi       (wrap poke-send-hi):from-helm
+++  poke-helm-hi            (wrap poke-hi):from-helm
 ++  poke-hood-link          (wrap poke-link):from-drum
 ++  poke-hood-mass          (wrap poke-mass):from-helm
 ++  poke-hood-sync          (wrap poke-sync):from-kiln

base/cat/hood/hi.hoon

@@ -0,0 +1 @@
+|=([^ [who=ship mez=$|(~ [a=tape ~])] ~] helm-send-hi/[who ?~(mez ~ `a.mez)])

base/lib/helm.hoon

@@ -53,6 +53,7 @@
       ++  pear                                          ::  poke fruit
         $%  [%hood-unsync desk ship desk]               ::
             [%talk-command command:talk]                ::
+            [%helm-hi cord]                             ::
         ==                                              ::
       --
   |_  moz=(list move)
@@ -81,6 +82,17 @@
     |=  ~  =<  abet
     (emit %flog /heft %crud %hax-heft ~)
   ::
+  ++  poke-send-hi  
+    |=  [her=ship mes=(unit tape)]  =<  abet
+    %^  emit  %poke  /helm/hi/(scot %p her)
+    [[her %hood] %helm-hi ?~(mes '' (crip u.mes))]
+  ::
+  ++  poke-hi  |=(mes=@t abet:(emit %flog /di %text "< {<src>}: {(trip mes)}"))
+  ++  coup-hi
+    |=  [pax=path cop=(unit tang)]  =<  abet
+    ?>  ?=([@t ~] pax)
+    (emit %flog ~ %text "hi {(trip i.pax)} {?~(cop "" "un")}succesful")
+  ::
   ++  poke-reload  |=(all=(list term) (poke-reload-desk %home all))
   ++  poke-reload-desk                                 ::  reload vanes
     |=  [syd=desk all=(list term)]  =<  abet