;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.logger)

(def (logger e) root-logger ()
  :runtime-level      (or (production-only +info+) +debug+)
  :compile-time-level (or (production-only +info+) +dribble+)
  :appenders ((debug-only* (make-thread-safe-stream-appender '*debug-io*)))
  :documentation "This logger will be the direct parent of newly defined loggers, unless otherwise specified in the DEFLOGGER form. The consequence of this is that each logger will be the predecessor of this logger.")

(def (function e) setup-logging-for-production (log-directory)
  (loop
    (restart-case
        (progn
          (unless (ignore-errors (truename log-directory))
            (cerror "Ignore it" "Log directory does not exist or is not accessible. Tried: ~S" log-directory))
          (return))
      (retry ()
        :report "Try again accessing the configured log directory"
        (values))))
  (setf *log-directory* log-directory)
  (bind ((root-logger (find-logger 'root-logger)))
    (setf (hu.dwim.logger::appenders-of root-logger)
          (list (make-level-filtering-appender +warn+ (make-thread-safe-file-appender "error.log"))
                (make-thread-safe-file-appender "root.log")))
    (setf (log-level root-logger) +info+)))