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

fix: sync-music: also patch cue files for .wav -> .opus

Browse source
This commit is contained in:
eriedaberrie 2024-11-06 00:02:40 -08:00
parent 3adb38248e
commit 117325d1ef
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
flake.lock
View file

@ -25,11 +25,11 @@
}, },
"nixpkgs": { "nixpkgs": {
"locked": { "locked": {
"lastModified": 1729880355, "lastModified": 1730531603,
"narHash": "sha256-RP+OQ6koQQLX5nw0NmcDrzvGL8HDLnyXt/jHhL1jwjM=", "narHash": "sha256-Dqg6si5CqIzm87sp57j5nTaeBbWhHFaVyG7V6L8k3lY=",
"owner": "NixOS", "owner": "NixOS",
"repo": "nixpkgs", "repo": "nixpkgs",
"rev": "18536bf04cd71abd345f9579158841376fdd0c5a", "rev": "7ffd9ae656aec493492b44d0ddfb28e79a1ea25d",
"type": "github" "type": "github"
}, },
"original": { "original": {

1
sync-music/actions.lisp
View file

@ -49,6 +49,7 @@ Pushes status message about this action to QUEUE if given."))
(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"))
(with-open-file (output (with-open-file (output
(action-target a) (action-target a)
:element-type 'octet :element-type 'octet