anchor.diff:              (if (focus-p (@ this props)) "hilited" "hilited-parent")
               :key id
               :id (strcat "hilited-text-" id)
  +            :on-mouse-up (@ this selection-change)
  +            :on-key-press (@ this selection-change)
               (when (prop text)
                 (%make-segments (prop text)
                                 (remove-if-not
  
positive.code:       (mapcar (lambda (opin)
                  (@ (getprop opin 0) id))
                opinions))
  
      (def-component hilited-segment
          (psx
  
negative.code:                                (prop opinions))
                                (set-copy (@ this props)
                                          'hilited-text-id
                                          (strcat "hilited-text-" id)))))))
        selection-change
        (lambda (ev)
          (say (is-selection-in-single-hilited-text? (chain rangy (get-selection))))))
  
      (defun %get-replies-count (opinions props)
        (let ((total 0))
  