From 012999fc223500defca16cf1b3a9fbd52c0eb5ea Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Thu, 4 Jul 2024 11:51:14 +0200
Subject: [PATCH] logging: improve layout pattern

---
 logging.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/logging.lisp b/logging.lisp
index f132535..758766c 100644
--- a/logging.lisp
+++ b/logging.lisp
@@ -17,7 +17,7 @@
 (defun setup(cfg)
   (let ((loglevel (config:from-env :loglevel (loglevel cfg)))
         (logfile (config:from-env :logfile (logfile cfg)))
-        (pat "%&%<%I%;<;;>;-5p [%D{%H:%M:%S}] %g{}{}{:downcase}%:; ;F%2.2N - %:_%m%>%n")
+        (pat "%&%<%I%;<;;>;-5p [%D{%H:%M:%S}] %g{}{}{:downcase}:%2.2N%C{1}{}{:downcase} - %:_%m%>%n")
         params)
     (if (stringp loglevel)
       (setf loglevel (util:to-keyword loglevel)))