anchor.diff:                                (db:query (:and (:= 'author username)
                                                 (:= 'visibility 1))))
                             :sort '((time :DESC))
  -                          :skip (* page *pastes-per-page*)
  -                          :amount *pastes-per-page*)))
  +                          :skip (* page (config :pastes-per-page))
  +                          :amount (config :pastes-per-page))))
         (r-clip:process T :pastes pastes
                           :user user
                           :username (user:username user)
                           :page page
  -                        :has-more (<= *pastes-per-page* (length pastes))))))
  +                        :has-more (<= (config :pastes-per-page) (length pastes))))))
   
   (profile:define-panel pastes (:user user :lquery "user-panel.ctml")
     (let ((pastes (dm:get 'plaster-pastes
  
positive.code:                                     (annotation :id))))
  
  (define-trigger user:ready ()
    (user:add-default-permissions
     (perm plaster paste new)
     (perm plaster paste view)
     (perm plaster paste list)
     (perm plaster paste user)
     (perm plaster paste edit own)
     (perm plaster paste delete own))
  
    (user:grant
     "anonymous"
     (perm plaster paste new)
     (perm plaster paste view)
     (perm plaster paste list)
     (perm plaster paste user)))
  
  (defun ensure-paste (paste-ish)
    (etypecase paste-ish
  
negative.code:                             (db:query (:and (:= 'author (user:username user))
                                              (:= 'visibility 1))))
                          :sort '((time :DESC))
                          :amount (config :pastes-per-page))))
      (r-clip:process T :pastes pastes)))
  
  (define-api plaster/view (id &optional current-password include-annotations) ()
  