anchor.diff:  
         (def-component text-sample-core
             (psx
  -           (:pre
  +           (:pre :id "textsample"
               :style (create :overflow "auto" :background "lightgrey"
                              'white-space "pre-wrap":border "1px"
                              :height "15em" :width "40em" :cursor "text")
               :on-mouse-up (@ this selection-change)
               :on-key-press (@ this selection-change)
  -            :ref (lambda (ref)
  -                   (setf (@ component-this-ref sample-element) ref))
  -            (prop text)))
  +            (hilite-excerpt (prop textdata) (prop excerpt) (prop offset))))
           selection-change
           (lambda (ev)
             (let ((targ (@ ev target))
  
positive.code: 
  (define-parts opinion-components
    (add-part :@javascript #'webhax-widgets:ps-widgets)
    (add-part
     :@javascript
     (lambda ()
  
negative.code:                          (create :type :edit
                                   :data (create :excerpt excerpt
                                                 'excerpt-offset offset))))))
            (say ev)))
  
        ;;FIXME: Find a way to make this not pound the server per keystroke.
        (def-component text-sample
  