[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv7490

Modified Files:
	web-server.lisp 
Log Message:
Changed HTML output a slight bit

Date: Wed Nov 12 00:38:46 2003
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.10 lisppaste2/web-server.lisp:1.11
--- lisppaste2/web-server.lisp:1.10	Tue Nov 11 23:38:11 2003
+++ lisppaste2/web-server.lisp	Wed Nov 12 00:38:46 2003
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.10 2003/11/12 04:38:11 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.11 2003/11/12 05:38:46 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -190,11 +190,11 @@
            (body
             ((table :width "100%" :cellpadding 2)
 	     (tr ((td :align "left" :nowrap) "Paste number " ,paste-number ": ")
-		 ((td :width "100%") (b ,(encode-for-pre (paste-title paste)))))
+		 ((td :width "100%" :align "left") (b ,(encode-for-pre (paste-title paste)))))
 	     (tr ((td :align "left" :nowrap) "Pasted by: ")
-		 ((td :width "100%") ,(encode-for-pre (paste-user paste))))
+		 ((td :width "100%" :align "left") ,(encode-for-pre (paste-user paste))))
 	     (tr (td)
-		 ((td :width "100%") ,(time-delta (paste-universal-time paste))))
+		 ((td :width "100%" :align "left") ,(time-delta (paste-universal-time paste))))
 	     (tr ((td :align "left" :valign "top" :nowrap) "Paste contents:")
 		 (td))
 	     (tr (td (p)))
@@ -206,7 +206,7 @@
 			      (mapcar #'(lambda (a)
 					  `((tr (td (p)) (td))
 					    (tr
-					     (td ((a :name ,(prin1-to-string (paste-number a)))"Annotation title:"))
+					     (td ((a :name ,(prin1-to-string (paste-number a))) "Annotation title:"))
 					     (td ,(encode-for-pre (paste-title a))))
 					    (tr
 					     (td "Annotated by:")