From 3adb38248ec5b068a71c25620f9806e4e5a6888b Mon Sep 17 00:00:00 2001
From: eriedaberrie <eriedaberrie@gmail.com>
Date: Sat, 2 Nov 2024 20:43:26 -0700
Subject: [PATCH] feat: sync-music: add task number to log

---
 sync-music/main.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/sync-music/main.lisp b/sync-music/main.lisp
index a648f5f..d3aa0c3 100644
--- 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)