urbit/app/curl.hoon
2016-02-04 19:05:37 -08:00

11 lines
310 B
Plaintext

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