-

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)
      )
     )
   )

scrbl/.gitignore

@@ -1,3 +1,5 @@
 *.css
 *.html
 *.js
+*~
+*.bak

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[