;;;; 6.891 simple-xhtml.scm
(define ((wrap-content key) . content)
(flatten-append "\n"
"<" key ">"
content
""))
(define (flatten-append . pieces)
(apply string-append
(map (lambda (piece)
(cond ((string? piece) piece)
((number? piece) (number->string piece))
((list? piece) (apply flatten-append piece))
(else
(error "Unknown piece type: flatten-append"
piece))))
pieces)))
(define x-body (wrap-content "body"))
(define x-paragraph (wrap-content "p"))
(define ((empty-element key))
(string-append "\n" "<" key "/>"))
(define x-break (empty-element "br"))
(define x-horizontal-rule (empty-element "hr"))
#|
;;; For example
(display
(x-body "Now is the time"
(x-paragraph "for all good men")
(x-paragraph "to come" (x-break) " to the aid")
(x-paragraph "of their country.")))
Now is the time
for all good men
to come
to the aid
of their country.
(display
(x-body "Factorials"
(map (lambda (n)
(x-paragraph n "! = " (factorial n)))
(iota 10))))
Factorials
0! = 1
1! = 1
2! = 2
3! = 6
4! = 24
5! = 120
6! = 720
7! = 5040
8! = 40320
9! = 362880
|#
#|
;;; By the way, iota and factorial are defined as follows in the
;;; scmutils system.
(define (factorial n)
(if (= n 0)
1
(* n (factorial (- n 1)))))
(define (iota to #!optional from increment)
(define (step where)
(if (>= where to)
'()
(cons where (step (+ where increment)))))
(if (default-object? from) (set! from 0))
(if (default-object? increment) (set! increment 1))
(step from))
|#