Use synchronized-output mode.

Author: Kodiologist

setup.py

@@ -17,7 +17,7 @@
         'hyrule >= 1',
         'toolz >= 1',
         'construct >= 2.10.70',
-        'blessed >= 1.20.0',
+        'blessed >= 1.24.0',
         'platformdirs >= 4.3.6',
         'metadict >= 0.1.3'],
     packages = setuptools.find_packages(),

simalq/main.hy

@@ -196,6 +196,14 @@
   (while (B.inkey :timeout 0))
   (B.inkey :esc-delay .01))
 
+(defn print-full-screen [#* output]
+  (setv output (+ B.home (.join "" output)))
+  (with [(.synchronized-output B :timeout .05)]
+    ; .05 s may well be too little time for SSH, but making the user
+    ; not wait too long for a local terminal that just isn't
+    ; responding, as is the more common case, is more important.
+    (print output :flush T :end "")))
+
 ;; --------------------------------------------------------------
 ;; ** The main loop for IO
 ;; --------------------------------------------------------------
@@ -220,11 +228,9 @@
           (msg (get e.args 0)))))))
 
 (defn print-main-screen [#** kwargs]
-  (print
-    :flush T :sep "" :end ""
-    B.home
-    (.join "\n" (map (fn [x] (bless-colorstr B x)) (draw-screen
-      B.width B.height #** kwargs)))))
+  (print-full-screen (.join "\n" (gfor
+    line (draw-screen B.width B.height #** kwargs)
+    (bless-colorstr B line)))))
 
 ;; --------------------------------------------------------------
 ;; ** Text screens
@@ -305,9 +311,8 @@
   (io-mode
 
     :draw (fn []
-      (print
-        :flush T :sep "" :end ""
-        B.home B.clear
+      (print-full-screen
+        B.clear
         (.join "\n" (cut lines
           top-line-ix
           (+ top-line-ix B.height))))
@@ -346,9 +351,8 @@
   (io-mode
 
     :draw (fn []
-      (print
-        :flush T :sep "" :end ""
-        B.home B.clear
+      (print-full-screen
+        B.clear
         (.join "\n" (gfor
           line (cut display-lines B.height)
           (cut line B.width)))))