|
[Sbcl-commits] CVS: sbcl-page sbcl.css,1.3,1.4 platform-support.lisp,1.6,1.7
From: Juho Snellman <jsnell@us...> - 2006-01-29 21:19
|
Update of /cvsroot/sbcl/sbcl-page
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22547
Modified Files:
sbcl.css platform-support.lisp
Log Message:
Display version numbers in the platform support / download table (thanks to Kevin Reid)
Index: sbcl.css
===================================================================
RCS file: /cvsroot/sbcl/sbcl-page/sbcl.css,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- sbcl.css 11 Nov 2004 13:22:12 -0000 1.3
+++ sbcl.css 29 Jan 2006 21:19:47 -0000 1.4
@@ -36,17 +36,21 @@
/* for the platform-table page */
table.port-table { border: 1pt solid black; border-collapse: collapse; background-color: white; }
table.port-table th { border: 1pt solid #999; background-color: #DED; font-size: 100%; font-weight: bold; }
-table.port-table td { height: 2em; width: 2em; }
+table.port-table td { height: 2.5em; min-width: 2.5em; vertical-align: middle; text-align: center; padding: 0; }
.not-applicable { background-color: #F0F0F0; margin: 1pt; }
.not-available { background-color: #A00; border: 1pt solid #999; }
.in-progress { background-color: #DD2; border: 1pt solid #999; }
.not-maintained { background-color: #555; border: 1pt solid #999; }
.available { background-color: #00E000; border: 1pt solid #999; }
-.port-table a:hover { background-color: #0F0; cursor: hand; }
-.key-blob th { height: 2em; width: 2em; border: 1pt solid #999; }
+.port-table a:link, .port-table a:visited { display: block; text-decoration: underline; cursor: hand; font-size: .75em; }
+.port-table a:link { color: #000; }
+.port-table a:visited { color: #222; }
+.port-table a:visited:hover { background-color: #0F0; }
+.port-table a:link:hover { background-color: #0F0; }
+.key-blob th { height: 2.5em; width: 2.5em; border: 1pt solid #999; }
.key th { font-size: 100%; font-weight: bold; width: 2em; border-right: 1pt dotted #999; text-align: left; }
.processor-header th { text-align: center; font-size: 100%; }
-.big-height { height: 2em; width: 2em; padding: 0pt; margin: 0pt; background-color: inherit; }
+.big-height { min-width: 2.5em; padding: 1em 0; margin: 1px; background-color: inherit; }
.key a { cursor: hand; }
.system-header th { text-align: left; font-size: 100%; padding-right: 5pt; }
.key td { padding-left: 1em; padding-right: 1ex; }
Index: platform-support.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl-page/platform-support.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- platform-support.lisp 11 Dec 2005 17:48:55 -0000 1.6
+++ platform-support.lisp 29 Jan 2006 21:19:47 -0000 1.7
@@ -35,18 +35,24 @@
:not-available
:not-applicable))))
-(defun table-cell-for-status (status &key (elt :|td|) (link nil))
+(defun table-cell-for-status (status &key (elt :|td|) (link nil) version)
`((,elt :|class| ,(second (assoc status *statuses*)))
((,(if link :|a| :|span|) ,@(if link `(:|href| ,link)))
((:|div| :|class| "big-height")
((:|span| :|class| "hide-me")
- ,(fourth (assoc status *statuses*)))))))
+ ,(fourth (assoc status *statuses*)))
+ " "
+ ,(or version "")))))
(defun port-link (proc system)
(fourth (find-if #'(lambda (e)
(and (eq (first e) proc)
(eq (second e) system))) *ports*)))
+(defun port-version (proc system)
+ ;; Now we have two problems.
+ (the string (cl-ppcre:scan-to-strings "\\d+(\\.\\d+)+" (port-link proc system))))
+
(defun port-xml ()
`((:|table| :|class| "port-table")
((:|tr| :|class| "processor-header") (:|th|)
@@ -64,7 +70,10 @@
(first system))
:link
(port-link (car proc)
- (first system))))))))
+ (first system))
+ :version
+ (port-version (car proc)
+ (first system))))))))
(defun port-page ()
`((:|p|
|
| Thread | Author | Date |
|---|---|---|
| [Sbcl-commits] CVS: sbcl-page sbcl.css,1.3,1.4 platform-support.lisp,1.6,1.7 | Juho Snellman <jsnell@us...> |