anchor.diff:                               (eql (prop last-char-pos)
                                     (+ (@ focussed 0 text-position 0)
                                        (@ focussed 0 text-position 1))))
  +                    ;;FIXME: obsolete
                       (psx (:opinion :opinions focussed
                                      :key (unique-id)
                                      :focus (prop focus)
  
positive.code:                               'hide-popup (@ props hide-popup)
                                :dispatch (@ props dispatch)
                                tree-address (@ props tree-address))))
                (cond ((< (@ common-data :opinions length) 1)
                         (collect
                             (psx (:plain-segment
                                   :... common-data))))
  
negative.code:                                    :look-handler (prop look-handler)
                                     :tree-address (prop tree-address))))))))
  
      (defun %make-segments (text props)
        (collecting
            (let* ((current-id (when (@ props tree-address)
                                 (list-last (@ props tree-address))))
                   (opstore (@ props opinion-store))
                   (opins (immediate-children-ids current-id opstore))
                   (segpoints (excerpt-segment-points
                               (mapcar (lambda (id) (getprop opstore id)) opins)
                               (length text))))
              (do-window ((start end) segpoints)
                (let* ((id (strcat "lvl-"
                            (chain props
  