anchor.diff:           (gratitude-add-subject :subjects (parse-subject-list (post-parameter "subject"))
                                   :text (post-parameter "text")
                                   :next (post-parameter "next")
  -                                :results (iter (for result in (metaphone-index-query *metaphone-index* (post-parameter "name")))
  -                                               (let ((id (result-id result)))
  -                                                 (collect (list id (getf (db id) :name)))))))
  +                                :results (search-people (post-parameter "name"))))
           (t
            (gratitude-compose
              :text (post-parameter "text")
  
positive.code:     (require-user
        (let* ((gratitude (db (parse-integer id))))
          (require-test ((eql *userid* (getf gratitude :author))
                         "You can only edit gratitudes you have written.")
            (cond
              ((post-parameter "delete")
               (confirm-delete :url (s+ "/gratitude/" id "/edit")
  
negative.code:              (htm (:li (:em "nobody yet"))))
             (dolist (subject subjects)
               (htm
                 (:li 
                   (str (getf (db subject) :name)) 
                   (unless existing-url 
                     (htm 
                       (:button :class "text large" :type "submit" :name "remove" :value subject " ⨯ ")))))))
            (when subjects
              (htm (:input :type "hidden" :name "subject" :value (format nil "~{~A~^,~}" subjects))))
            (when next
              (htm (:input :type "hidden" :name "next" :value next)))
            (unless existing-url 
              (htm 
                (:p (:button :type "submit" :class "text" :name "add" :value "new" "+ Add a person or project"))))
            (:textarea :rows "8" :name "text" (str text))
            (:p  
              (:button :type "submit" :class "cancel" :name "cancel" "Cancel")
              (:button :class "yes" :type "submit" 
                       :name "create" 
                       (str (if existing-url "Save" "Create"))))))))
       :selected "people")
      (gratitude-add-subject :text text :next next)))
  
  