(define (standard-intro header) (con (h 1 header) (p) (hr) (p))) (define (standard-signature) (con (p) (hr) (p) "Kurt Nørmark")) (define (faq-entry who question answer) (list 'faq-entry who question answer)) (define faq-who second) (define faq-question third) (define faq-answer fourth) (define (present-faq-entry entry) (let ((color (if (eq? (faq-who entry) 'teacher) red green))) (font-color color (con (b (con (faq-question entry) "?")) (br) (em (faq-answer entry)) (p))))) (define green (make-color 0 130 0)) |