; -*- Scheme -*- (define h-page-count 0) (define h-doing-pagebreak? #f) (define h-nav-bar (lambda () ;if zeroth page, no need for `previous' button ;if last page, no need for `next' button (let ((do-prev? (not (= h-page-count 0))) (do-next? h-doing-pagebreak?)) ;if only page, no need for navigation bar (when (or do-prev? do-next?) (display "

") (newline))))) (mistie-def-ctl-seq 'pagebreak (lambda () (fluid-let ((h-doing-pagebreak? #t)) (h-end-page)) (close-output-port (current-output-port)) (set! h-page-count (+ h-page-count 1)) (current-output-port (open-output-file (h-page-numbered h-page-count))) (h-start-page))) (define h-page-numbered (lambda (i) (string-append (h-file-stem mistie-jobname) (if (= i 0) "" (string-append "-Z-H-" (number->string i))) ".html"))) (set! mistie-main (lambda (in-file) (set! h-page-count 0) (set! mistie-jobname in-file) (parameterize ((current-input-port (open-input-file in-file)) (current-output-port (open-output-file (h-page-numbered 0))) ) (mistie-everyjob) (mistie-translate) (close-output-port (current-output-port)) (close-input-port (current-input-port)))) )