35 lines
1.0 KiB
Scheme
35 lines
1.0 KiB
Scheme
#lang scheme/base
|
|
(require "../struct.ss"
|
|
"../decode.ss"
|
|
"../base.ss"
|
|
(only-in "../core.ss"
|
|
content?)
|
|
scheme/contract
|
|
scheme/list)
|
|
|
|
(provide doc-prefix)
|
|
(provide/contract
|
|
[spacer element?]
|
|
[to-flow (content? . -> . flow?)]
|
|
[flow-spacer flow?]
|
|
[flow-empty-line flow?]
|
|
[make-table-if-necessary (content? list? . -> . (list/c (or/c omitable-paragraph? table?)))]
|
|
[max-proto-width exact-nonnegative-integer?])
|
|
|
|
(define spacer (hspace 1))
|
|
|
|
(define (to-flow e)
|
|
(make-flow (list (make-omitable-paragraph (list e)))))
|
|
(define flow-spacer (to-flow spacer))
|
|
(define flow-empty-line (to-flow (tt 'nbsp)))
|
|
|
|
(define (make-table-if-necessary style content)
|
|
(if (= 1 (length content))
|
|
(let ([paras (append-map flow-paragraphs (car content))])
|
|
(if (andmap paragraph? paras)
|
|
(list (make-omitable-paragraph (append-map paragraph-content paras)))
|
|
(list (make-table style content))))
|
|
(list (make-table style content))))
|
|
|
|
(define max-proto-width 65)
|