diff options
| -rw-r--r-- | pastiche.lisp | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/pastiche.lisp b/pastiche.lisp index 1a0b582..ae0a2d3 100644 --- a/pastiche.lisp +++ b/pastiche.lisp @@ -300,9 +300,19 @@ from make-paste-filename.")) +paste-length-limit+) (http:err :content (format nil "Paste bodies limited to 1MB")))) +(http:defendpoint landing + :get :route "" + :returns "text/html" + :handle (with-output-to-string (out) + (html:html + (<html> + (<body> + (<p> "yo"))) + out))) + (http:defendpoint new-paste-form :using has-known-key - :get :route "" + :get :route "/paste" :returns "text/html" :handle (with-output-to-string (out) |