diff options
author | colin <colin@cicadas.surf> | 2024-09-03 17:57:00 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2024-09-03 17:57:00 -0700 |
commit | 487ff51fb44e0d43182c17d3ada8e9d2c2a16bc3 (patch) | |
tree | 815789733150f4b4a3ea48aa9fede89dd381de66 | |
parent | 408e69c8d031b2ddb59b2b88dc2ac22f4c7db1d1 (diff) |
Make dummy landing page
-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) |