anchor.diff:                         :editable editable))))
               (htm (:h3 "This person hasn't written anything here."))))
           :right (if editing
  -                 (html (:h2 "Style guide"))
                    (when mutuals
                      (mutual-connections-sidebar mutual-links)))
           :top (profile-top-html userid)
  
positive.code: 
            (t
              (htm
                (:p (str content)))))))))
  
  (defun profile-top-html (userid)
    (let ((user (db userid))
  
negative.code:           (editing
              (htm
                (:form :method "post" :action "/settings"
                  (:input :type "hidden" :name "next" :value (strcat *base-url* "/about"))
                  (:textarea :name (strcat "bio-" section-name)
                             (str (escape-for-html content)))
                  (:button :class "yes" :type "submit" :name "save" "Save")
                  (:a :class "cancel" :href *base-url* "Cancel")
                  )))
  