From: Brian M. <bma...@us...> - 2008-11-01 02:42:00
|
Update of /cvsroot/sbcl/sbcl-page In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv15159 Modified Files: generate-page.lisp news-page.lisp platform-support.lisp sbcl.css Log Message: Changes for HTML 4.01 validation and mostly CSS2 validation (a CSS3 property is being used). Index: generate-page.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl-page/generate-page.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- generate-page.lisp 1 Nov 2008 02:26:40 -0000 1.4 +++ generate-page.lisp 1 Nov 2008 02:41:44 -0000 1.5 @@ -35,7 +35,8 @@ (<html> (<head> (<title> title " - Steel Bank Common Lisp") - <link rel= "stylesheet" type= "text/css" href= "sbcl.css"/>) + <link rel= "stylesheet" type= "text/css" href= "sbcl.css"/> + <meta http-equiv= "Content-Type" content= "text/html;charset=utf-8"/>) (<body> (<div class= "header"> (<h1> "Steel Bank Common Lisp")) @@ -70,7 +71,7 @@ (let ((file-name (merge-pathnames (make-pathname :type "html") (merge-pathnames fname *root*)))) (with-open-file (f file-name :direction :output :if-exists :supersede) - (format f "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\" \"http://www.w3.org/TR/html4/strict.dtd\">~%") + (format f "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">~%") (let ((*xml-print-mode* :html)) (xml-output-to-stream f (wrap-page-body-fun title body-fun))))))) Index: news-page.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl-page/news-page.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- news-page.lisp 1 Nov 2008 02:26:40 -0000 1.2 +++ news-page.lisp 1 Nov 2008 02:41:44 -0000 1.3 @@ -47,11 +47,11 @@ (mapcar (lambda (news) - (<p> + (<div> (<a href=,(car news)> "") (<h2> (format nil "New in version ~A" (car news))) - (<div class= "back-to-top-link"> - (<a href="#top"> "Back to top")) + (<span class= "back-to-top-link"> + (<a href="#top"> "Back to top")) (format-as-ul (cdr news)))) (loop for i from 1 to 2 @@ -77,11 +77,11 @@ (mapcar (lambda (news) - (<p> + (<div> (<a href=,(car news)> "") (<h2> (format nil "New in version ~A" (car news))) - (<div class= "back-to-top-link"> - (<a href="#top"> "Back to top")) + (<span class= "back-to-top-link"> + (<a href="#top"> "Back to top")) (format-as-ul (cdr news)))) *recent-news*))) Index: platform-support.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl-page/platform-support.lisp,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- platform-support.lisp 1 Nov 2008 02:26:40 -0000 1.12 +++ platform-support.lisp 1 Nov 2008 02:41:44 -0000 1.13 @@ -62,14 +62,14 @@ <a href=,link> <span>) - (<div class= "big-height"> - (<span class= "hide-me"> - (fourth (assoc status *statuses*))) - " " - (or version "") - (if (equal version (car *most-recent-release*)) - (<i> " newest") - "")))))) + (<span class= "big-height"> + (<span class= "hide-me"> + (fourth (assoc status *statuses*))) + " " + (or version "") + (if (equal version (car *most-recent-release*)) + (<i> " newest") + "")))))) (defun port-link (proc system) (fourth (find-if #'(lambda (e) Index: sbcl.css =================================================================== RCS file: /cvsroot/sbcl/sbcl-page/sbcl.css,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- sbcl.css 31 Oct 2008 18:05:10 -0000 1.7 +++ sbcl.css 1 Nov 2008 02:41:44 -0000 1.8 @@ -9,9 +9,9 @@ a.no-highlight:hover { background-color: inherit; } a.no-highlight:active { background-color: inherit; } -div.back-to-top-link { float: right; margin-left: 1em; } +span.back-to-top-link { font-size: 75%; } -div.header { margin: 0pt; padding: 0pt; width: 100%; background-color: #EEE; border-bottom: 2pt solid #999; border-top: 0pt solid invisible; } +div.header { margin: 0pt; padding: 0pt; width: 100%; background-color: #EEE; border-bottom: 2pt solid #999; border-top: 0pt; } div.header h1 { font-size: x-large; font-weight: bold; text-align: center; padding: 5pt; margin: 0pt; } div.body-contents { padding: 5pt; margin-left: 10%; margin-right: 10%; } @@ -45,14 +45,14 @@ .available { background-color: #0E0; border: 1pt solid #999; } .port-table .available a:hover { background-color: #0F0; } .available:hover { background-color: #0F0; } -.port-table a:link, .port-table a:visited { display: block; text-decoration: none; cursor: hand; } +.port-table a:link, .port-table a:visited { display: block; text-decoration: none; cursor: pointer; } .port-table a:link { color: #000; } .port-table a:visited { color: #222; } .key-blob th { height: 3em; width: 3em; border: 1pt solid #999; } .key th { font-weight: bold; width: 3em; text-align: left; } .processor-header th { text-align: center; font-size: 100%; } .big-height { padding: 0; margin: 1px; background-color: inherit; } -.key a { cursor: hand; } +.key a { cursor: pointer; } .system-header th { text-align: left; padding-right: 5pt; } .key td { padding: .5ex; padding-left: 1em; min-height: 8em; border-left: 1pt solid #999; } .key h1 { font-size: 100%; font-weight: bold; padding: 0; } |