[clhp-cvs] CVS update: public_html/style.css public_html/funcs.lisp public_html/index.clhp
Anthony Ventimiglia
aventimiglia at common-lisp.net
Thu Nov 13 15:33:14 UTC 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 at 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 at common-lisp.net:/project/clhp/cvsroot "
+; "co clhp"))))
+; (tag "h3" "README")
+; (tag "hr")
+; (tag "pre" (dump-text-file *readme*)))))))
+;(format t "~&")
?>
More information about the Clhp-cvs
mailing list