Update of /project/clhp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv14058
Modified Files: funcs.lisp Log Message: Finished footer function
Date: Thu Nov 13 12:27:06 2003 Author: aventimiglia
Index: public_html/funcs.lisp diff -u public_html/funcs.lisp:1.3 public_html/funcs.lisp:1.4 --- public_html/funcs.lisp:1.3 Thu Nov 13 12:24:40 2003 +++ public_html/funcs.lisp Thu Nov 13 12:27:05 2003 @@ -1,4 +1,4 @@ -;; $Id: funcs.lisp,v 1.3 2003/11/13 17:24:40 aventimiglia Exp $ +;; $Id: funcs.lisp,v 1.4 2003/11/13 17:27:05 aventimiglia Exp $ ;; ;; Functions used on clhp website ;; at http://common-lisp.net/project/clhp @@ -65,11 +65,12 @@ (page-footer cvs-date)))
(defun page-footer (cvs-date) - (tag '|div| '|id| "footer" - (tag '|div| - (list - (tag '|b| "Modified: ") - (tag '|span| '|class| "footerCol2" cvs-date))))) + (let ((date (string-trim "$ Date:" cvs-date))) + (tag '|div| '|id| "footer" + (tag '|div| + (list + (tag '|b| "Modified: ") + (tag '|span| '|class| "footerCol2" date))))))