From bf16fe3a6c3d249123a8cd2ddadafb4b8b7bfe8b Mon Sep 17 00:00:00 2001
From: John Lorentzson <john_lorentzson@yahoo.com>
Date: Tue, 29 Jul 2025 17:04:53 +0200
Subject: [PATCH] Improve editor's upload progress display a bit

---
 editor/editor.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/editor/editor.lisp b/editor/editor.lisp
index df47b82..1d79cb7 100644
--- a/editor/editor.lisp
+++ b/editor/editor.lisp
@@ -757,8 +757,11 @@ Additionally ensures correct line numbers on the way, as a bonus."
   "If non-NIL, reload asm function addresses from listing before every compile.")
 
 (defun draw-transfer-progress (progress total)
-  (move-cursor 1 0)
-  (format *eio* "Uploading, ~D/~D~%" progress total))
+  (clear-screen)
+  (let ((text (format nil "Uploading, ~4,'0D/~4,'0D" progress total)))
+    (move-cursor 12 (- (/ 80 2) (/ (length text) 2)))
+    (write-string text *eio*)
+    (force-output *eio*)))
 
 (defun com-compile-buffer ()
   (when *refresh-asm-functions-p*