urbit/ren/tree/combine.hoon
2016-02-09 21:15:53 -08:00

25 lines
577 B
Plaintext

::
:::: /hoon/combine/tree/ren
::
/- tree-include
/+ react
/= mime /mime/
/= body /tree-elem/
/= sect /&json&/tree-index/
/= snip /&snip&elem&/tree-elem/
/= meta /&json&front&/|(/front/ /~[~])
/= comt /^ (list (pair time manx))
/: /%/comments /@ /&elem&/md/
!:
^- tree-include
=+ rj=react-to-json:react
=+ cj=|=([a=time b=manx] (jobe time/(jode a) body/(rj b) ~))
:* mime
(rj body)
(rj /h1 hed.snip) :: head
(rj /div tal.snip) :: snip
meta
sect
[%a (turn (sort comt lor) cj)]
==