anchor.diff:             (:text-sample-core
               :dispatch (prop dispatch)
               :text (state text)
  +            :textdata (state textdata)
               :excerpt (prop excerpt)
               :excerpt-offset (prop excerpt-offset)))
           get-initial-state
           (lambda ()
  -          (create :text "" :url "" :timeout nil))
  +          (create :text "" :url "" :timeout nil :textdata []))
           get-default-props
           (lambda ()
             (create :url ""))
  
positive.code:             :value (prop text)))
          selection-change
          (lambda (ev)
            (say ev)))
  
        ;;FIXME: Find a way to make this not pound the server per keystroke.
  
negative.code:                (case (@ results status)
                   ("success"
                    (set-state text (@ results text))
                    (set-state textdata (create-textdata (@ results text)))
                    (msgfunc (@ results message)))
                   ("failure"
                    (msgfunc (@ results message)))
  