contracts
This commit is contained in:
Jay McCarthy
parent
edb59bc2b7
commit
49c4383602
111
main.rkt
111
main.rkt
|
|
@ -192,19 +192,6 @@
|
|||
(d (- r cr) (- c cc) ch))
|
||||
r c))))
|
||||
|
||||
(module+ test
|
||||
(draw (crop 70 80 10 20
|
||||
(matte 80 20
|
||||
#:halign 'right
|
||||
(fg 'blue
|
||||
(frame #:fg 'red
|
||||
(inset
|
||||
4 5
|
||||
(happend (style 'underline (text "Left"))
|
||||
(blank 4)
|
||||
(style 'bold (text "Right")))))))))
|
||||
(newline))
|
||||
|
||||
(define (table rows
|
||||
;; XXX add more options to frames
|
||||
#:frames? [frames? #t]
|
||||
|
|
@ -286,31 +273,73 @@
|
|||
;; xxx text... (fit text inside a width)
|
||||
;; xxx paragraph (fit text inside a box)
|
||||
|
||||
(module+ test
|
||||
(draw (translate
|
||||
2 10
|
||||
(table
|
||||
#:frames? #t
|
||||
#:inset-dw 2
|
||||
#:valign 'center
|
||||
#:halign '(right left left left)
|
||||
(text-rows
|
||||
`([ "ID" "First Name" "Last Name" "Grade"]
|
||||
[70022 "John" "Smith" "A+"]
|
||||
[ 22 "Macumber" "Stark" "B"]
|
||||
[ 1223 "Sarah" ,(vappend (text "Top")
|
||||
(text "Mid")
|
||||
(text "Bot")) "C"])))))
|
||||
(newline))
|
||||
|
||||
(provide raart?
|
||||
draw
|
||||
style fg bg with-drawing
|
||||
blank char text
|
||||
hline vline
|
||||
vappend2 vappend
|
||||
happend2 happend
|
||||
place-at place-at*
|
||||
frame
|
||||
inset matte-at matte translate
|
||||
table text-rows)
|
||||
(define style/c (apply or/c (hash-keys symbol->style)))
|
||||
(define color/c (apply or/c (hash-keys symbol->color)))
|
||||
(define valign/c (or/c 'top 'center 'bottom))
|
||||
(define halign/c (or/c 'left 'center 'right))
|
||||
(provide
|
||||
(contract-out
|
||||
[raart? (-> any/c boolean?)]
|
||||
[draw
|
||||
(->* (raart?)
|
||||
(exact-positive-integer?
|
||||
exact-positive-integer?
|
||||
#:clear? boolean?)
|
||||
void?)]
|
||||
[style/c contract?]
|
||||
[style (-> style/c raart? raart?)]
|
||||
[color/c contract?]
|
||||
[fg (-> color/c raart? raart?)]
|
||||
[bg (-> color/c raart? raart?)]
|
||||
[with-drawing
|
||||
(-> (or/c style/c #f)
|
||||
(or/c color/c #f)
|
||||
(or/c color/c #f)
|
||||
raart? raart?)]
|
||||
[blank (->* () (exact-nonnegative-integer? exact-nonnegative-integer?) raart?)]
|
||||
[char (-> (and/c char? (not/c char-iso-control?)) raart?)]
|
||||
[text (-> string? raart?)]
|
||||
[hline (-> exact-nonnegative-integer? raart?)]
|
||||
[vline (-> exact-nonnegative-integer? raart?)]
|
||||
[vappend2 (-> raart? raart? raart?)]
|
||||
[vappend (->* (raart?) () #:rest (listof raart?) raart?)]
|
||||
[vappend* (-> (non-empty-listof raart?) raart?)]
|
||||
[happend2 (-> raart? raart? raart?)]
|
||||
[happend (->* (raart?) () #:rest (listof raart?) raart?)]
|
||||
[happend* (-> (non-empty-listof raart?) raart?)]
|
||||
[place-at (-> raart? exact-nonnegative-integer? exact-nonnegative-integer? raart?
|
||||
raart?)]
|
||||
[frame (->* (raart?)
|
||||
(#:style (or/c style/c #f) #:fg (or/c color/c #f) #:bg (or/c color/c #f))
|
||||
raart?)]
|
||||
[matte-at (-> exact-nonnegative-integer? exact-nonnegative-integer?
|
||||
exact-nonnegative-integer? exact-nonnegative-integer?
|
||||
raart?
|
||||
raart?)]
|
||||
[translate (-> exact-nonnegative-integer? exact-nonnegative-integer?
|
||||
raart? raart?)]
|
||||
[halign/c contract?]
|
||||
[valign/c contract?]
|
||||
[matte (->* (exact-nonnegative-integer? exact-nonnegative-integer? raart?)
|
||||
(#:halign halign/c #:valign valign/c)
|
||||
raart?)]
|
||||
[inset (-> exact-nonnegative-integer? exact-nonnegative-integer? raart? raart?)]
|
||||
[mask (-> exact-nonnegative-integer? exact-nonnegative-integer?
|
||||
exact-nonnegative-integer? exact-nonnegative-integer?
|
||||
raart? raart?)]
|
||||
[crop (-> exact-nonnegative-integer? exact-nonnegative-integer?
|
||||
exact-nonnegative-integer? exact-nonnegative-integer?
|
||||
raart? raart?)]
|
||||
[table (->* ((listof (listof raart?)))
|
||||
(#:frames? boolean?
|
||||
#:style (or/c style/c #f)
|
||||
#:fg (or/c color/c #f)
|
||||
#:bg (or/c color/c #f)
|
||||
#:inset-dw exact-nonnegative-integer?
|
||||
#:inset-dh exact-nonnegative-integer?
|
||||
#:valign valign/c
|
||||
#:halign (or/c halign/c (list*of halign/c (or/c halign/c '()))))
|
||||
raart?)]
|
||||
[text-rows (-> (listof (listof any/c))
|
||||
(listof (listof raart?)))])
|
||||
place-at*)
|
||||
|
|
|
|||
|
|
@ -0,0 +1,32 @@
|
|||
#lang racket/base
|
||||
(require raart)
|
||||
|
||||
(module+ test
|
||||
(draw (crop 70 80 10 20
|
||||
(matte 80 20
|
||||
#:halign 'right
|
||||
(fg 'blue
|
||||
(frame #:fg 'red
|
||||
(inset
|
||||
4 5
|
||||
(happend (style 'underline (text "Left"))
|
||||
(blank 4)
|
||||
(style 'bold (text "Right")))))))))
|
||||
(newline))
|
||||
|
||||
(module+ test
|
||||
(draw (translate
|
||||
2 10
|
||||
(table
|
||||
#:frames? #t
|
||||
#:inset-dw 2
|
||||
#:valign 'center
|
||||
#:halign '(right left left left)
|
||||
(text-rows
|
||||
`([ "ID" "First Name" "Last Name" "Grade"]
|
||||
[70022 "John" "Smith" "A+"]
|
||||
[ 22 "Macumber" "Stark" "B"]
|
||||
[ 1223 "Sarah" ,(vappend (text "Top")
|
||||
(text "Mid")
|
||||
(text "Bot")) "C"])))))
|
||||
(newline))
|
||||
Loading…
Reference in New Issue