2016-02-05 05:57:44 +03:00
|
|
|
::
|
2016-02-05 06:05:37 +03:00
|
|
|
:::: /hoon/combine/tree/ren
|
2016-02-05 05:57:44 +03:00
|
|
|
::
|
2016-02-11 21:50:20 +03:00
|
|
|
/? 314
|
2016-02-05 03:10:21 +03:00
|
|
|
/- tree-include
|
|
|
|
|
/+ react
|
2015-12-22 04:29:47 +03:00
|
|
|
/= mime /mime/
|
2016-02-02 02:54:16 +03:00
|
|
|
/= body /tree-elem/
|
2016-02-05 03:10:21 +03:00
|
|
|
/= sect /&json&/tree-index/
|
2016-02-02 02:54:16 +03:00
|
|
|
/= snip /&snip&elem&/tree-elem/
|
2016-02-05 03:10:21 +03:00
|
|
|
/= meta /&json&front&/|(/front/ /~[~])
|
2016-02-04 04:46:14 +03:00
|
|
|
/= comt /^ (list (pair time manx))
|
2016-02-10 06:58:52 +03:00
|
|
|
/: /%/comments /@ /&elem&/md/
|
2015-08-12 00:31:16 +03:00
|
|
|
!:
|
2015-08-04 02:49:34 +03:00
|
|
|
^- tree-include
|
2015-09-02 03:24:18 +03:00
|
|
|
=+ rj=react-to-json:react
|
2016-02-12 00:53:14 +03:00
|
|
|
=+ cj=|=({a/time b/manx} (jobe time+(jode a) body+(rj b) ~))
|
2016-02-04 04:46:14 +03:00
|
|
|
:* mime
|
|
|
|
|
(rj body)
|
|
|
|
|
(rj /h1 hed.snip) :: head
|
|
|
|
|
(rj /div tal.snip) :: snip
|
2016-02-05 03:10:21 +03:00
|
|
|
meta
|
|
|
|
|
sect
|
2016-02-12 00:53:14 +03:00
|
|
|
[%a (turn (sort comt |=({a/* b/*} (lor b a))) cj)]
|
2016-02-04 04:46:14 +03:00
|
|
|
==
|
