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
flac2opus-manager.rkt
+4 -7
View File
@@ -10,7 +10,7 @@
"private/hash.rkt"
"private/log.rkt"
"private/mail.rkt"
"private/opus-convert-place.rkt"
"private/opus-convert.rkt"
"private/report.rkt"
"private/util.rkt")
@@ -139,10 +139,9 @@
[(flac-path? path)
(info-alm "converting ~a -> ~a at ~a kbps" relpath target-relpath kbps)
(delete-old-target-if-needed! target-dir old target-relpath)
(define result (convert-proc path target-path kbps))
(convert-proc path target-path kbps)
(flac2opus-state-set-file! ks relpath
(state-info path target-relpath signature 'converted kbps
(list (cons 'encoder-result result))))
(state-info path target-relpath signature 'converted kbps '()))
(values (summary-inc summary2 'converted) errors)]
[else
(info-alm "copying ~a -> ~a" relpath target-relpath)
@@ -168,9 +167,7 @@
(summary-inc s 'removed)))))
(define (find-source-files source-dir)
(filter (lambda (p)
(and (not (manager-temp-path? p))
(not (manager-admin-relpath? (source-relpath-string source-dir p)))))
(filter (lambda (p) (not (manager-admin-relpath? (source-relpath-string source-dir p))))
(directory-file-paths source-dir)))
(define (manage-flac2opus-tree source-directory target-directory