shrub/mar/dill/blit.hoon
2017-02-13 16:02:25 -08:00

27 lines
564 B
Plaintext

::
:::: /hoon/blit/dill/mar
::
/? 310
/- sole
/+ old-zuse
=, sole
=, old-zuse
|_ dib/dill-blit
::
++ grab :: convert from
|%
++ noun dill-blit :: clam from %noun
--
++ grow
|%
++ json
^- ^json
?+ -.dib ~|(unsupported-blit+-.dib !!)
$mor [%a (turn p.dib |=(a/dill-blit json(dib a)))]
$hop (joba %hop (jone p.dib))
?($pro $out) (joba -.dib (jape (tufa p.dib)))
?($bel $clr) (joba %act %s -.dib)
==
--
--