#lang racket/base
(require racket/format
         raart)
(module+ test
  (define here (make-output-buffer)))

(module+ test
  (draw
   here
   (crop 1 80 1 20
         ;;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
   here
   (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))

(module+ test
  (define seen? (list))
  (draw
   here
   (crop 0 80 70 10
         (vappend*
          #:halign 'left
          (for/list ([i (in-range 80)])
            (if-drawn
             (λ (r c w h) (set! seen? (cons i seen?)))
             (text (~a "Row " i)))))))
  (newline)
  (printf "Drawn: ~v\n" (reverse seen?)))