From c3e48285b483152c9f8312829cc5e8ca4deab8aa Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 9 Jun 2026 23:24:27 +0200 Subject: [PATCH] opus log file --- flac2opus-manager.rkt | 4 ++-- private/config.rkt | 6 ++++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/flac2opus-manager.rkt b/flac2opus-manager.rkt index 77bb84c..be736a3 100644 --- a/flac2opus-manager.rkt +++ b/flac2opus-manager.rkt @@ -17,7 +17,7 @@ (provide manage-flac2opus-tree summary->lines) -(define manager-admin-relpaths '(".music-info.db" ".flac-48khz-manager.ini" ".flac-48khz-manager.log")) +(define manager-admin-relpaths '(".music-info.db" ".flac-48khz-manager.ini" ".flac2opus-manager.log")) (define (quick-file-info path) (list (cons 'size (file-size path)) @@ -182,7 +182,7 @@ (raise-argument-error 'manage-flac2opus-tree "existing source directory" source-directory)) (make-directory* target-dir) (define config (load-manager-config source-dir)) - (setup-logging! (manager-config-log-file config) (manager-config-display-log? config)) + (setup-logging! (manager-config-log-file-opus config) (manager-config-display-log? config)) (info-alm "flac2opus source directory: ~a" source-dir) (info-alm "flac2opus target directory: ~a" target-dir) (info-alm "state file: ~a" (manager-config-state-file config)) diff --git a/private/config.rkt b/private/config.rkt index a747daf..02862c6 100644 --- a/private/config.rkt +++ b/private/config.rkt @@ -10,6 +10,7 @@ manager-config-ini-file manager-config-state-file manager-config-log-file + manager-config-log-file-opus manager-config-max-sample-rate manager-config-hash-algorithm manager-config-change-detection @@ -33,7 +34,7 @@ ensure-default-config!) (struct manager-config - (base-dir ini-file state-file log-file max-sample-rate hash-algorithm change-detection dry-run? + (base-dir ini-file state-file log-file log-file-opus max-sample-rate hash-algorithm change-detection dry-run? display-log? compression-level mail-enabled? mail-send-on-success? mail-send-on-error? mail-host mail-port mail-tls? mail-username mail-password mail-from mail-to mail-cc mail-bcc mail-subject-prefix) @@ -86,7 +87,8 @@ (ensure-default-config! ini-file) (define ini (file->ini ini-file)) (define log-file (resolve-log-file base-dir (ini-get ini 'manager 'log-file ".flac-48khz-manager.log"))) - (manager-config base-dir ini-file (default-state base-dir) log-file + (define log-file-opus (resolve-log-file base-dir (ini-get ini 'opus-manager 'log-file ".flac2opus-manager.log"))) + (manager-config base-dir ini-file (default-state base-dir) log-file log-file-opus (int-value (ini-get ini 'manager 'max-sample-rate 48000) 48000) (string-downcase (string-value (ini-get ini 'manager 'hash-algorithm "sha256") "sha256")) (string-downcase (string-value (ini-get ini 'manager 'change-detection "flac-taglib") "flac-taglib"))