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

feat: sync-music: additionally copy over replaygain metadata

Browse source
This commit is contained in:
eriedaberrie 2024-11-24 16:28:18 -08:00
parent ef21e69ac3
commit 4a5e508bcd
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -42,6 +42,10 @@ extension equality."
:with cd-cd-text := (libcue:cd-get-cd-text cd)
:with album-date := (libcue:ensure-nonempty
(libcue:get-rem :date cd-rem))
:with album-gain := (libcue:ensure-nonempty
(libcue:get-rem :album-gain cd-rem))
:with album-peak := (libcue:ensure-nonempty
(libcue:get-rem :album-peak cd-rem))
:with album-title := (libcue:get-cd-text :title cd-cd-text)
:with album-artist := (libcue:ensure-nonempty
(libcue:get-cd-text :performer cd-cd-text))
@ -63,6 +67,10 @@ extension equality."
:for track-date := (or (libcue:ensure-nonempty
(libcue:get-rem :date track-rem))
album-date)
:for track-gain := (libcue:ensure-nonempty
(libcue:get-rem :track-gain track-rem))
:for track-peak := (libcue:ensure-nonempty
(libcue:get-rem :track-peak track-rem))
:for track-title := (libcue:get-cd-text :title track-cd-text)
:for track-artist := (or (libcue:ensure-nonempty
(libcue:get-cd-text :performer track-cd-text))
@ -85,7 +93,11 @@ extension equality."
(add-metadata "ARTIST" track-artist)
(add-metadata "COMPOSER" track-composer)
(add-metadata "GENRE" track-genre)
(add-metadata "DATE" track-date))
(add-metadata "DATE" track-date)
(add-metadata "REPLAYGAIN_ALBUM_GAIN" album-gain)
(add-metadata "REPLAYGAIN_ALBUM_PEAK" album-peak)
(add-metadata "REPLAYGAIN_TRACK_GAIN" track-gain)
(add-metadata "REPLAYGAIN_TRACK_PEAK" track-peak))
metadata)
:for output-file-name := (format nil
"~A - ~A"