[clhp-cvs] CVS update: public_html/style.css public_html/funcs.lisp public_html/index.clhp - clhp-cvs@common-lisp.net - mailman3.common-lisp.net

13 Nov 2003

Update of /project/clhp/cvsroot/public_html
In directory common-lisp.net:/tmp/cvs-serv25925
Modified Files:
    index.clhp 
Added Files:
    style.css funcs.lisp 
Log Message:
Working on the new, nice page.
Date: Thu Nov 13 10:33:14 2003
Author: aventimiglia
Index: public_html/index.clhp
diff -u public_html/index.clhp:1.3 public_html/index.clhp:1.4

--- public_html/index.clhp:1.3	Mon Sep 29 13:21:11 2003
+++ public_html/index.clhp	Thu Nov 13 10:33:14 2003
@@ -1,7 +1,5 @@
 <?xml version="1.0"?>
-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "xhtml1-strict.dtd">
 <?clhp
-
 ;; Since the server is not yet equipped with CLHP, I will build run
 ;; these pages through the CLHP parser, and use the resulting pages
 ;; for the web site with the following command:
@@ -13,47 +11,66 @@
 |#
 ;; The HTTP Headers will have to be deleted from the resulting file.
-(defvar *title* "CLHP the Common Lisp Hypertext Preprocessor")
-(defvar *readme* "/home/ant/src/clhp/README")
-(defvar *links* '(("Download" "ftp://common-lisp.net/pub/project/clhp")))
-		  
-
-(defun dump-text-file (file-name)
-  (with-open-file
-   (stream file-name :direction :input :if-does-not-exist :error)
-   (let* ((buffer-size (file-length stream))
-	  (buffer (make-array buffer-size :element-type 'character)))
-     (read-sequence buffer stream)
-     buffer)))
+(unless (find-package :www)
+  (require "funcs.lisp"))
+(use-package :www)
-(defun link (pair)
-  "Takes a cons pair (CONTENT URI) and forms a link."
-  (tag "a" "href" (cadr pair) (car pair)))
+;; Start of page output
+(echon +doctype+)
-(echo
- (tag "html"
+(echon
+ (tag '|html|
       (list
-       (tag "head"
-	    (tag "title" *title*))
-       (tag "body"
+       (head "CLHP the Common Lisp Hypertext Preprocessor")
+       (tag '|body|
        (list
-	     (tag "h1" *title*)
-	     (tag "hr")
-	     (tag "p" (list
-			"I apologize for the lack of content on this site, "
-			"CLHP is still in it's early stages, so this simply "
-			"contains the README file, with the addition of some "
-			"extra links"))
-	     (tag "p"
-		  (list
-		   "To get the latest version, click the "
-		   (link (assoc "Download" *links* :test #'string=))
-		   " link. To checkout the CVS via anonymous pserver cvs, use "
-		   (tag "b" (list
-			     "anonymous@common-lisp.net:/project/clhp/cvsroot "
-			     "co clhp"))))		   
-	     (tag "h3" "README")
-	     (tag "hr")
-	     (tag "pre" (dump-text-file *readme*)))))))
-(format t "~&")
+	     (page-header "CLHP" "the Common Lisp Hypertext Preprocessor"))))))
+
+		  
+		  
+       
+
+;(defvar *title* "CLHP the Common Lisp Hypertext Preprocessor")
+;(defvar *readme* "/home/ant/src/clhp/README")
+;(defvar *links* '(("Download" "ftp://common-lisp.net/pub/project/clhp")))
+;                  
+;
+;(defun dump-text-file (file-name)
+;  (with-open-file
+;   (stream file-name :direction :input :if-does-not-exist :error)
+;   (let* ((buffer-size (file-length stream))
+;          (buffer (make-array buffer-size :element-type 'character)))
+;     (read-sequence buffer stream)
+;     buffer)))
+;
+;(defun link (pair)
+;  "Takes a cons pair (CONTENT URI) and forms a link."
+;  (tag "a" "href" (cadr pair) (car pair)))
+;
+;(echo
+; (tag "html"
+;      (list
+;       (tag "head"
+;            (tag "title" *title*))
+;       (tag "body"
+;            (list
+;             (tag "h1" *title*)
+;             (tag "hr")
+;             (tag "p" (list
+;                        "I apologize for the lack of content on this site, "
+;                        "CLHP is still in it's early stages, so this simply "
+;                        "contains the README file, with the addition of some "
+;                        "extra links"))
+;             (tag "p"
+;                  (list
+;                   "To get the latest version, click the "
+;                   (link (assoc "Download" *links* :test #'string=))
+;                   " link. To checkout the CVS via anonymous pserver cvs, use "
+;                   (tag "b" (list
+;                             "anonymous@common-lisp.net:/project/clhp/cvsroot "
+;                             "co clhp"))))                 
+;             (tag "h3" "README")
+;             (tag "hr")
+;             (tag "pre" (dump-text-file *readme*)))))))
+;(format t "~&")
 ?>

    