diff options
| -rw-r--r-- | pastiche.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/pastiche.lisp b/pastiche.lisp index e759018..2d5a5d3 100644 --- a/pastiche.lisp +++ b/pastiche.lisp @@ -198,8 +198,6 @@ from make-paste-filename.")) content := (a:read-file-into-string filename) page := (<html> (<body> - (<a> (@ :href (http:route-to 'new-paste-form)) - "new paste") <br> (<a> (@ :href (http:route-to 'raw-paste :id id)) "raw") @@ -224,6 +222,7 @@ from make-paste-filename.")) :parameters (title string) (content string) + (privacy string) :documentation "Create a new paste and return a URL to its content." :authenticate (< (length title) +paste-title-limit+) @@ -231,7 +230,6 @@ from make-paste-filename.")) (do> location := (make-paste-filename content title) qualified-location := (merge-pathnames location (paste-path*)) - (a:write-string-into-file content qualified-location :if-exists :supersede |