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 "~&") ?>