urbit/mar/tree/index.hoon
2016-02-04 19:05:37 -08:00

24 lines
572 B
Plaintext

::
:::: /hoon/index/tree/mar
::
/? 314
/+ tree,react
[. 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)] ~ ~])
-- --