anchor.diff:             (when pos
                (list (elt pos 0) (+ (elt pos 0) (elt pos 1))))))
   
  +       (defun hilite-a-slice (text start end)
  +         (list
  +          (chain text (slice 0 start))
  +          (psx (:span :class "hilited"
  +                      :style (create 'background-color "orange")
  +                      (chain text (slice start end))))
  +          (chain text (slice end))))
  +
  +       (defun hilite-excerpt (textdata excerpt offset)
  +         (if (not-empty excerpt)
  +             (let ((bounds
  +                    (find-excerpt-start/end textdata excerpt (or offset 0))))
  +               (if bounds
  +                   (hilite-a-slice (@ textdata text)
  +                                   (elt bounds 0) (elt bounds 1))
  +                   (progn
  +                     (say "Excerpt not found")
  +                     (@ textdata text)))
  +               (@ textdata text))))
  +
         (def-component message
             (psx (:span (prop message))))
   
  
positive.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
  
negative.code:                   (getprop descs (prop formdata flag))))))
  
        (def-component text-sample-core
            (psx
             (:pre
              :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)))
          selection-change
          (lambda (ev)
            (let ((targ (@ ev target))
  