urbit/app/curl.hoon
2016-03-09 14:47:24 -08:00

15 lines
393 B
Plaintext

::
:::: /hoon/curl/app
::
/? 310
!:
|_ {{^ ^ ost/@ ^} $~}
++ poke |*(a/{mark *} :_(+> [ost %hiss / `~ %wain a]~))
::++ poke-purl |=(a/purl :_(+> [ost %hiss / %wain %purl a]~))
++ poke-tape |=(a/tape (poke %purl (scan a auri:epur)))
++ poke-hiss |=(a/hiss (poke %hiss a))
++ poke-noun poke-hiss
++ sigh-wain |=({* a/wain} ~&(a `+>))
++ sigh-tang |=({* a/tang} (mean a))
--