mirror of
https://github.com/urbit/shrub.git
synced 2024-12-04 23:04:24 +03:00
17 lines
419 B
Plaintext
17 lines
419 B
Plaintext
::
|
|
:::: /hoon/curl/app
|
|
::
|
|
/? 310
|
|
/+ old-zuse
|
|
=, old-zuse
|
|
::
|
|
|_ {{^ ^ 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:urlp)))
|
|
++ poke-hiss |=(a/hiss (poke %hiss a))
|
|
++ poke-noun poke-hiss
|
|
++ sigh-wain |=({* a/wain} ~&(a `+>))
|
|
++ sigh-tang |=({* a/tang} (mean a))
|
|
--
|