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 --- package.lisp | 1 + pastiche.lisp | 27 +++++++++++++-------------- 2 files changed, 14 insertions(+), 14 deletions(-) diff --git a/package.lisp b/package.lisp index 2e317e7..4e6ef74 100644 --- a/package.lisp +++ b/package.lisp @@ -9,6 +9,7 @@ #: #: #:

+ #:
#: #:
    #:@)
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: