From 428604787c9eeaec0e35a7cb6221b848a82a2b7f Mon Sep 17 00:00:00 2001 From: colin Date: Mon, 12 Aug 2024 07:30:31 -0700 Subject: Fix: erroneous indentation in pre tag --- pastiche.lisp | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) (limited to 'pastiche.lisp') diff --git a/pastiche.lisp b/pastiche.lisp index d768b42..01ea05a 100644 --- a/pastiche.lisp +++ b/pastiche.lisp @@ -2,7 +2,7 @@ (in-package #:pastiche) -;;; SERVICE CONFIG, STARTING, STOPPING +;;; SERVICE CONFIG, STARTING, STOPPING (def:var *config* :init nil @@ -188,15 +188,18 @@ from make-paste-filename.")) paste :when= (or (lookup-paste id) (http:not-found instance)) filename := (merge-pathnames (filename paste) (paste-path*)) content := (a:read-file-into-string filename) - (with-output-to-string (out) - (html:html - ( - ( - ( (@ :href (http:route-to 'raw-paste :id id)) - "raw") - (

(title paste)) - (
 (escape-html-in-paste-content content))))
-       out))))
+    page := (
+             (
+              ( (@ :href (http:route-to 'new-paste-form))
+                   "new paste")
+              

+              ( (@ :href (http:route-to 'raw-paste :id id))
+                   "raw")
+              (
 (title paste))
+              (
+               (escape-html-in-paste-content content))))
+
+    (html:html-string page :pretty nil)))
 
 
 (http:defendpoint create-paste
@@ -245,7 +248,3 @@ from make-paste-filename."))
         html:

         (html: