anchor.diff:            :store-name "warstats"
             :sources (%grouped-warstats-urls (prop group))
             :reducer #'copy-merge-all
  -#|
  -          (lambda (existing incoming)
  -            (create-from-list
  -             (list :warstats (copy-merge-all (@ existing warstats)
  -                                             (@ incoming warstats)))))
  -          |#
             (:grouped :... (@ this props)))))
   
       (def-component grouped-main
  
positive.code: 
  (defun grouped-page ()
    (mount-component (grouped-main)
      :data (lisp (ps-gadgets:as-ps-data (grouped-data)))))
  
  ;;OBSOLETE
  (defun grouped-pagex ()
  
negative.code:                :class "grouped"
                 (when (prop warstats)
                   (collecting
                     (dolist (itm (prop group))
                       (cond
                         ((eq (@ itm rowtype) :rooturl)
                          (collect
                              (if (getprop (prop warstats) (@ itm rootid))
                                  (psx
                                   (:target-title
                                    :key (unique-id)
                                    :hide-reply t
                                    :show-count t
                                    :intro-text " "
                                    :warflagger-link (make-rootid-url (@ itm rootid))
                                    :extra-styling
                                    (grouped-styling-data itm (@ %thisref props))
                                    :warstats (getprop (prop warstats) (@ itm rootid))
                                    :... itm))
                                  (psx (:div :key (unique-id) "Loading...")))))
                         ((eq (@ itm rowtype) :reference)
                          (collect
                              (psx
                               (:reference
                                :key (unique-id)
                                ;;FIXME: URL generation should only be in one place!
                                :headline {}
                                :styling-data
                                (create :data-display-depth (prop display-depth)
                                        :data-replies-total 0)
                                :warflagger-link (make-missing-rootid-url (@ itm url))
                                :reference-domain (url-domain (@ itm url))
                                :reference (@ itm url))))))))))))
  
      (defun %grouped-warstats-urls (group)
        (let ((res (create)))
          (dolist (item group)
            (when (chain item (has-own-property :rootid))
              (setf (getprop res (@ item rootid))
                    (make-warstats-url (@ item rootid) 'warstats))))
          res))
  
      (defun grouped-styling-data (data props)
        (let* ((pardata
                (when (@ data refparent)
                  (getprop (@ props warstats) (@ data refparent))))
               (warstats
  