urbit/main/tree/json.hook
Galen Wolfe-Pauly 2ea66a0114 docs and tree
2015-02-17 19:03:21 -08:00

48 lines
960 B
Plaintext

::
/? 314
/= gas /$ fuel
/= ral /: /===/pub /% /react-js/
/= pal /: /===/pub
/; |= a=(map ,@ta cord) a
/% 2
/_ /react-js/
::
/= sal /: /===/pub
/; |= a=(map ,@ta cord) a
/% 2
/_ /react-snip-js/
::
::::
::
// /%%/util
::
[util=. +>]
::
!:
::::
::
^- json
=+ ~(. util gas)
?: (~(has by qix.gas) %kids)
%+ joba %kids
=. pal (~(del by pal) %md) :: XX haxor
=- [%a (turn (~(tap by pal)) -)]
|= [a=span b=cord]
%- jobe :~
name/s/a
body/s/b
==
?: (~(has by qix.gas) %snip)
%+ joba %snip
=. sal (~(del by sal) %md) :: XX haxor
=- [%a (turn (~(tap by sal)) -)]
|= [a=span b=cord]
%- jobe :~
name/s/a
body/s/b
==
%- jobe :~
kids/[%a (turn get-kids |=(a=span s/a))]
body/[%s ral]
==