anchor.diff:              (s+ " until "
                   (caddr (multiple-value-list (humanize-exact-time end-date)))))))))
   
  -(defun upcoming-events (items &key (page 0) (count 20) paginate url (location t) (sidebar nil))
  -  (let ((start (* page count))
  +(defun upcoming-events-html (event-list &key (page 0) (count 20) paginate url (location t) (sidebar nil))
  +  (let ((items (populate-calendar event-list))
  +        (start (* page count))
           (calendar-date nil))
       (html
         (iter (for i from 0 to (- (+ start count) 1))
  
positive.code:                         (with-mutex (*event-mutex*)
                            (asetf *event-index* (remove event it)))))))))
  
          (populate-calendar (remove-private-items
                               (trim-and-update
                                 (if global-search
                                   *event-index*
                                   local-events)))
                             :page page
                             :count count
                             :url url
                             :sidebar sidebar
                             :paginate paginate)))))
  
  (defun events-rightbar ()
    (html
  
negative.code:                (asetf new-timestamp
                        (adjust-timestamp (or it prior-timestamp)
                          (offset offset-period offset-count)))
                 (pprint new-timestamp)
                 (terpri)
                 (cond
                   ((and end-timestamp
                         (local-time:timestamp> new-timestamp end-timestamp))
  