(defpackage client
  (:use common-lisp)
  (:use htmlcal))

(in-package client)

(setq test-schedule 
      (list 
       (list '"mon" '14.0 '15.5 
	     (list '"course"
		   (list "Net Seminar" "160 Deschutes")))
       (list '"tue" '16.00 '17.8
	     (list '"course"
		   (list "Backpacking" "242 Gerlinger")))
       (list '"tue" '14.0 '15.5 
	     (list '"course" 
		   (list "Networks" "200 Deschutes")))
       (list '"thu" '14.0 '15.5 
	     (list '"course" 
		   (list "Networks" "200 Deschutes")))
       (list '"wed" '9.0 '10.5 
	     (list '"course"
		   (list "SWE Seminar" "200 Deschutes")))
       (list '"wed" '16.0 '17.5
	     (list '"course"
		   (list "Prog. Lang." "117 Fenton")))
       (list '"fri" '16.0 '17.5
	     (list '"course"
		   (list "Prog. Lang." "117 Fenton")))
       (list '"wed" '14.0 '15.0 
	     (list '"meeting"
		   (list "Jun Li" "His Office")))
       (list '"mon" '16.5 '17.5
	     (list '"meeting"
		   (list "NRG" "160 Deschutes")))
       ))

(setq test-long
      (list "Eric Anderson" "Spring Term, 2003" test-schedule))
   
(defun writeout (string)
  (let ((ostream (open "generated_schedule.html" :direction :output)))
    (format ostream "~A" string)
    (close ostream)))
       
(defun test ()
  (writeout (htmlcal::make-page test-long :beforestyles (list 'sched.css))))