From 7fd198a10a2d537208c5287c76c42be8b312e7ab Mon Sep 17 00:00:00 2001 From: colin Date: Fri, 16 Aug 2024 18:40:57 -0700 Subject: Remove link to paste form --- pastiche.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'pastiche.lisp') 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 := ( ( - ( (@ :href (http:route-to 'new-paste-form)) - "new paste")
( (@ :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 -- cgit v1.2.3