Plaster

commonlisp
;; module.lisp (in-package #:rad-user) (define-module #:plaster (:use #:cl #:radiance)) ;; Triggers (define-trigger db:connected () (db:create 'plaster-pastes '((title (:varchar 32)) (time (:integer 5)) (text :text) (author (:varchar 32)) (visibility (:integer 1)) (password (:varchar 128)))) (db:create 'plaster-annotations '((paste :id) (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 edit own) (perm plaster paste delete own) (perm plaster paste user)) (user:grant "anonymous" (perm plaster paste new) (perm plaster paste view) (perm plaster paste list) (perm plaster paste user)))