anchor.diff:               (psx
                 (:div
                  :class "opinion"
  +               :key (unique-id)
                  :style (create position :absolute
                                 top "1em"
                                 left (prop horizontal-position))
  -               (:div "title placeholder")
  +               (:div :key (unique-id) "title placeholder")
                  (:hilited-text
  +                :key (unique-id)
                   :... (@ this props)
                   :text (@ op comment)
                   :opinions (prop opinions (slice 1))
  
positive.code:        (def-component parent-segment
             (let ((focussed (focus-parent-p (@ this props))))
               (psx
                   (:span :style (create font-weight :bold position :relative)
                          :class (if focussed "parent-active" "parent-inactive")
                          (rebreak (prop text))
                          (when (and focussed
                                     (eql (prop last-char-pos)
                                          (+ (@ focussed 0 text-position 0)
                                             (@ focussed 0 text-position 1) 1)))
                            (psx (:opinion :opinions focussed
                                           :focus (prop focus)
                                           :tree-address
                                           (chain
                                            (prop tree-address)
                                            (concat
                                             (list (@ focussed 0 id)))))))))))
  
         (defun %make-segments (text opins props)
           (collecting
  
negative.code:             (:div
               :class
               (if (focus-p (@ this props)) "hilited" "hilited-parent")
               :key (unique-id)
               (%make-segments (prop text)
                               (remove-if-not
                                (lambda (x)
  