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

Reset file info for administrating changes, to prevent audio manager processing files twice that are essentially unchanged.

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-02 14:32:41 +02:00
parent 36c7662e22
commit c4869f5652
2 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
audio-manager.rkt
+3 -4
View File
@@ -192,8 +192,7 @@
(if (convert-flac-to-rate path base-rate)
(begin
(hash-set! info 'khz base-rate)
(hash-set! info 'size (file-size path))
(hash-set! info 'mtime (file-or-directory-modify-seconds path))
(reset-file-admin-info path info)
)
(begin
(err-am " Cannot convert!")
@@ -225,8 +224,7 @@
(tags-picture! tags cover)
(tags-save! tags))
#:mode 'read-write))
(hash-set! info 'size (file-size path))
(hash-set! info 'mtime (file-or-directory-modify-seconds path))
(reset-file-admin-info path info)
(info-am " Picture set")
(set! pictures-set (+ pictures-set 1))
)
@@ -273,6 +271,7 @@
(if (convert-to-opus path opus-file ini)
(begin
(set! converted-files (+ converted-files 1))
(reset-file-admin-info path info)
(info-am " Converted ~a, job-nr = ~a" converted-files jobnr)
)
(begin
private/file-walker.rkt
+8
View File
@@ -11,6 +11,7 @@
(provide make-file-walker
make-file-admin
reset-file-admin-info
fw-add-step
os-path
)
@@ -102,6 +103,13 @@
)
))
(define (reset-file-admin-info path info)
(when (eq? (hash-ref info 'type #f) 'file)
(hash-set! info 'size (file-size path))
(hash-set! info 'mtime (file-or-directory-modify-seconds path))
)
)
(define (make-file-admin base-path db-store #:filename-cleaner [fc-f (λ (f) f)])
(define (file-info-equal? i1 i2)