anchor.diff:              user-status-id
               user-status-id)))
   
  -(defmacro link (text url &key new-tab)
  +(defmacro link (text url &key new-tab tooltip)
     `(with-html
        (:a :href ,url
            :target ,(when new-tab
                       "_blank")
  +         :title ,tooltip
            ,text)))
   
   (defmacro row (&body body)
  
positive.code:   (:span :style "padding: 3px;"
           (link (:span :class (site-symbol-to-fontawesome-class site))
                 url
                 :new-tab t)))
  
  (defhtml rightlink (label)
    (:span :class "header-link" (link label
  
negative.code: 
  .thread {
      background-color: white;
      padding: 10px;
      outline-style: solid;
      outline-color: #CCC;
      outline-width: 1px;
  }
  ")
  
  