anchor.diff:        (:input :type "hidden" :name "next" :value next-url)
         (:input :type "submit" :value "Flag"))))
   
  -(defun activity-icons (&key hearts comments)
  -  (html
  -    (:div :class "icons"
  +(defun activity-icons (&key url hearts comments)
  +  (html
  +    (:a :class "icons" :href url
         (when hearts
           (htm
  -          (:img :src "/media/icons/heart16.png") 
  +          (:img :alt "love:" :src "/media/icons/heart16.png") 
             (str hearts))) 
         (when comments
           (htm
  -          (:img :src "/media/icons/comment16.png") 
  +          (:img :alt "comments:" :src "/media/icons/comment16.png") 
             (str comments))))))
   
   (defun activity-item (&key url content time next-url hearts comments)
     (html
  -    (:div :class "item resource"
  +    (:div :class "item left resource"
         (str (timestamp time))
         (str content)
         (:div :class "actions"
  
positive.code: 
  
  (defun timestamp (time)
    (html (:div :class "timestamp" :data-time time (str (humanize-universal-time time)))))
  
  (defun love-button (url)
    (html
  
negative.code:                        :direction :output
                         :if-exists :supersede)
      (with-standard-io-syntax
        (prin1 data out))
      (fsync out))
    (rename-file (s+ +db-path+ "users/" username "-tmp") username))
  
  (defun run ()
    (load-users)
    (load-tokens)
    (start *acceptor*))
  
  (defmacro json (&rest properties)
    `(progn
  