changed logging

1 files changed, 6 insertions, 8 deletions

diff --git a/ebus-racket/ebus/layer7.rkt b/ebus-racket/ebus/layer7.rkt
index 60f8bbc..76ea6ae 100644
--- a/ebus-racket/ebus/layer7.rkt
+++ b/ebus-racket/ebus/layer7.rkt
@@ -6,8 +6,7 @@
  "xexpr-path/main.rkt"
  "layer2.rkt")
 
-(define logger (make-logger 'ebus-layer7 (current-logger)))
-(current-logger logger)
+(define-logger ebus7)
 
 (define definition
  (parameterize ([collapse-whitespace #t]
@@ -17,7 +16,7 @@
 (define (paket ebus-paket)
   (define primaryCommand (number->string (layer2-ebus-paket-primaryCommand ebus-paket)))
   (define secondaryCommand (number->string (layer2-ebus-paket-secondaryCommand ebus-paket)))
-  (log-debug "Lookup paket primaryCommand=~a secondaryCommand=~a" primaryCommand secondaryCommand)
+  (log-ebus7-debug "Lookup paket primaryCommand=~a secondaryCommand=~a" primaryCommand secondaryCommand)
   (xexpr-path-first (list 'packets 'packet (list 'primary primaryCommand)
                                            (list 'secondary secondaryCommand)) definition))
 
@@ -46,7 +45,7 @@
          (define payload (layer2-ebus-paket-payload ebus-paket))
          (for/list ([decoder decoders])
           (decoder payload)))
-   (else (void (log-info "Unknown Paket from source ~s(~s): ~s" 
+   (else (void (log-ebus7-info "Unknown Paket from source ~s(~s): ~s" 
                  (layer2-ebus-paket-source ebus-paket) 
                  source-device-name 
                  ebus-paket)))))
@@ -57,7 +56,7 @@
   (define name (string-append paket-id "." (xexpr-path-first '((name)) field)))
   (define offset (string->number (xexpr-path-first '((offset)) field)))
   (define decoder (hash-ref decoder-table type #f))
-  (cond ((false? decoder) (void (log-warning "No decoder for type ~s" type)))
+  (cond ((false? decoder) (void (log-ebus7-warning "No decoder for type ~s" type)))
    (else (curry (car decoder) name field offset))))
 
 (define decoder-table
@@ -168,6 +167,5 @@
          (prefix-out layer7- device)
          (prefix-out layer7- device-name)
          (prefix-out layer7- definition)
-	 ;; read ebus from port an return fields from next paket
-	 (prefix-out layer7- read-ebus)
-	 (prefix-out layer7- logger))
+		 ;; read ebus from port an return fields from next paket
+		 (prefix-out layer7- read-ebus))