eriedaberrie/lisp-scripts
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

feat: sync-music: add task number to log

Browse source
This commit is contained in:
eriedaberrie 2024-11-02 20:43:26 -07:00
parent c5e1327c19
commit 3adb38248e
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
sync-music/main.lisp
View file

@ -59,8 +59,12 @@
(char-equal (read-char) #\y)))) (char-equal (read-char) #\y))))
(defun progress-handler (queue task-count) (defun progress-handler (queue task-count)
(loop :repeat task-count (loop :for n :from 1 :upto task-count
:do (format t "~A~%" (lparallel.queue:pop-queue queue)))) :do (format t
"(~A/~A) ~A~%"
n
task-count
(lparallel.queue:pop-queue queue))))
(defun main () (defun main ()
(multiple-value-bind (options free-args) (multiple-value-bind (options free-args)