(define-module (pypi logging)
  #:use-module (logging logger)
  #:use-module (logging port-log)
  #:use-module (oop goops)
  #:export (setup-logging
           shutdown-logging))

(define (setup-logging)
  (let ((lgr       (make <logger>))
        (err       (make <port-log> #:port (current-error-port))))

    (disable-log-level! err 'DEBUG)
    ;(disable-log-level! err 'WARN)
    ;(disable-log-level! err 'INFO)

    (add-handler! lgr err)

    (set-default-logger! lgr)
    (open-log! lgr)))

(define (shutdown-logging)
  (flush-log)   ;; since no args, it uses the default
  (close-log!)  ;; since no args, it uses the default
  (set-default-logger! #f))