urbit/mar/tree/index.hoon
2016-02-17 15:50:03 -08:00

24 lines
557 B
Plaintext

::
:::: /hoon/index/tree/mar
::
/? 310
/+ tree,react,map-to-json
[. tree react]
!:
::::
::
|_ all/(map path marl)
::
++ grow :: convert to
|%
++ json
%. all
%+ map-to-json
|=(a/path (crip (spud a)))
|=(a/marl [%a (turn a react-to-json)])
--
++ grab |% :: convert from
++ noun (map path marl) :: clam from %noun
::++ elem |=(a=manx `_all`[[/ ((getall %h1) a)] ~ ~])
-- --