shrub/mar/talk/prize.hoon
Fang fddfe88d2b Implemented /mar/talk/prize and all necessary additions to /lib/talk-json.
Requires small change in zuse to compile. Under investigation.
2017-10-24 15:19:41 +02:00

39 lines
921 B
Plaintext

::
:::: /hoon/prize/talk/mar
::
/- talk
/+ talk-json
::
|_ piz/prize:talk
::
++ grab ::> convert from
|%
++ noun prize:talk ::< from %noun
++ json ::> from %json
=> [. dejs:talk-json] ::TODO =,
=, dejs-soft:format
|= a/json
^- prize:talk
=- (need ((of -) a))
:~ reader+pire
friend+(as circ)
:: burden not needed
circle+pack
==
--
::
++ grow ::> convert to
|%
++ json ::> to %json
=> [. enjs:talk-json] ::TODO =,
=, enjs:format
%+ frond -.piz
?+ -.piz !!
$reader (pire +.piz)
$friend (sa cis.piz circ)
:: burden not needed
$circle (pack +.piz)
==
--
--