From afce3dc0964da9496d9059cd6f016b73216fa3d2 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Thu, 9 Apr 2026 12:18:00 +0200
Subject: [PATCH] -

---
 main.rkt               | 19 +++++++++++--------
 scrbl/.gitignore       |  2 ++
 scrbl/simple-log.scrbl |  5 ++++-
 3 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/main.rkt b/main.rkt
index fa490bc..740cf73 100644
--- a/main.rkt
+++ b/main.rkt
@@ -159,19 +159,22 @@
 
 (define-syntax (sl-def-log stx)
   (syntax-case stx (log-callbacks)
-    ((_ id parent)
-     (with-syntax ([receiver (format-id #'id "receiver-~a" #'id)]
-                   [dbg-name (format-id #'id "dbg-~a" #'id)]
-                   [info-name (format-id #'id "info-~a" #'id)]
-                   [warn-name (format-id #'id "warn-~a" #'id)]
-                   [err-name (format-id #'id "err-~a" #'id)]
-                   [fatal-name (format-id #'id "fatal-~a" #'id)]
+    ((_ id parent prefix)
+     (with-syntax ([receiver (format-id #'id "receiver-~a" #'prefix)]
+                   [dbg-name (format-id #'id "dbg-~a" #'prefix)]
+                   [info-name (format-id #'id "info-~a" #'prefix)]
+                   [warn-name (format-id #'id "warn-~a" #'prefix)]
+                   [err-name (format-id #'id "err-~a" #'prefix)]
+                   [fatal-name (format-id #'id "fatal-~a" #'prefix)]
                    )
        #'(def-log2 id parent receiver log-callbacks dbg-name info-name warn-name err-name fatal-name)
        )
      )
+    ((_ id parent)
+     #'(sl-def-log id parent id)
+     )
     ((_ id)
-     #'(sl-def-log id (current-logger))
+     #'(sl-def-log id (current-logger) id)
      )
     )
   )
diff --git a/scrbl/.gitignore b/scrbl/.gitignore
index 2132c7e..203de9c 100644
--- a/scrbl/.gitignore
+++ b/scrbl/.gitignore
@@ -1,3 +1,5 @@
 *.css
 *.html
 *.js
+*~
+*.bak
diff --git a/scrbl/simple-log.scrbl b/scrbl/simple-log.scrbl
index 82406b4..2ac62ba 100644
--- a/scrbl/simple-log.scrbl
+++ b/scrbl/simple-log.scrbl
@@ -15,7 +15,8 @@ registered callbacks.
 @defmodule["simple-log"]
 
 @defform*[((sl-def-log id)
-           (sl-def-log id parent))]{
+           (sl-def-log id parent)
+           (sl-def-log id parent prefix))]{
 
 Defines a logger with topic @racket['id] and creates:
 
@@ -27,6 +28,8 @@ Defines a logger with topic @racket['id] and creates:
  @item{@racket[fatal-id]}
 ]
 
+Note. If prefix is given, id @racket[dbg-prefix], etc. will be generated instead of @racket[dbg-id], etc.
+
 Each procedure has shape:
 
 @racketblock[