From: Christopher Allan Webber Date: Mon, 23 Nov 2015 21:20:26 +0000 (-0600) Subject: refactoring args to default-handle-privmsg X-Git-Tag: v0.1.0~85 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=d86e4ab5d19c62bd585239dd600aa2645b337c74;p=8sync.git refactoring args to default-handle-privmsg --- diff --git a/demos/irc.scm b/demos/irc.scm index ab6c7c7..eabc31d 100755 --- a/demos/irc.scm +++ b/demos/irc.scm @@ -162,12 +162,13 @@ (string-join (cons first-word rest-message) " ") #f))))) -(define (default-handle-privmsg irc-line username channel-name message is-action) +(define (default-handle-privmsg 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* (make-handle-line #:key (handle-privmsg default-handle-privmsg)) @@ -180,7 +181,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)))))