Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
100 7u83 1 
(defun html-file (base)
2 
  (format nil "~(~A~).html" base))
3 
 
4 
(defmacro page (name title &rest body)
5 
  (let ((ti (gensym)))
6 
       `(with-open-file (*standard-output*
7 
			 (html-file ,name)
8 
			 :direction :output
9 
			 :if-exists :supersede)
10 
			(let ((,ti ,title))
11 
			     (as title ,ti)
12 
			     (with center
13 
				   (as h2 (string-upcase ,ti)))
14 
			     (brs 3)
15 
			     ,@body))))
16 
 
17 
;;; Utilities for generating links
18 
 
19 
(defmacro with-link (dest &rest body)
20 
  `(progn
21 
    (format t "<a href=\"~A\">" (html-file ,dest))
22 
    ,@body
23 
    (princ "</a>")))