shrub/tree-gen/tree-include.hook

/+    tree, react
/=    body    /:  /===    /%    /elem/
/=    snip    /:  /===    /%    /snip/
/=    meta    /:  /===    /%    /front/
/=    sect    /:  /===    /%    /index/
!:
^-    tree-include
=+  rj=react-to-json
=+  fj=|=(atr=(map span span) [%o (~(run by atr) |=(a=span s/a))])
=+  ij=(map-to-json |=(a=path (crip (spud a))) |=(a=marl [%a (turn a rj)]))
[(rj body) (rj /h1 hed.snip) (rj /div tal.snip) (fj meta) (ij sect)]