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: 
  (defun grouped-page ()
    (mount-component (grouped-main)
      :data (lisp (ps-gadgets:as-ps-data (grouped-data)))))
  
  ;;OBSOLETE
  (defun grouped-pagex ()
  
negative.code:           :store-name "warstats"
            :sources (%grouped-warstats-urls (prop group))
            :reducer #'copy-merge-all
            (:grouped :... (@ this props)))))
  
      (def-component grouped-main
  