anchor.diff:        (string-capitalize (symbol-name site-symbol))))
   
   (defhtml sociallink (site url &optional custom-name)
  -  (:a :class "header rightlink"
  -      :target "_blank"
  -      :href url
  -      :title (site-symbol-to-name site custom-name)
  -      (:span :class (site-symbol-to-fontawesome-class site))))
  +  (:span :style "padding: 3px;"
  +         (link (:span :class (site-symbol-to-fontawesome-class site))
  +               url
  +               :new-tab t))
  +
  +  ;; (:a :class "header rightlink"
  +  ;;     :target "_blank"
  +  ;;     :href url
  +  ;;     :title (site-symbol-to-name site custom-name)
  +  ;;     (:span :class (site-symbol-to-fontawesome-class site)))
  +  )
   
   (defhtml rightlink (label)
  -  (:a :class "header rightlink"
  -      :href (concatenate 'string
  -                         "/"
  -                         (string-downcase label))
  -      label))
  +  (:span :style "padding: 3px;" (link (string-downcase label) "/")))
   
   (defun print-username (post-id)
     (execute-query-one user "SELECT UserName,
  
positive.code: ;;; page skeleton
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defparameter *header*
      '((row :class "header banner"
         (col 12 :class "header text"
  
          ;; logo and slogans
          (:span :class "hidden-xs"
                 (:a :href "/"
                     (:img :class "header logo" :src *logo-path*))
                 (if *slogans*
                     (:b :class "hidden-sm header slogan"
                         (:raw (random-elt *slogans*)))))
          (:span :class "visible-xs-inline"
                 (:a :href "/"
                     (:img :class "header logo small" :src *small-logo-path*)))
  
          ;; right links
          (rightlinks *rightlinks* *sociallinks*))))))
  
  ;;; The basic format that every viewable page will follow.
  (defmacro standard-page ((&key title) &body body)
  
negative.code:   ;; dropdown only displays correctly when I wrap all the buttons in this div
    (row :class "dropdown"
         (col 12
           (:button :class "btn btn-default btn-sm threads"
                    :onclick "window.location='new-thread'"
                    "New Thread")
  
           (:form :class "rightbuttons"
                  :action "b/apply-tags"
                  :method "post"
  
                  (:input :type "button"
                          :class "btn btn-default btn-sm threads reset-tags"
                          :onclick "window.location='b/reset-tags'"
                          :value "Reset Boards")
                  (:input :type "submit"
                          :class "btn btn-default btn-sm threads"
                          :value "Apply Boards")
  
                  (tags-filter-dropdown))
  
           (desktop-only (search-box)))))
  
  (defhtml search-box ()
    (:form :action "/"
  