[clhp-cvs] CVS update: public_html/view-source.clhp public_html/style.css public_html/index.clhp public_html/funcs.lisp
Anthony Ventimiglia
aventimiglia at common-lisp.net
Tue Nov 25 19:46:10 UTC 2003
Update of /project/clhp/cvsroot/public_html
In directory common-lisp.net:/tmp/cvs-serv4859
Modified Files:
view-source.clhp style.css index.clhp funcs.lisp
Log Message:
Modified to be used as static page until clhp is allowed to run on common-lisp.net
Date: Tue Nov 25 14:46:09 2003
Author: aventimiglia
Index: public_html/view-source.clhp
diff -u public_html/view-source.clhp:1.2 public_html/view-source.clhp:1.3
--- public_html/view-source.clhp:1.2 Thu Nov 13 15:40:51 2003
+++ public_html/view-source.clhp Tue Nov 25 14:46:09 2003
@@ -7,7 +7,8 @@
(defun real-path (page)
"Return the true path of URI"
(concatenate 'string (gethash :DOCUMENT_ROOT *SERVER-ENV*)
- page))
+ (if (search "../" page) "/index.clhp"
+ page)))
(defun webify (string)
"This converts the offending characters in STRING to characters that
@@ -18,8 +19,10 @@
(case char
(#\< '(#\& #\l #\t #\;))
(#\& '(#\& #\a #\m #\p #\;))
- (otherwise (list char))))
- "<br />"))
+ (otherwise (list char))))))
+(defun fontify (string)
+ "Syntax Highlighting function"
+ string)
(echon +doctype+)
?>
@@ -32,9 +35,10 @@
<pre>
<?clhp
(with-open-file (str (real-path (gethash "page" *query-vars*)))
+ (echo (tag '|h1| (real-path (gethash "page" *query-vars*))))
(loop for line = (read-line str nil 'eof)
while (not (eq 'eof line))
- do (princ (webify line))))
+ do (echo (fontify (webify line)) (tag '|br|))))
?>
</pre>
Index: public_html/style.css
diff -u public_html/style.css:1.2 public_html/style.css:1.3
--- public_html/style.css:1.2 Thu Nov 13 12:24:40 2003
+++ public_html/style.css Tue Nov 25 14:46:09 2003
@@ -1,9 +1,7 @@
-/* Style code taken from oswd.net, this design originally by haran.
-/* original header:
-/* TITLE: Stylesheet for Purple Haze
-/* URI : /purplehaze/purplehaze.css
-/* MODIF: 2002-12-15 17:34 +0800
-
+/* c
+ * $Id: style.css,v 1.3 2003/11/25 19:46:09 aventimiglia Exp $
+ *
+ * This is a modification of the common-lisp.net stylesheet */
/* ###### Color Scheme ###### */
@@ -17,18 +15,18 @@
*/
.headerSubTitle, .topOfPage, q, h1, h2, h3, .headerTitle, .siteMap, .siteMap *, .headerLinks, .headerLinks *, .sideBox div, #footer *
-{ /* Text Color: */ color: /* #a0a0ff; */ #1111ff; }
+{ /* Text Color: */ color: #3121c3; }
q, h2, #header, .sideBox, .sideBox div, #footer
-{ /* Border Color: */ border-color: #c0c0ff; }
+{ /* Border Color: */ border-color: #21752c; }
#header, .sideBox div, .sideBox a:hover
-{ /* Background Color (darker): */ background-color: #f0f0ff; }
+{ /* Background Color (darker): */ background-color: #8fc371; }
-q, .sideBox a, .sideBox span, #footer
+q, .sideBox a, .sideBox span, #footer, body
/* Background Color (lighter): */
- { background-color: #fcfcff; }
+ { background-color: #fbffb1; }
@@ -85,7 +83,6 @@
}
.topOfPage {
- font-size: 90%;
font-weight: bold;
font-variant: small-caps;
text-decoration: none;
@@ -99,21 +96,19 @@
}
body {
- background-color: white;
- color: black;
- font-family: "arial"; /* verdana, tahoma, helvetica, arial, sans-serif;*/
- font-size: 100%;
+ font-family: "verdana";
+ font-size: 110%;
margin: 0;
}
h1, h2, h3 {
- font-family: "arial"; /* , sans-serif; */
+ font-family: "verdana";
}
h1 {
font-weight: bold;
font-size: 150%;
- font-family: "arial";
+ font-family: "verdana";
border-bottom: 1px solid;
padding-bottom: 0.5ex;
}
@@ -121,7 +116,7 @@
h2 {
font-weight: bold;
font-size: 100%;
- font-family: "arial";
+ font-family: "verdana";
padding-bottom: 0.5ex;
}
@@ -142,7 +137,7 @@
}
q {
- font-family: "arial"; /* , verdana, helvetica, arial, sans-serif; */
+ font-family: "verdane"; /* , verdana, helvetica, arial, sans-serif; */
font-weight: bold;
border: 2px dotted;
margin: 0 1em 1ex 1em;
@@ -156,17 +151,17 @@
#header {
border-bottom: 2px solid;
- height: 6em;
+ height: 6.6em;
margin-bottom: 5mm;
padding: 2em 2.5mm 0 5mm;
}
.headerTitle {
- font-size: 370%;
+ font-size: 390%;
}
.headerSubTitle {
- font-size: 180%;
+ font-size: 220%;
}
.headerLinks {
@@ -198,7 +193,6 @@
.siteMap * {
text-decoration: none;
-/* font-weight: bold; */
padding-right: 1ex;
}
@@ -210,8 +204,6 @@
/* ###### Side Box ###### */
.sideBox {
- border-top: 2px solid;
- border-bottom: 2px solid;
margin-top: 5mm;
}
Index: public_html/index.clhp
diff -u public_html/index.clhp:1.8 public_html/index.clhp:1.9
--- public_html/index.clhp:1.8 Thu Nov 13 15:40:51 2003
+++ public_html/index.clhp Tue Nov 25 14:46:09 2003
@@ -47,12 +47,13 @@
<li><a href=\"http://common-lisp.net/mailman/listinfo/clhp-cvs\">
clhp-cvs</a> Reports on CVS activity.</li>
</ul>")
- ("Documentation"
- "Sorry, right now you're left to reading the source on how
-CLHP specific functions and variables work, but I'll have some basic
-documentation coming soon. If you want to see examples of CLHP in
-action, click the <b>View-Source</b> link at the top of any of the
-pages on this site.")))
+; ("Documentation"
+; "Sorry, right now you're left to reading the source on how
+;CLHP specific functions and variables work, but I'll have some basic
+;documentation coming soon. If you want to see examples of CLHP in
+;action, click the <b>View-Source</b> link at the top of any of the
+;pages on this site.")
+ ))
@@ -67,7 +68,7 @@
<body>
<?clhp
-(loop for tag in (page-body "$Date: 2003/11/13 20:40:51 $")
+(loop for tag in (page-body "$Date: 2003/11/25 19:46:09 $")
do (echon tag))
?>
Index: public_html/funcs.lisp
diff -u public_html/funcs.lisp:1.5 public_html/funcs.lisp:1.6
--- public_html/funcs.lisp:1.5 Thu Nov 13 15:06:14 2003
+++ public_html/funcs.lisp Tue Nov 25 14:46:09 2003
@@ -1,4 +1,4 @@
-;; $Id: funcs.lisp,v 1.5 2003/11/13 20:06:14 aventimiglia Exp $
+;; $Id: funcs.lisp,v 1.6 2003/11/25 19:46:09 aventimiglia Exp $
;;
;; Functions used on clhp website
;; at http://common-lisp.net/project/clhp
@@ -13,7 +13,9 @@
(in-package :www)
(defconstant +doctype+ "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"xhtml1-strict.dtd\">")
+
(defconstant +stylesheet+ "style.css")
+
(defconstant +header-links+
'(("http://common-lisp.net/" "Common-Lisp.net")))
@@ -29,8 +31,6 @@
list, where the CAR is the Section name and the CDR is the content.")
-(declaim (inline echon head))
-
(defun echon (&rest args)
(apply #'echo (nconc args '(#\NewLine))))
@@ -56,11 +56,11 @@
(tag '|span| '|class| "headerSubTitle" subtitle)
(tag '|div| '|class| "headerLinks" (make-links +header-links+))
(tag '|div| '|class| "siteMap"
- (make-links
- (append +site-links+
- (list (list (format nil "/view-source.clhp?page=~A"
- (gethash :script_name *server-env*))
- "View-Source"))))))))
+ (make-links +site-links+)))))
+; (append +site-links+
+; (list (list (format nil "/view-source.clhp?page=~A"
+; (gethash :script_name *server-env*))
+; "View-Source"))))))))
(defun page-body (cvs-date)
(list
@@ -93,7 +93,7 @@
(defun page-menu ()
(if *page-sections*
- (tag '|div| '|class| "sideBox LHS"
+ (tag '|div| '|class| "sideBox RHS"
(make-links (loop for section in *page-sections*
collect (let ((name (car section)))
(list (format nil "#~A" name) name)))))
More information about the Clhp-cvs
mailing list