urbit/main/app/ye/core.hook

::  Ye broadcast
::  
::::  /hook/gate/ye/bin
  ::
|%
++  sign                                                ::
  $%  $:  %a                                            ::
  $%  [%went p=ship q=cape]                             ::
  ==  ==  ==                                            ::
++  flog                                                ::  sent to %dill
          $%  [%crud p=@tas q=(list tank)]              ::
              [%text p=tape]                            ::
          ==                                            ::
--
::
!:
|_  [hid=hide ~]
++  peer  ,_`.
++  poke-ye-args
  |=  [ost=bone you=ship tex=tape ~]
  :_  +>.$
  =+  mez=(crip "{<our.hid>}: {tex}")
  :~  [ost %pass /ye %a %want [our.hid (sein our.hid)] /q/ye mez]
      [ost %give %nice ~]
  ==
::
++  poke-txt
  |=  [ost=bone him=ship cor=@t]
  :_  +>.$
  ~[[ost %give %nice ~] [ost %pass /de %d %flog %text "> {(trip cor)}"]]
::
++  pour
  |=  [ost=bone pax=path sih=sign]
  ?>  ?=([%ye ~] pax)
  :_  +>.$
  :-  [ost %pass / %g %cide %$]
  =+  ack=?+(q.sih "failed" %good "recieved")
  (spam tang/[leaf/"ye {ack}"]~)
++  spam
  |*  a=^
  %+  turn  (~(tap by sup.hid))
  |=([ost=bone *] [ost %give %rush a])
::
--