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

feat: sync-music: ignore cueprint erorrs

Browse source
This commit is contained in:
eriedaberrie 2024-11-07 20:27:12 -08:00
parent 5f61ca0280
commit b488540ffe
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
sync-music/sync-music.lisp
View file

@ -31,7 +31,8 @@ Return the action if it exists, or NIL if the file should not be copied."
(uiop:run-program (list "cueprint" (uiop:run-program (list "cueprint"
"-d" "%N" "-d" "%N"
cue-file) cue-file)
:output :string) :output :string
:ignore-error-status t)
:junk-allowed t))) :junk-allowed t)))
(when (> cue-track-count (count-if (lambda (f) (when (> cue-track-count (count-if (lambda (f)
(funcall test (pathname-type f) "flac")) (funcall test (pathname-type f) "flac"))