anchor.diff:            (let ((segpoints (excerpt-segment-points
                               (collecting (dolist (op opins)
                                             (collect (@ op 0))))
  -                            (length text))))
  +                            (length text)))
  +                (current-id (when (@ props tree-address)
  +                              (list-last (@ props tree-address)))))
               (do-window ((start end) segpoints)
                 (let* ((id (strcat "lvl-"
                             (chain props
  
positive.code:         (when (prop dispatch)
            (funcall (prop dispatch)
                     (create :type 'set-indicated
                             :data (immediate-children-ids (prop opinions)))))
          (set-state viewable true))
        handle-mouse-leave
        (lambda (e)
          (when (prop dispatch)
            (funcall (prop dispatch)
                     (create :type 'clear-indicated
                             :data (immediate-children-ids (prop opinions)))))
          (set-state viewable false)))
  
      (def-component plain-segment
  
negative.code:         (create :id (strcat "hilited-text-" (unique-id))))
        selection-change
        (lambda (ev)
          (when (prop dispatch)
            (if (is-selection-in-single-hilited-text? (chain rangy (get-selection)))
              (let* ((textel (chain document (get-element-by-id (state id))))
                     (range (chain rangy (get-selection) (get-range-at 0)
                                   (to-character-range textel)))
  