misc-deps
/
raart
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

clean

This commit is contained in:
Jay McCarthy 2018-01-01 19:02:55 -05:00
parent ce775238cc
commit b62acd2340
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
main.rkt
View File

@ -37,7 +37,8 @@
;; h : exact-nonnegative-integer? ;; h : exact-nonnegative-integer?
;; ! : (row col char -> void) row col -> void ;; ! : (row col char -> void) row col -> void
(struct rart (w h !)) (struct rart (w h !))
(define (draw row col x #:clear? [clear? #t]) (define (draw x [row 1] [col 1]
#:clear? [clear? #t])
(match-define (rart w h !) x) (match-define (rart w h !) x)
(display (A:dec-soft-terminal-reset)) (display (A:dec-soft-terminal-reset))
(when clear? (when clear?
@ -192,8 +193,7 @@
r c)))) r c))))
(module+ test (module+ test
(draw 1 1 (draw (crop 70 80 10 20
(crop 70 80 10 20
(matte 80 20 (matte 80 20
#:halign 'right #:halign 'right
(fg 'blue (fg 'blue
@ -286,8 +286,7 @@
;; xxx paragraph (fit text inside a box) ;; xxx paragraph (fit text inside a box)
(module+ test (module+ test
(draw 1 1 (draw (translate
(translate
2 10 2 10
(table (table
#:frames? #t #:frames? #t