Stacken/c64-livecoding
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve editor's upload progress display a bit

Browse source
This commit is contained in:
John Lorentzson 2025-07-29 17:04:53 +02:00
parent 47e189f709
commit bf16fe3a6c
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
editor/editor.lisp
View file

@ -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.") "If non-NIL, reload asm function addresses from listing before every compile.")
(defun draw-transfer-progress (progress total) (defun draw-transfer-progress (progress total)
(move-cursor 1 0) (clear-screen)
(format *eio* "Uploading, ~D/~D~%" progress total)) (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 () (defun com-compile-buffer ()
(when *refresh-asm-functions-p* (when *refresh-asm-functions-p*