hans/audio-library-manager
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

nog een

Browse Source
This commit is contained in:
Hans Dijkema
2026-06-10 08:45:11 +02:00
parent 930903fb42
commit 3b61e358dc
10 changed files with 190 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files
flac-48khz-manager.rkt
+11 -11
View File
@@ -6,7 +6,7 @@
racket/path
"private/audio.rkt"
"private/manager-ini.rkt"
"private/convert-place.rkt"
"private/convert.rkt"
"private/cover-art.rkt"
"private/fingerprint.rkt"
"private/hash.rkt"
@@ -102,16 +102,16 @@
(values (summary-inc (summary-inc summary2 'skipped) 'dry-run) errors))
(begin
(info-alm "converting ~a from ~a Hz to ~a Hz" relpath sample-rate (ini-ref/int ini 'manager 'max-sample-rate 48000))
(let* ((result (convert-proc path
(ini-ref/int ini 'manager 'max-sample-rate 48000)
(ini-ref/int ini 'manager 'compression-level 5)))
(new-sample-rate (inspect-flac-proc path))
(new-signature (file-signature path ini fingerprint-proc)))
(state-set-file! ks relpath
(state-info path new-signature 'converted new-sample-rate
(list (cons 'old-sample-rate sample-rate)
(cons 'encoder-result result))))
(values (summary-inc summary2 'converted) errors))))]
(begin
(convert-proc path
(ini-ref/int ini 'manager 'max-sample-rate 48000)
(ini-ref/int ini 'manager 'compression-level 5))
(let ([new-sample-rate (inspect-flac-proc path)]
[new-signature (file-signature path ini fingerprint-proc)])
(state-set-file! ks relpath
(state-info path new-signature 'converted new-sample-rate
(list (cons 'old-sample-rate sample-rate))))
(values (summary-inc summary2 'converted) errors)))))]
[else
(info-alm "ok: ~a (~a Hz)" relpath sample-rate)
(state-set-file! ks relpath (state-info path signature 'ok sample-rate '()))