anchor.diff:            :rowtype :rooturl
             :display-depth 0
             :url url
  +          :rootid discrootid
             :title (grab-title url)
             :looks (when (authenticated?)
                      (get-looks (get-user-name) discrootid))))))
  -    (proto:dotree (refid tree)
  -      (when-let ((row (format-group-component-data refid (length proto:*tree-stack*))))
  +    (proto:dotree (refid tree :proc-leaf t :proc-branch nil)
  +      (when-let ((row (format-group-component-data refid (1- (length proto:*tree-stack*)))))
           (cl-utilities:collect row)))))
   
   (defun grouped-data ()
  
positive.code:                :class "grouped"
                 (when (prop warstats)
                   (collecting
                       (dotree (itm (ensure-array (prop group))
                                :proc-branch nil :proc-leaf t)
                         ;;*tree-stack* is from dotree
                         (let ((depth (@ *tree-stack* length)))
                           (cond ((numberp itm)
                                  (collect
                                      (if (getprop (prop warstats) itm)
                                          (psx
                                           (:target-title
                                            :key (unique-id)
                                            :display-depth depth
                                            :hide-reply t
                                            :show-count t
                                            :intro-text " "
                                            :warflagger-link (make-rootid-url itm)
                                            :extra-styling
                                            (grouped-styling-data itm
                                                                  (@ %thisref props))
                                            :warstats (getprop (prop warstats) itm)
                                            :... (getprop (prop roots) itm)))
                                          ;;FIXME: creates error or ugly
                                          (psx (:div "Loading...")))))
                                 ((stringp itm)
                                  (collect
                                      (psx
                                       (:reference
                                        :key (unique-id)
  ;;;FIXME: URL generation should only be in one place!
                                        :headline {}
                                        :styling-data
                                        (create :data-display-depth depth
                                                :data-replies-total 0)
                                        :warflagger-link (make-missing-rootid-url itm)
                                        :reference-domain (url-domain itm)
                                        :reference itm))))))))))))
  
      (defun %grouped-warstats-urls (tree)
        (let ((res (create)))
            (dolist (id (flatten tree) res)
              (when (equal (typeof id) "number")
                (setf (getprop res id)
                      (make-warstats-url id 'warstats))))))
  
      (defun grouped-styling-data (id props)
        (let* ((data (getprop (@ props roots) id))
               (pardata
                (when (@ data refparent)
                  (getprop (@ props warstats) (@ data refparent))))
               (warstats
  
negative.code: 
  (defun grouped-page ()
    (mount-component (grouped-main)
      :data (lisp (ps-gadgets:as-ps-data (list* 'list (grouped-data))))))
  
  ;;OBSOLETE
  (defun grouped-pagex ()
  