anchor.diff:  (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)))))
  +         (: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)))))
   
   (defhtml thread-buttons ()
     (let ((thread-id (get-parameter "thread")))
  
positive.code:               "TODO - add stuff here")))
  
  (publish-page view-thread
    ;; if passed "post" parameter, redirect to appropriate thread and highlight post
    (if (get-parameter "post")
        (execute-query-one thread
            "SELECT ThreadID FROM posts WHERE PostID = ?"
            ((get-parameter "post"))
          (redirect (format nil
                            "/view-thread?thread=~d&highlight=~d#post~d"
                            (getf thread :|threadid|)
                            (get-parameter "post")
                            (get-parameter "post")))))
  
    (if (not (equal (empty-string-if-nil (get-parameter "thread"))
                    ""))
        (standard-page
            (:title (get-thread-title (get-parameter "thread")))
          (:body (:div :style "margin-bottom: 5px;"
                       (thread-buttons)
                       (thread-dropdown))
                 (posts-table "SELECT *
             FROM posts
             WHERE ThreadID = ?
             ORDER BY PostTime
             LIMIT ?
             OFFSET ?"
                              (get-parameter "thread")
                              *posts-per-page*
                              (if (get-parameter "page")
                                  (* (- (parse-integer
                                         (get-parameter "page")) 1)
                                     *posts-per-page*)
                                  0))
                 (:div :style "margin-top: 5px; margin-bottom: 5px;"
                       (thread-buttons))
                 (:div :class "fake-copyright"
                       (:raw *fake-copyright*))
                 (:script (view-thread-js))))
        (redirect "/")))
  
  (publish-page login
    (standard-page
  
negative.code: (eval-when (:compile-toplevel :load-toplevel :execute)
    (defparameter *header*
      '((row :class "header" :style (format nil "background-color: ~a" *ignorama-purple*)
             (col 12
  
               ;; logo and slogans
               (:div :class "container"
                     (row
                       (desktop-only
                         (col 6 :style "padding-top: 4px;"
                              (:a :href "/"
                                  (:img :src *logo-path*))
                              (if *slogans*
                                  (:b :style (format nil "position: absolute;
                top: 15px; color: ~a" *header-text-color*)
                                      (:raw (random-elt *slogans*))))))
                       (mobile-only
                         (col 6 :style "padding-top: 15px;"
                              (:a :href "/"
                                  (:img :src *logo-path*))))
  
                       ;; right links
                       (col 6
                         (rightlinks *rightlinks* *sociallinks*)))))))))
  
  ;;; The basic format that every viewable page will follow.
  (defmacro standard-page ((&key title) &body body)
  