anchor.diff:                     (rebreak (prop text)))))
   
          (def-component parent-segment
  -           (let ((focussed (focus-parent-p (prop opinions) (prop focus))))
  +           (let ((focussed (focus-parent-p (@ this props))))
                (psx
                    (:span :style (create font-weight :bold position :relative)
                           :class (if focussed "parent-active" "parent-inactive")
  
positive.code:            (psx
              (:div
               :class
               (if (focus-p (prop focus)) "hilited" "hilited-parent")
               (%make-segments (prop text)
                               (remove-if-not
                                (lambda (x)
                                  (chain (@ x 0) (has-own-property :excerpt)))
                                (prop opinions))
                                (prop focus)))))
  
         (def-component flag-display
             (psx
              (:span (prop flag 1))))
  
         (defun %make-opin-popups (opinions focus-func)
           ;(setf opinions (mock-opinions 30))
           (loop for op in opinions
                 for (x y) in (opinion-fan (length opinions))
                 collect
                 (psx (:mini-opinion :opinion (@ op 0)
                                     :top (+ y (lisp *unit-string*))
                                     :left (+ x (lisp *unit-string*))
                                     :key (unique-id)
                                     :focus-func focus-func))))
  
         (def-component
             mini-opinion
  
negative.code:                           (psx (:opinion :opinions focussed
                                           :focus (prop focus))))))))
  
         (defun %make-segments (text opins props)
           (collecting
             (let ((segpoints (excerpt-segment-points
                               (collecting (dolist (op opins) (collect (@ op 0))))
  