From ef21e69ac358d8380fdde35c4854abd70e690407 Mon Sep 17 00:00:00 2001 From: eriedaberrie Date: Wed, 13 Nov 2024 00:26:48 -0800 Subject: [PATCH] feat: sync-music: only replace extensions with trailing quotes in cue files --- sync-music/actions.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sync-music/actions.lisp b/sync-music/actions.lisp index a61288d..af3e343 100644 --- a/sync-music/actions.lisp +++ b/sync-music/actions.lisp @@ -59,8 +59,8 @@ Pushes status message about this action to QUEUE if given.")) :element-type 'octet) (setf buf (make-array (file-length input) :element-type 'octet)) (read-sequence buf input)) - (setf buf (replace-text-buffer buf ".flac" ".opus")) - (setf buf (replace-text-buffer buf ".wav" ".opus")) + (setf buf (replace-text-buffer buf ".flac\"" ".opus\"")) + (setf buf (replace-text-buffer buf ".wav\"" ".opus\"")) (with-open-file (output (action-target a) :element-type 'octet