src/testdir/test33.ok

   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>")))