You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
52 lines
2.1 KiB
Racket
52 lines
2.1 KiB
Racket
5 years ago
|
#lang debug racket
|
||
|
|
(require "struct.rkt"
|
||
|
|
"attrs.rkt"
|
||
|
|
quad/quad)
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
|
||
|
|
(define (convert-break-quad q)
|
||
|
|
;; this is verbose & ugly because `struct-copy` is a macro
|
||
|
|
;; we want to use break prototypes but also preserve their type
|
||
|
|
(match (quad-ref q :break)
|
||
|
|
["para" (quad-copy para-break-quad q:para-break [attrs (quad-attrs q)])]
|
||
|
|
["line" (quad-copy line-break-quad q:line-break [attrs (quad-attrs q)])]
|
||
|
|
["page" (quad-copy page-break-quad q:page-break [attrs (quad-attrs q)])]
|
||
|
|
["column" (quad-copy column-break-quad q:column-break [attrs (quad-attrs q)])]
|
||
|
|
["hr" (quad-copy hr-break-quad q:hr-break [attrs (quad-attrs q)])]
|
||
|
|
["section" (quad-copy section-break-quad q:section-break [attrs (quad-attrs q)])]
|
||
|
|
[_ q]))
|
||
|
|
|
||
|
|
|
||
|
|
(module+ test
|
||
|
|
(require rackunit quad/qexpr)
|
||
|
|
(check-equal? (quad-ref (convert-break-quad (qexpr->quad '(q ((break "page") (foo "bar"))))) 'foo) "bar"))
|
||
|
|
|
||
|
|
|
||
|
|
(define q:line-break (make-line-break-quad #:printable #f
|
||
|
|
#:id 'line-break))
|
||
|
|
(define q:para-break (make-para-break-quad #:printable #f
|
||
|
|
#:id 'para-break))
|
||
|
|
(define q:hr-break (make-hr-break-quad #:printable #t
|
||
|
|
#:id 'hr-break))
|
||
|
|
(define q:column-break (make-column-break-quad #:printable #f
|
||
|
|
#:id 'column-break))
|
||
|
|
|
||
|
|
(define q:page-break (make-page-break-quad #:printable #f
|
||
|
|
#:id 'page-break))
|
||
|
|
|
||
|
|
(define q:section-break (make-section-break-quad #:printable #f
|
||
|
|
#:id 'section-break))
|
||
|
|
|
||
|
|
(define para-break '(q ((break "para"))))
|
||
|
|
(define line-break '(q ((break "line"))))
|
||
|
|
(define page-break '(q ((break "page"))))
|
||
|
|
(define column-break '(q ((break "column"))))
|
||
|
|
(define hr-break '(q ((break "hr"))))
|
||
|
|
(define section-break '(q ((break "section"))))
|
||
|
|
|
||
|
|
(module+ test
|
||
|
|
(require rackunit quad/atomize)
|
||
|
|
(check-true (line-break-quad? (second (quad-elems (q "foo" q:page-break "bar")))))
|
||
|
|
(check-true (line-break-quad? (second (atomize (q "foo" q:page-break "bar"))))))
|