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

Changed config.rkt to simple-ini.

Browse Source
This commit is contained in:
Hans Dijkema
2026-06-09 23:47:11 +02:00
parent c3e48285b4
commit 736638f2a4
7 changed files with 145 additions and 169 deletions
Download Patch File Download Diff File Expand all files Collapse all files
README.md
+4 -1
View File
@@ -78,7 +78,7 @@ platform path implementation.
## Configuration ## Configuration
Important configuration keys are created automatically in `.flac-48khz-manager.ini`. Important configuration keys are created automatically in `.flac-48khz-manager.ini`.
The same file is used by both managers. The same file is used by both managers. The implementation now reads this file as a simple-ini value directly; there is no separate configuration struct layered on top of the ini model.
```ini ```ini
[manager] [manager]
@@ -90,6 +90,9 @@ display-log=#t
log-file=".flac-48khz-manager.log" log-file=".flac-48khz-manager.log"
compression-level=5 compression-level=5
[opus-manager]
log-file=".flac2opus-manager.log"
[mail] [mail]
enabled=#f enabled=#f
send-on-success=#f send-on-success=#f
flac-48khz-manager.rkt
+25 -24
View File
@@ -5,7 +5,7 @@
racket/list racket/list
racket/path racket/path
"private/audio.rkt" "private/audio.rkt"
"private/config.rkt" "private/manager-ini.rkt"
"private/convert-place.rkt" "private/convert-place.rkt"
"private/cover-art.rkt" "private/cover-art.rkt"
"private/fingerprint.rkt" "private/fingerprint.rkt"
@@ -35,13 +35,11 @@
(equal? (alist-ref/default old 'signature #f) signature) (equal? (alist-ref/default old 'signature #f) signature)
(not (equal? (alist-ref/default old 'status #f) 'error)))) (not (equal? (alist-ref/default old 'status #f) 'error))))
(define (file-signature path config fingerprint-proc) (define (file-signature path ini fingerprint-proc)
(define mode (manager-config-change-detection config)) (define mode (string-downcase (ini-ref/string ini 'manager 'change-detection "flac-taglib")))
(define hash-algorithm (string-downcase (ini-ref/string ini 'manager 'hash-algorithm "sha256")))
(cond [(member mode '("hash" "sha256" "full-hash" "full-sha256")) (cond [(member mode '("hash" "sha256" "full-hash" "full-sha256"))
(string-append "file:" (string-append "file:" hash-algorithm ":" (file-digest path hash-algorithm))]
(manager-config-hash-algorithm config)
":"
(file-digest path (manager-config-hash-algorithm config)))]
[(member mode '("mtime-size" "quick")) [(member mode '("mtime-size" "quick"))
(format "mtime-size:~a:~a" (file-size path) (file-or-directory-modify-seconds path))] (format "mtime-size:~a:~a" (file-size path) (file-or-directory-modify-seconds path))]
[(member mode '("flac" "flac-streaminfo")) [(member mode '("flac" "flac-streaminfo"))
@@ -66,7 +64,7 @@
(when cover (info-alm "embedded sidecar cover in ~a from ~a" relpath cover)) (when cover (info-alm "embedded sidecar cover in ~a from ~a" relpath cover))
cover)) cover))
(define (process-one-file ks config path relpath inspect-flac-proc fingerprint-proc convert-proc summary errors) (define (process-one-file ks ini path relpath inspect-flac-proc fingerprint-proc convert-proc summary errors)
;; Only invokes TagLib when a sidecar cover/folder image exists in the same directory. ;; Only invokes TagLib when a sidecar cover/folder image exists in the same directory.
;; This keeps the cheap mtime/size fast path cheap for most directories, but still ;; This keeps the cheap mtime/size fast path cheap for most directories, but still
;; lets the manager repair missing embedded artwork before fingerprinting. ;; lets the manager repair missing embedded artwork before fingerprinting.
@@ -90,25 +88,25 @@
(cons 'message (exn-message e))) (cons 'message (exn-message e)))
errors)))]) errors)))])
(define sample-rate (inspect-flac-proc path)) (define sample-rate (inspect-flac-proc path))
(define signature (file-signature path config fingerprint-proc)) (define signature (file-signature path ini fingerprint-proc))
(cond [(same-signature-state? old signature) (cond [(same-signature-state? old signature)
(info-alm "unchanged fingerprint: ~a" relpath) (info-alm "unchanged fingerprint: ~a" relpath)
(state-set-file! ks relpath (state-info path signature 'unchanged sample-rate '())) (state-set-file! ks relpath (state-info path signature 'unchanged sample-rate '()))
(values (summary-inc summary2 'unchanged) errors)] (values (summary-inc summary2 'unchanged) errors)]
[(> sample-rate (manager-config-max-sample-rate config)) [(> sample-rate (ini-ref/int ini 'manager 'max-sample-rate 48000))
(if (manager-config-dry-run? config) (if (ini-ref/bool ini 'manager 'dry-run #f)
(begin (begin
(warn-alm "dry-run: would convert ~a from ~a Hz to ~a Hz" relpath sample-rate (manager-config-max-sample-rate config)) (warn-alm "dry-run: would convert ~a from ~a Hz to ~a Hz" relpath sample-rate (ini-ref/int ini 'manager 'max-sample-rate 48000))
(state-set-file! ks relpath (state-set-file! ks relpath
(state-info path signature 'dry-run sample-rate '())) (state-info path signature 'dry-run sample-rate '()))
(values (summary-inc (summary-inc summary2 'skipped) 'dry-run) errors)) (values (summary-inc (summary-inc summary2 'skipped) 'dry-run) errors))
(begin (begin
(info-alm "converting ~a from ~a Hz to ~a Hz" relpath sample-rate (manager-config-max-sample-rate config)) (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 (let* ((result (convert-proc path
(manager-config-max-sample-rate config) (ini-ref/int ini 'manager 'max-sample-rate 48000)
(manager-config-compression-level config))) (ini-ref/int ini 'manager 'compression-level 5)))
(new-sample-rate (inspect-flac-proc path)) (new-sample-rate (inspect-flac-proc path))
(new-signature (file-signature path config fingerprint-proc))) (new-signature (file-signature path ini fingerprint-proc)))
(state-set-file! ks relpath (state-set-file! ks relpath
(state-info path new-signature 'converted new-sample-rate (state-info path new-signature 'converted new-sample-rate
(list (cons 'old-sample-rate sample-rate) (list (cons 'old-sample-rate sample-rate)
@@ -136,22 +134,25 @@
(define base-dir (filesystem-path base-directory)) (define base-dir (filesystem-path base-directory))
(unless (directory-exists? base-dir) (unless (directory-exists? base-dir)
(raise-argument-error 'manage-flac-tree "existing directory" base-directory)) (raise-argument-error 'manage-flac-tree "existing directory" base-directory))
(define config (load-manager-config base-dir)) (define ini-file (manager-ini-file base-dir))
(setup-logging! (manager-config-log-file config) (manager-config-display-log? config)) (define state-file (manager-state-file base-dir))
(define ini (load-manager-ini base-dir))
(setup-logging! (ini-ref/path ini base-dir 'manager 'log-file ".flac-48khz-manager.log")
(ini-ref/bool ini 'manager 'display-log #t))
(info-alm "base directory: ~a" base-dir) (info-alm "base directory: ~a" base-dir)
(info-alm "state file: ~a" (manager-config-state-file config)) (info-alm "state file: ~a" state-file)
(info-alm "ini file: ~a" (manager-config-ini-file config)) (info-alm "ini file: ~a" ini-file)
(info-alm "change detection: ~a" (manager-config-change-detection config)) (info-alm "change detection: ~a" (ini-ref/string ini 'manager 'change-detection "flac-taglib"))
(define ks (open-manager-state (manager-config-state-file config))) (define ks (open-manager-state state-file))
(define files (find-flac-files base-dir)) (define files (find-flac-files base-dir))
(define relpaths (map (lambda (p) (relpath-string base-dir p)) files)) (define relpaths (map (lambda (p) (relpath-string base-dir p)) files))
(define summary0 (drop-removed! ks relpaths (make-empty-summary))) (define summary0 (drop-removed! ks relpaths (make-empty-summary)))
(define-values (summary errors) (define-values (summary errors)
(for/fold ([summary summary0] [errors '()]) ([p (in-list files)] [rel (in-list relpaths)]) (for/fold ([summary summary0] [errors '()]) ([p (in-list files)] [rel (in-list relpaths)])
(process-one-file ks config p rel inspect-flac-proc fingerprint-proc convert-proc summary errors))) (process-one-file ks ini p rel inspect-flac-proc fingerprint-proc convert-proc summary errors)))
(define errors* (reverse errors)) (define errors* (reverse errors))
(with-handlers ([exn:fail? (lambda (e) (err-alm "mail report failed: ~a" (exn-message e)) (void))]) (with-handlers ([exn:fail? (lambda (e) (err-alm "mail report failed: ~a" (exn-message e)) (void))])
(maybe-send-report-mail config summary errors*)) (maybe-send-report-mail ini summary errors*))
(for ([line (in-list (summary->lines summary))]) (info-alm "summary: ~a" line)) (for ([line (in-list (summary->lines summary))]) (info-alm "summary: ~a" line))
summary) summary)
flac2opus-manager.rkt
+19 -16
View File
@@ -4,7 +4,7 @@
racket/file racket/file
racket/list racket/list
racket/path racket/path
"private/config.rkt" "private/manager-ini.rkt"
"private/flac2opus-state.rkt" "private/flac2opus-state.rkt"
"private/fingerprint.rkt" "private/fingerprint.rkt"
"private/hash.rkt" "private/hash.rkt"
@@ -26,11 +26,11 @@
(define (manager-admin-relpath? relpath) (define (manager-admin-relpath? relpath)
(member relpath manager-admin-relpaths)) (member relpath manager-admin-relpaths))
(define (source-file-signature path config) (define (source-file-signature path ini)
(define mode (manager-config-change-detection config)) (define mode (string-downcase (ini-ref/string ini 'manager 'change-detection "flac-taglib")))
(define hash-algorithm (string-downcase (ini-ref/string ini 'manager 'hash-algorithm "sha256")))
(cond [(member mode '("hash" "sha256" "full-hash" "full-sha256")) (cond [(member mode '("hash" "sha256" "full-hash" "full-sha256"))
(string-append "file:" (manager-config-hash-algorithm config) ":" (string-append "file:" hash-algorithm ":" (file-digest path hash-algorithm))]
(file-digest path (manager-config-hash-algorithm config)))]
[(flac-path? path) [(flac-path? path)
(cond [(member mode '("flac" "flac-streaminfo")) (cond [(member mode '("flac" "flac-streaminfo"))
(string-append "flac-streaminfo:" (flac-streaminfo-fingerprint path))] (string-append "flac-streaminfo:" (flac-streaminfo-fingerprint path))]
@@ -103,7 +103,7 @@
(cons 'kbps kbps)) (cons 'kbps kbps))
extra)) extra))
(define (process-one-source-file ks config target-dir path relpath target-relpath kbps convert-proc summary errors) (define (process-one-source-file ks ini target-dir path relpath target-relpath kbps convert-proc summary errors)
(define target-path (target-path-for target-dir target-relpath)) (define target-path (target-path-for target-dir target-relpath))
(define old (flac2opus-state-get-file ks relpath #f)) (define old (flac2opus-state-get-file ks relpath #f))
(cond [(same-quick-state? old path target-path target-relpath kbps) (cond [(same-quick-state? old path target-path target-relpath kbps)
@@ -125,13 +125,13 @@
(cons (list (cons 'file relpath) (cons (list (cons 'file relpath)
(cons 'message (exn-message e))) (cons 'message (exn-message e)))
errors)))]) errors)))])
(define signature (source-file-signature path config)) (define signature (source-file-signature path ini))
(cond [(same-signature-state? old signature target-path target-relpath kbps) (cond [(same-signature-state? old signature target-path target-relpath kbps)
(info-alm "unchanged fingerprint: ~a" relpath) (info-alm "unchanged fingerprint: ~a" relpath)
(flac2opus-state-set-file! ks relpath (flac2opus-state-set-file! ks relpath
(state-info path target-relpath signature 'unchanged kbps '())) (state-info path target-relpath signature 'unchanged kbps '()))
(values (summary-inc summary2 'unchanged) errors)] (values (summary-inc summary2 'unchanged) errors)]
[(manager-config-dry-run? config) [(ini-ref/bool ini 'manager 'dry-run #f)
(warn-alm "dry-run: would mirror ~a -> ~a" relpath target-relpath) (warn-alm "dry-run: would mirror ~a -> ~a" relpath target-relpath)
(flac2opus-state-set-file! ks relpath (flac2opus-state-set-file! ks relpath
(state-info path target-relpath signature 'dry-run kbps '())) (state-info path target-relpath signature 'dry-run kbps '()))
@@ -181,15 +181,18 @@
(unless (directory-exists? source-dir) (unless (directory-exists? source-dir)
(raise-argument-error 'manage-flac2opus-tree "existing source directory" source-directory)) (raise-argument-error 'manage-flac2opus-tree "existing source directory" source-directory))
(make-directory* target-dir) (make-directory* target-dir)
(define config (load-manager-config source-dir)) (define ini-file (manager-ini-file source-dir))
(setup-logging! (manager-config-log-file-opus config) (manager-config-display-log? config)) (define state-file (manager-state-file source-dir))
(define ini (load-manager-ini source-dir))
(setup-logging! (ini-ref/path ini source-dir 'opus-manager 'log-file ".flac2opus-manager.log")
(ini-ref/bool ini 'manager 'display-log #t))
(info-alm "flac2opus source directory: ~a" source-dir) (info-alm "flac2opus source directory: ~a" source-dir)
(info-alm "flac2opus target directory: ~a" target-dir) (info-alm "flac2opus target directory: ~a" target-dir)
(info-alm "state file: ~a" (manager-config-state-file config)) (info-alm "state file: ~a" state-file)
(info-alm "ini file: ~a" (manager-config-ini-file config)) (info-alm "ini file: ~a" ini-file)
(info-alm "change detection: ~a" (manager-config-change-detection config)) (info-alm "change detection: ~a" (ini-ref/string ini 'manager 'change-detection "flac-taglib"))
(info-alm "opus bitrate: ~a kbps" kbps) (info-alm "opus bitrate: ~a kbps" kbps)
(define ks (open-flac2opus-state (manager-config-state-file config))) (define ks (open-flac2opus-state state-file))
(define files (find-source-files source-dir)) (define files (find-source-files source-dir))
(define relpaths (map (lambda (p) (source-relpath-string source-dir p)) files)) (define relpaths (map (lambda (p) (source-relpath-string source-dir p)) files))
(define target-relpaths (map target-relpath-for relpaths)) (define target-relpaths (map target-relpath-for relpaths))
@@ -198,10 +201,10 @@
(for/fold ([summary summary0] [errors '()]) ([p (in-list files)] (for/fold ([summary summary0] [errors '()]) ([p (in-list files)]
[relpath (in-list relpaths)] [relpath (in-list relpaths)]
[target-relpath (in-list target-relpaths)]) [target-relpath (in-list target-relpaths)])
(process-one-source-file ks config target-dir p relpath target-relpath kbps convert-proc summary errors))) (process-one-source-file ks ini target-dir p relpath target-relpath kbps convert-proc summary errors)))
(define errors* (reverse errors)) (define errors* (reverse errors))
(with-handlers ([exn:fail? (lambda (e) (err-alm "mail report failed: ~a" (exn-message e)) (void))]) (with-handlers ([exn:fail? (lambda (e) (err-alm "mail report failed: ~a" (exn-message e)) (void))])
(maybe-send-report-mail config summary errors* (maybe-send-report-mail ini summary errors*
#:manager-name "FLAC to Opus manager" #:manager-name "FLAC to Opus manager"
#:result-label "converted/copied")) #:result-label "converted/copied"))
(for ([line (in-list (summary->lines summary))]) (info-alm "summary: ~a" line)) (for ([line (in-list (summary->lines summary))]) (info-alm "summary: ~a" line))
private/config.rkt
-110
View File
@@ -1,110 +0,0 @@
#lang racket/base
(require racket/file
racket/path
simple-ini
"util.rkt")
(provide manager-config?
manager-config-base-dir
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
manager-config-dry-run?
manager-config-display-log?
manager-config-compression-level
manager-config-mail-enabled?
manager-config-mail-send-on-success?
manager-config-mail-send-on-error?
manager-config-mail-host
manager-config-mail-port
manager-config-mail-tls?
manager-config-mail-username
manager-config-mail-password
manager-config-mail-from
manager-config-mail-to
manager-config-mail-cc
manager-config-mail-bcc
manager-config-mail-subject-prefix
load-manager-config
ensure-default-config!)
(struct manager-config
(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)
#:transparent)
(define (default-log-file base-dir)
(build-path base-dir ".flac-48khz-manager.log"))
(define (default-ini base-dir)
(build-path base-dir ".flac-48khz-manager.ini"))
(define (default-state base-dir)
(build-path base-dir ".music-info.db"))
(define (ensure-default-config! ini-file)
(unless (file-exists? ini-file)
(define ini (make-ini))
(ini-set! ini 'manager 'max-sample-rate 48000)
(ini-set! ini 'manager 'hash-algorithm "sha256")
(ini-set! ini 'manager 'change-detection "flac-taglib")
(ini-set! ini 'manager 'dry-run #f)
(ini-set! ini 'manager 'display-log #t)
(ini-set! ini 'manager 'log-file ".flac-48khz-manager.log")
(ini-set! ini 'manager 'compression-level 5)
(ini-set! ini 'mail 'enabled #f)
(ini-set! ini 'mail 'send-on-success #f)
(ini-set! ini 'mail 'send-on-error #t)
(ini-set! ini 'mail 'host "")
(ini-set! ini 'mail 'port 25)
(ini-set! ini 'mail 'tls #f)
(ini-set! ini 'mail 'username "")
(ini-set! ini 'mail 'password "")
(ini-set! ini 'mail 'from "")
(ini-set! ini 'mail 'to "")
(ini-set! ini 'mail 'cc "")
(ini-set! ini 'mail 'bcc "")
(ini-set! ini 'mail 'subject-prefix "[flac-48khz-manager]")
(ini->file ini ini-file)))
(define (resolve-log-file base-dir v)
(define p (string-value v ".flac-48khz-manager.log"))
(cond [(path-string? p)
(define bp (string->path p))
(if (absolute-path? bp) bp (build-path base-dir bp))]
[else (default-log-file base-dir)]))
(define (load-manager-config base-dir*)
(define base-dir (simple-form-path base-dir*))
(define ini-file (default-ini base-dir))
(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")))
(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"))
(bool-value (ini-get ini 'manager 'dry-run #f) #f)
(bool-value (ini-get ini 'manager 'display-log #t) #t)
(int-value (ini-get ini 'manager 'compression-level 5) 5)
(bool-value (ini-get ini 'mail 'enabled #f) #f)
(bool-value (ini-get ini 'mail 'send-on-success #f) #f)
(bool-value (ini-get ini 'mail 'send-on-error #t) #t)
(string-value (ini-get ini 'mail 'host "") "")
(int-value (ini-get ini 'mail 'port 25) 25)
(bool-value (ini-get ini 'mail 'tls #f) #f)
(string-value (ini-get ini 'mail 'username "") "")
(string-value (ini-get ini 'mail 'password "") "")
(string-value (ini-get ini 'mail 'from "") "")
(split-addresses (ini-get ini 'mail 'to ""))
(split-addresses (ini-get ini 'mail 'cc ""))
(split-addresses (ini-get ini 'mail 'bcc ""))
(string-value (ini-get ini 'mail 'subject-prefix "[flac-48khz-manager]") "[flac-48khz-manager]")))
private/mail.rkt
+16 -16
View File
@@ -4,7 +4,7 @@
racket/string racket/string
racket/tcp racket/tcp
net/base64 net/base64
"config.rkt" "manager-ini.rkt"
"report.rkt") "report.rkt")
(provide maybe-send-report-mail (provide maybe-send-report-mail
@@ -113,22 +113,22 @@
(close-input-port in) (close-input-port in)
(close-output-port out)))) (close-output-port out))))
(define (maybe-send-report-mail config summary errors (define (maybe-send-report-mail ini summary errors
#:manager-name [manager-name "FLAC 48 kHz manager"] #:manager-name [manager-name "FLAC 48 kHz manager"]
#:result-label [result-label "converted"]) #:result-label [result-label "converted"])
(define has-errors? (positive? (summary-ref summary 'errors 0))) (define has-errors? (positive? (summary-ref summary 'errors 0)))
(define should-send? (define should-send?
(and (manager-config-mail-enabled? config) (and (ini-ref/bool ini 'mail 'enabled #f)
(not (null? (manager-config-mail-to config))) (not (null? (ini-ref/addresses ini 'mail 'to "")))
(or (and has-errors? (manager-config-mail-send-on-error? config)) (or (and has-errors? (ini-ref/bool ini 'mail 'send-on-error #t))
(and (not has-errors?) (manager-config-mail-send-on-success? config))))) (and (not has-errors?) (ini-ref/bool ini 'mail 'send-on-success #f)))))
(when should-send? (when should-send?
(define from (mail-address->envelope-address (manager-config-mail-from config))) (define from (mail-address->envelope-address (ini-ref/string ini 'mail 'from "")))
(define to (clean-address-list (manager-config-mail-to config))) (define to (clean-address-list (ini-ref/addresses ini 'mail 'to "")))
(define cc (clean-address-list (manager-config-mail-cc config))) (define cc (clean-address-list (ini-ref/addresses ini 'mail 'cc "")))
(define bcc (clean-address-list (manager-config-mail-bcc config))) (define bcc (clean-address-list (ini-ref/addresses ini 'mail 'bcc "")))
(define subject (format "~a ~a: ~a error(s), ~a ~a" (define subject (format "~a ~a: ~a error(s), ~a ~a"
(manager-config-mail-subject-prefix config) (ini-ref/string ini 'mail 'subject-prefix "[flac-48khz-manager]")
manager-name manager-name
(summary-ref summary 'errors 0) (summary-ref summary 'errors 0)
(summary-ref summary 'converted 0) (summary-ref summary 'converted 0)
@@ -142,8 +142,8 @@
#:bcc bcc #:bcc bcc
#:body-content-type "text/html")) #:body-content-type "text/html"))
(strict-send-smtp-mail mail (strict-send-smtp-mail mail
#:host (string-trim (manager-config-mail-host config)) #:host (string-trim (ini-ref/string ini 'mail 'host ""))
#:port (manager-config-mail-port config) #:port (ini-ref/int ini 'mail 'port 25)
#:tls-encode (manager-config-mail-tls? config) #:tls-encode (ini-ref/bool ini 'mail 'tls #f)
#:username (string-trim (manager-config-mail-username config)) #:username (string-trim (ini-ref/string ini 'mail 'username ""))
#:password (manager-config-mail-password config)))) #:password (ini-ref/string ini 'mail 'password ""))))
private/manager-ini.rkt
+77
View File
@@ -0,0 +1,77 @@
#lang racket/base
(require racket/file
racket/path
simple-ini
"util.rkt")
(provide manager-ini-file
manager-state-file
ensure-default-manager-ini!
load-manager-ini
ini-ref/bool
ini-ref/int
ini-ref/string
ini-ref/path
ini-ref/addresses)
(define (manager-ini-file base-dir*)
(build-path (filesystem-path base-dir*) ".flac-48khz-manager.ini"))
(define (manager-state-file base-dir*)
(build-path (filesystem-path base-dir*) ".music-info.db"))
(define (ensure-default-manager-ini! ini-file)
(unless (file-exists? ini-file)
(define ini (make-ini))
(ini-set! ini 'manager 'max-sample-rate 48000)
(ini-set! ini 'manager 'hash-algorithm "sha256")
(ini-set! ini 'manager 'change-detection "flac-taglib")
(ini-set! ini 'manager 'dry-run #f)
(ini-set! ini 'manager 'display-log #t)
(ini-set! ini 'manager 'log-file ".flac-48khz-manager.log")
(ini-set! ini 'manager 'compression-level 5)
(ini-set! ini 'opus-manager 'log-file ".flac2opus-manager.log")
(ini-set! ini 'mail 'enabled #f)
(ini-set! ini 'mail 'send-on-success #f)
(ini-set! ini 'mail 'send-on-error #t)
(ini-set! ini 'mail 'host "")
(ini-set! ini 'mail 'port 25)
(ini-set! ini 'mail 'tls #f)
(ini-set! ini 'mail 'username "")
(ini-set! ini 'mail 'password "")
(ini-set! ini 'mail 'from "")
(ini-set! ini 'mail 'to "")
(ini-set! ini 'mail 'cc "")
(ini-set! ini 'mail 'bcc "")
(ini-set! ini 'mail 'subject-prefix "[flac-48khz-manager]")
(ini->file ini ini-file)))
(define (load-manager-ini base-dir*)
(define ini-file (manager-ini-file base-dir*))
(ensure-default-manager-ini! ini-file)
(file->ini ini-file))
(define (ini-ref/bool ini section key default)
(bool-value (ini-get ini section key default) default))
(define (ini-ref/int ini section key default)
(int-value (ini-get ini section key default) default))
(define (ini-ref/string ini section key default)
(string-value (ini-get ini section key default) default))
(define (resolve-ini-path base-dir v default)
(define p (string-value v default))
(cond [(path-string? p)
(define bp (string->path p))
(if (absolute-path? bp) bp (build-path base-dir bp))]
[else (build-path base-dir default)]))
(define (ini-ref/path ini base-dir section key default)
(resolve-ini-path (filesystem-path base-dir)
(ini-get ini section key default)
default))
(define (ini-ref/addresses ini section key default)
(split-addresses (ini-get ini section key default)))
scribblings/audio-library-manager.scrbl
+4 -2
View File
@@ -70,8 +70,7 @@ implementation.
@section{Configuration} @section{Configuration}
The configuration file is created automatically when it does not exist. The main The configuration file is created automatically when it does not exist. The managers read it directly as sections and keys through @racketmodname[simple-ini]; there is no separate configuration struct layered on top of the ini model. The main settings are:
settings are:
@verbatim{ @verbatim{
[manager] [manager]
@@ -83,6 +82,9 @@ display-log=#t
log-file=".flac-48khz-manager.log" log-file=".flac-48khz-manager.log"
compression-level=5 compression-level=5
[opus-manager]
log-file=".flac2opus-manager.log"
[mail] [mail]
enabled=#f enabled=#f
send-on-success=#f send-on-success=#f