up

size.rkt

@@ -78,6 +78,9 @@
         [x (error 'cursor-position "Something weird happened, got ~e" x)]))))
 
 ;; xxx xterm-set-window-title
+#;(begin
+    (display (A:set-mode A:alternate-screen-mode))
+    (display (A:reset-mode A:alternate-screen-mode)))
 
 ;; xxx Do I make a 'lux chaos' for this?
 ;;

t/draw.rkt

@@ -2,7 +2,6 @@
 (require racket/format
          raart)
 
-#;
 (module+ test
   (draw (crop 1 80 1 20
               ;;70 80 10 20
@@ -17,7 +16,6 @@
                                           (style 'bold (text "Right")))))))))
   (newline))
 
-#;
 (module+ test
   (draw (translate
          2 10