anchor.diff:            :on-key-press (@ this selection-change)
             (when (prop text)
               (%make-segments (prop text)
  -                            (remove-if-not
  -                             ;;FIXME: do what with broken excerpts?
  -                             ;; right now they just disappear?
  -                             (lambda (x) (has-found-excerpt-p (@ x 0)))
  -                             (prop opinions))
                               (set-copy (@ this props)
                                         'hilited-text-id
                                         (state id))))))
  
positive.code:                           "-pos-"
                            (chain end (to-string))))
                       (common-data
                        (create :opinions
                                (remove-if-not
                                 (lambda (itm)
                                   (%overlap-p
                                    start (1- end)
                                    (@ itm 0 'text-position 0)
                                    (+ (@ itm 0 'text-position 0)
                                       (@ itm 0 'text-position 1) (- 1))))
                                 opins)
                                :key id
                                :id id
  
negative.code:                              (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)
  