move tree-comments to separate renderer

mar/tree/comments.hoon

@@ -0,0 +1,23 @@
+::
+::::  /hoon/comments/tree/mar
+  ::
+/?    310
+/+    react
+!:
+::::
+  ::
+|_  all/(list (pair time manx))
+::
+++  grow                                                ::  convert to
+  |%
+  ++  json
+    :-  %a 
+    %+  turn
+      (sort all |=({a/* b/*} (lor b a)))
+    |=  {a/time b/manx}  ^-  ^json
+    (jobe time+(jode a) body+(react-to-json:react b) ~)
+  --
+++  grab  |%                                            ::  convert from
+          ++  noun  (list {time manx})                  ::  clam from %noun
+          ::++  elem  |=(a=manx `_all`[[/ ((getall %h1) a)] ~ ~])
+--        --

ren/tree/combine.hoon

@@ -9,17 +9,15 @@
 /=    sect    /&json&/tree-index/
 /=    snip    /&snip&elem&/tree-elem/
 /=    meta    /&json&front&/|(/front/ /~[~])
-/=    comt    /^  (list (pair time manx))
-              /:  /%/comments    /@  /&elem&/md/
+/=    comt    /&json&/tree-comments/
 !:
 ^-    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 |=({a/* b/*} (lor b a))) cj)]
+    comt
 ==

ren/tree/comments.hoon

@@ -0,0 +1,9 @@
+::
+::::  /hoon/comments/tree/ren
+  ::
+/?    310
+/:    /%/comments    /@  /&elem&/md/    :: XX descend horn
+::
+::::
+  ::
+`(list (pair time manx))`-.-