(load "htmlcal")

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

(in-package client)

(setq test-schedule 
      (list 
       (list '"mon" '12.0 '12.9 
	     (list '"course"
		   (list "Voice" "111 MUS")))
       (list '"wed" '12.0 '12.9 
	     (list '"course"
		   (list "Voice" "111 MUS")))

       (list '"mon" '16.0 '17.4
	     (list '"course"
		   (list "Graph Algs." "200 Deschutes")))

       (list '"tue" '14.0 '15.3 
	     (list '"course"
		   (list "Security Research" "200 Deschutes")))

       (list '"tue" '19.0 '20.9
	     (list '"course"

		   (list "Winter Surv." "242 Gerlinger" "http://www.uoregon.edu/~opp/snow/snow.htm")))
       (list '"thu" '14.0 '15.3 
	     (list '"course"
		   (list "Security Research" "106 Deady?")))

       (list '"wed" '14.0 '15.4 
	     (list '"course" 
		   (list "P2P Sched" "200 Deschutes")))

     
       (list '"mon" '10.0 '11.5 
	     (list '"meeting"
		   (list "Netsec" "200 Deschutes")))

       (list '"tue" '10.0 '12.0
	     (list '"meeting"
		   (list "Worm Def." "200 Deschutes")))

       (list '"thu" '10.0 '12.0
	     (list '"meeting"
		   (list "mSSL" "200 Deschutes")))

       (list '"thu" '15.5 '17.0
	     (list '"course"
		   (list "Colloquium" "C. Room")))

       (list '"wed" '16.0 '17.3
	     (list '"meeting"
		   (list "NRG" "200 Deschutes")))
       ))

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

(test)