anchor.diff:  
     (pagination))
   
  -(defhtml thread-dropdown ()
  -  ;; (:span :style "float: right;" :class "btn-group"
  -  ;;        (:a :class "btn btn-default btn-sm dropdown-toggle"
  -  ;;            :data-toggle "dropdown"
  -  ;;            :href "#"
  -  ;;            (:span :class "caret"))
  -  ;;        (:ul :class "dropdown-menu pull-right"
  -  ;;             "TODO - add stuff here"))
  -  )
  +(defhtml thread-dropdown (thread-id)
  +  (:span :style "float: right;" :class "btn-group"
  +         (:a :class "btn btn-default btn-sm dropdown-toggle"
  +             :data-toggle "dropdown"
  +             :href "#"
  +             (:span :class "caret"))
  +         (:ul :class "dropdown-menu pull-right"
  +              (execute-query-one thread
  +                  "SELECT (SELECT MIN(postid)
  +                           FROM posts
  +                           WHERE threadid = threads.threadid) AS opid,
  +                          locked,
  +                          stickied
  +                   FROM threads
  +                   WHERE threadid = ?"
  +                  (thread-id)
  +                (thread-dropdown-contents thread-id
  +                                          (getf thread :|opid|)
  +                                          (getf thread :|locked|)
  +                                          (getf thread :|stickied|))))))
   
   (publish-page view-thread
     (let ((post-id (get-parameter "post"))
  
positive.code:                " | "))))))
  
  (defun format-date-for-display (date)
    (local-time:to-rfc3339-timestring
     (local-time:parse-timestring
      (substitute #\T #\  date)
      :fail-on-error nil)))
  
  (defhtml thread-row-dropdown (thread-id op-id &key (locked nil) (stickied nil))
    (:div :style "float: right;" :class "btn-group"
  
negative.code:                           (user-ip user-ip)))
            (:body (:div :style "margin-bottom: 5px;"
                         (thread-buttons)
                         (when thread-id
                           (thread-dropdown thread-id)))
                   (posts-table
                    (format nil "SELECT posts.*
                                 FROM posts
  