feat: sync-music: add task number to log

2024-11-02 20:43:26 -07:00 · 2024-11-02 20:43:26 -07:00 · 3adb38248e
parent c5e1327c19
commit 3adb38248e
1 changed files with 6 additions and 2 deletions
--- a/sync-music/main.lisp
+++ b/sync-music/main.lisp
@ -59,8 +59,12 @@
      (char-equal (read-char) #\y))))

 (defun progress-handler (queue task-count)
-  (loop :repeat task-count
-        :do (format t "~A~%" (lparallel.queue:pop-queue queue))))
+  (loop :for n :from 1 :upto task-count
+        :do (format t
+                    "(~A/~A) ~A~%"
+                    n
+                    task-count
+                    (lparallel.queue:pop-queue queue))))

 (defun main ()
  (multiple-value-bind (options free-args)