mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
24 lines
571 B
Plaintext
24 lines
571 B
Plaintext
::
|
|
:::: /hoon/core/elem/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)] ~ ~])
|
|
-- --
|