anchor.diff:                                :key id
                                 :id id
                                 :text (chain text (slice start end))
  +                              :id-of-text current-id
                                 :focusfunc (@ props focusfunc)
                                 :looks (@ props looks)
                                 :warstats (@ props warstats)
  
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 :type :selection
                         :range range
                         :excerpt (getprop excerpt 0)
                         :offset (getprop excerpt 1))))
              (funcall
               (prop dispatch)
               (create :type :selection
                       :range false :excerpt "" :offset 0))))))
  
      (defun %get-replies-count (opinions props)
        (let ((total 0))
  