#lang racket/base

(require racket/file
         simple-log)

(provide setup-logging!
         dbg-alm
         info-alm
         warn-alm
         err-alm
         fatal-alm
         sync-log-alm)

(sl-def-log audio-library-manager alm)

(define (setup-logging! log-file display-log?)
  (make-directory* (let-values ([(base name dir?) (split-path log-file)]) base))
  (if display-log?
      (sl-log-to-file&display log-file)
      (sl-log-to-file log-file))
  (sl-set-log-level 'debug)
  (info-alm "logging initialized: ~a" log-file))