X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=demos%2Firc.scm;h=37e4e0195ecbbe4a5b449aa19b39d8521a3e94f1;hp=ab6c7c7195876b5843abd9f41ff7df6bb79d1b20;hb=260a9a10fd060573da725c129d2e54ef33ff61a3;hpb=da78b24ca8b7be9085e7f78e4f50fa631a893a7b

diff --git a/demos/irc.scm b/demos/irc.scm
index ab6c7c7..37e4e01 100755
--- a/demos/irc.scm
+++ b/demos/irc.scm
@@ -162,12 +162,15 @@
                (string-join (cons first-word rest-message) " ")
                #f)))))
 
-(define (default-handle-privmsg irc-line username channel-name message is-action)
+(define (echo-back-message my-name speaker
+                           channel-name message is-action)
   (if is-action
       (format #t "~a emoted ~s in channel ~a\n"
-              username message channel-name)
+              speaker message channel-name)
       (format #t "~a said ~s in channel ~a\n"
-              username message channel-name)))
+              speaker message channel-name)))
+
+(define default-handle-privmsg echo-back-message)
 
 (define* (make-handle-line #:key
                            (handle-privmsg default-handle-privmsg))
@@ -180,7 +183,7 @@
          (receive (channel-name message is-action)
              (condense-privmsg-line (irc-line-params parsed-line))
            (let ((username (irc-line-username parsed-line)))
-             (handle-privmsg parsed-line username channel-name message is-action))))
+             (handle-privmsg my-username username channel-name message is-action))))
         (_
          (display line)
          (newline)))))