anchor.diff:           (when (getf *user* :admin)
              (htm
                (:div :class "long"
  -               (:label :for "custom-url" "Custom Url")
  +               (:label :for "custom-url" "Custom Url (Optional. For major events only.)")
                  (:input :type "text"
                          :id "custom-url"
                          :name "custom-url"
  
positive.code:                   (title (or (post-parameter-string "title")
                               (getf item :title)))
                    (custom-url (or (when (getf *user* :admin)
                                      (hyphenate
                                        (post-parameter-string "custom-url")))
                                    (getf item :custom-url)))
                    (details (or (post-parameter-string "details")
                                 (getf item :details)))
  
negative.code:                                        longitude
                                         "location" address
                                         "title" title
                                         "custom-url" custom-url
                                         "details" details
                                         "date" date
                                         "time" time
  