anchor.diff:                         (or (prop description) (prop name)))
                     (children-map (prop children)
                                   (lambda (child)
  -                                  (psx (:td :key (incf count) child))))))))
  +                                  (psx (:td :key (incf count)
  +                                            :style (create padding-left "1em")
  +                                            child))))))))
   
         (def-component custom-opform-layout
             (let ((state (@ this :state))
  
positive.code:      :reference (:type :url :description "Reference URL")
       :comment (:type :string))))
  
  (defun opinion-form-page ()
    (html-out
      (:h2 "Enter an opinion")
      (:div :id "opform")
      (:script
       :type "text/javascript"
       (str
        (ps
          (render
           (create-element
            webhax-form
            (create :fieldspecs
                    (lisp-raw
                     (json:encode-json-to-string
                      (cl-hash-util:collecting-hash-table (:mode :replace)
                        (gadgets:map-by-2
                        (lambda (k v)
                          (cl-hash-util:collect k
                            (webhax-validate:prep-fieldspec-body-for-json v)))
                        *opinion-form-specs*))))
                    :data (create) ;FIXME: add prefills here
                    :layout custom-opform-layout
                    :wrapwidget false))
           (chain document
                  (get-element-by-id "opform"))))))))
  
  (define-parts opinion-components
    (add-part :@javascript #'webhax-widgets:ps-widgets)
  
negative.code:           (chain text (slice end))))
  
         (defun hilite-excerpt (textdata excerpt offset)
           (if (and (not-empty excerpt) (not-empty (@ textdata text)))
               (let ((bounds
                      (find-excerpt-start/end textdata excerpt (or offset 0))))
                 (if bounds
  