diff options
| author | colin <colin@cicadas.surf> | 2024-08-16 18:40:57 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-08-16 18:40:57 -0700 |
| commit | 7fd198a10a2d537208c5287c76c42be8b312e7ab (patch) | |
| tree | 7687fa5902b8e5855fbd5919dfb34a9e8683b176 /pastiche.lisp | |
| parent | d30b278d6a780a1a582ccb85e87ef2fb7025eac0 (diff) | |
Remove link to paste form
Diffstat (limited to 'pastiche.lisp')
| -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 |