anchor.diff:    (:span :style "padding: 3px;"
            (link (:span :class (site-symbol-to-fontawesome-class site))
                  url
  -               :new-tab t)))
  +               :new-tab t
  +               :tooltip (if custom-name
  +                            custom-name
  +                            (string-capitalize site)))))
   
   (defhtml rightlink (label)
     (:span :class "header-link" (link label
  
positive.code:             user-status-id
              user-status-id)))
  
  (defmacro link (text url &key new-tab)
    `(with-html
       (:a :href ,url
           :target ,(when new-tab
                      "_blank")
           ,text)))
  
  (defmacro row (&body body)
  
negative.code:                        (execute-query-loop post ,query (,@params)
                           (post-row (getf post :|postid|)
                                     (getf post :|posttime|)
                                     (getf post :|postcontent|)))))))
  
  (defhtml post-row (id time content)
    (row
      (col 12 :class "thread"
           (:div :style "margin-bottom: -15px;"
                 (:span :style "font-size: 12px; color: gray;"
                        (let ((options (print-post-options id)))
                          (if (not (equal options ""))
                              (:raw (join-string-list
                                     (list (with-html-string
                                             (:b (print-user-name-and-ip id)))
                                           (print-post-options id))
                                     " | "))
                              (:b (print-user-name-and-ip id))))
                        (:span :style "float: right;"
                               :class "time"
                               time)))
           (:br)
           (:div (format-post content)))))
  
  