(in-package :empire-log)

(defvar *user-log-path* #p"/tmp/")

(defun info (&rest args)
  (apply #'format *standard-output* args)
  (terpri *standard-output*))

(defun user-log-path (user-name)
  (make-pathname :defaults *user-log-prefix* :name user-name))

(defun open-user-log (user-name)
  (open (user-log-path user-name) :direction :output :if-exists :supersede))