From 487ff51fb44e0d43182c17d3ada8e9d2c2a16bc3 Mon Sep 17 00:00:00 2001 From: colin Date: Tue, 3 Sep 2024 17:57:00 -0700 Subject: Make dummy landing page --- pastiche.lisp | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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 + ( + ( + (

"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) -- cgit v1.2.3