anchor.diff:         (def-component general-opinion-knobdule
              (let* ((all-ops (prop opinions))
                     (opins (collecting
  -                          (dolist (o all-ops)
  -                            (when (and (@ o 0 excerpt)
  -                                       (< 0 (@ o 0 excerpt length)))
  -                              (collect o))))))
  +                           (dolist (o all-ops)
  +                             (unless (and (@ o 0 excerpt)
  +                                          (< 0 (@ o 0 excerpt length)))
  +                               (collect o))))))
                (psx (:span :on-click (@ this handle-click)
  -                         (when opins " X")
  +                         (when (not-empty opins) " X")
                            (:span :style (create position :relative) :key 1
                                   (%make-opin-popups
                                    (if (and (not (prop not-viewable))
  
positive.code:          handle-click
           (lambda (e)
             (unless (prop not-viewable)
                         (set-state viewable (not (state viewable)))
                         (chain e (stop-propagation)))))
  
         (def-component plain-segment
             (psx
  
negative.code:                (let ((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 (unique-id)
                                 :id (strcat "lvl-"
                                             (chain props
                                                    tree-address length (to-string))
                                             "-pos-"
                                             (chain end (to-string)))
                                 :text (chain text (slice start end))
                                 :focusfunc (@ props focusfunc)
                                 tree-address (@ props tree-address))))
                   (cond ((< (@ common-data :opinions length) 1)
                          (collect
  