1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-18 12:22:10 +03:00
urbit/ren/tree/combine.hoon
2016-02-04 16:27:55 -08:00

22 lines
539 B
Plaintext

/- 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))
/@ /&elem&md&mime&/comment-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)]
==