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:")