anchor.diff:  (in-package #:plaster)
   
  -(defparameter *pastes-per-page* 25)
  -(defparameter *default-api-amount* 50)
  -(defparameter *maximum-api-amount* 100)
  -(defparameter *password-salt* "Something ˢᵉᶜʳᵉᵗ")
   (defparameter *paste-types*
     (list* "text"
            (sort (mapcar #'pathname-name
  
positive.code:                               (db:query (:and (:= 'author username)
                                                (:= 'visibility 1))))
                            :sort '((time :DESC))
                            :skip (* page *pastes-per-page*)
                            :amount *pastes-per-page*)))
        (r-clip:process T :pastes pastes
                          :user user
                          :username (user:username user)
                          :page page
                          :has-more (<= *pastes-per-page* (length pastes))))))
  
  (profile:define-panel pastes (:user user :lquery "user-panel.ctml")
    (let ((pastes (dm:get 'plaster-pastes
  
negative.code:                                     (annotation :id))))
  
  (define-trigger user:ready ()
    (defaulted-config 25 :pastes-per-page)
    (defaulted-config 50 :api :default-amount)
    (defaulted-config 100 :api :maximum-amount)
    (defaulted-config (make-random-string) :password-salt)
  
    (defaulted-config (list
                       (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))
                      :permissions :default)
  
    (defaulted-config (list
                       (perm plaster paste new)
                       (perm plaster paste view)
                       (perm plaster paste list)
                       (perm plaster paste user))
                      :permissions :anonymous)
  
    (apply #'user:add-default-permissions (config :permissions :default))
    (apply #'user:grant "anonymous" (config :permissions :anonymous)))
  
  (defun ensure-paste (paste-ish)
    (etypecase paste-ish
  