(module website mzscheme
(require "private/require.ss")
(require-contracts)
(require "xexpr.ss"
"css.ss")
(provide/contract
[create-webpage (string? xexpr/c . -> . void?)]
[create-stylesheet (string? css/c . -> . void?)])
(define (create-stylesheet filename css)
(let* ([out-port (open-output-file filename 'replace)])
(write-css css out-port)
(close-output-port out-port)))
(define (create-webpage filename xexpr)
(let* ([out-port (open-output-file filename 'replace)])
(write-xexpr xexpr out-port)
(close-output-port out-port)))
)