diff options
author | colin <colin@cicadas.surf> | 2024-08-12 07:30:31 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2024-08-12 07:30:31 -0700 |
commit | 428604787c9eeaec0e35a7cb6221b848a82a2b7f (patch) | |
tree | 4211f3d3ba6b2bc34b46a6baf984fca04a3863bb /pastiche.lisp | |
parent | 9586e51ed32d96c71e53f5c20def37444ba1b64d (diff) |
Fix: erroneous indentation in pre tag
Diffstat (limited to 'pastiche.lisp')
-rw-r--r-- | pastiche.lisp | 27 |
1 files changed, 13 insertions, 14 deletions
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 - (<html> - (<body> - (<a> (@ :href (http:route-to 'raw-paste :id id)) - "raw") - (<h4> (title paste)) - (<pre> (escape-html-in-paste-content content)))) - out)))) + page := (<html> + (<body> + (<a> (@ :href (http:route-to 'new-paste-form)) + "new paste") + <br> + (<a> (@ :href (http:route-to 'raw-paste :id id)) + "raw") + (<h4> (title paste)) + (<pre> + (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:<br> (html:<button> "Paste")))) out))) - - - - |