|
|
|
@ -147,11 +147,23 @@
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(struct line-break quad () #:transparent)
|
|
|
|
|
(define (line-break-copy x as es)
|
|
|
|
|
(struct-copy line-break x
|
|
|
|
|
[attrs #:parent quad as]
|
|
|
|
|
[elems #:parent quad es]))
|
|
|
|
|
(define lbr (q #:type line-break
|
|
|
|
|
#:printable #f))
|
|
|
|
|
#:copier line-break-copy
|
|
|
|
|
#:printable #f
|
|
|
|
|
#:elems '("foo bar")))
|
|
|
|
|
(struct para-break line-break () #:transparent)
|
|
|
|
|
(define (para-break-copy x as es)
|
|
|
|
|
(struct-copy para-break x
|
|
|
|
|
[attrs #:parent quad as]
|
|
|
|
|
[elems #:parent quad es]))
|
|
|
|
|
(define pbr (q #:type para-break
|
|
|
|
|
#:printable #f))
|
|
|
|
|
#:copier para-break-copy
|
|
|
|
|
#:printable #f
|
|
|
|
|
#:elems '("¶¶")))
|
|
|
|
|
|
|
|
|
|
(module+ test
|
|
|
|
|
(check-true (line-break? (second (quad-elems (q "foo" pbr "bar")))))
|
|
|
|
|