From 5a326cd862d3f0234809beaac4dc738bf76bc605 Mon Sep 17 00:00:00 2001 From: Burton Samograd Date: Sat, 7 Mar 2015 13:50:39 -0700 Subject: [PATCH] Cleanup nick printing to only print the nick rather than the full origin string. --- applications/irc.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/applications/irc.lisp b/applications/irc.lisp index a86b477b4..d2d041497 100644 --- a/applications/irc.lisp +++ b/applications/irc.lisp @@ -221,9 +221,9 @@ (eql (char message 0) (code-char #x01)) (eql (char message (1- (length message))) (code-char #x01)) (string= "ACTION " message :start2 1 :end2 8)) - (format (display-pane irc) "~&[~A]* ~A ~A" channel from + (format (display-pane irc) "~&[~A]* ~A ~A" channel (parse-origin from) (subseq message 8 (1- (length message))))) - (t (format (display-pane irc) "~&[~A]<~A> ~A" channel from message)))) + (t (format (display-pane irc) "~&[~A]<~A> ~A" channel (parse-origin from) message)))) (define-server-command ping (irc from message) (buffered-format (irc-connection irc) "PONG :~A~%" message))