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%5C%22%3E 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)))))