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

feat: sync-music: only replace extensions with trailing quotes in cue files

Browse source
This commit is contained in:
eriedaberrie 2024-11-13 00:26:48 -08:00
parent 5fc881156e
commit ef21e69ac3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sync-music/actions.lisp
View file

@ -59,8 +59,8 @@ Pushes status message about this action to QUEUE if given."))
:element-type 'octet) :element-type 'octet)
(setf buf (make-array (file-length input) :element-type 'octet)) (setf buf (make-array (file-length input) :element-type 'octet))
(read-sequence buf input)) (read-sequence buf input))
(setf buf (replace-text-buffer buf ".flac" ".opus")) (setf buf (replace-text-buffer buf ".flac\"" ".opus\""))
(setf buf (replace-text-buffer buf ".wav" ".opus")) (setf buf (replace-text-buffer buf ".wav\"" ".opus\""))
(with-open-file (output (with-open-file (output
(action-target a) (action-target a)
:element-type 'octet :element-type 'octet