- cl-irc-devel - mailman3.common-lisp.net

Moving the repository to Git+GitLab?
by Erik Huelsmann 03 Nov '18

03 Nov '18

Hi, How about moving the cl-irc repository to Git and GitLab? The result would be 2 Git repositories: 1 for the cl-irc code the other for the "public_html" directory in the repository to hold the site (mapped into the cl-irc-site repository). Regards, -- Bye, Erik. http://efficito.com -- Hosted accounting and ERP. Robust and Flexible. No vendor lock-in.

1 0

[Cl-irc-devel] Question about cl-irc
by slisp＠openmailbox.org 08 Apr '14

08 Apr '14

Hey! I was trying to do something that downloads via dcc from somebody from irc. From cliki it seems cl-irc is the only library that supports dcc. The problem is I'm new to programming and lisp couldn't find help regarding this. Could you extend the sample usage on common-lisp.net/project/cl-irc to include some kind of example using dcc?

1 0

[cl-irc-devel] [PATCH 1/6] Make mode optional in `mode' command
by Julien Danjou 13 Jan '13

13 Jan '13

If you just want to retrieve the mode of a channel, you don't have to pass a mode argument at all, and you'll get a RPL_CHANNELMODEIS in return. Signed-off-by: Julien Danjou <julien(a)danjou.info> --- command.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/command.lisp b/command.lisp index aac445b..c167561 100644 --- a/command.lisp +++ b/command.lisp @@ -9,7 +9,7 @@ (defgeneric nick (connection new-nickname)) (defgeneric user- (connection username mode &optional realname)) (defgeneric oper (connection name password)) -(defgeneric mode (connection nickname mode)) +(defgeneric mode (connection nickname &optional mode)) (defgeneric op (connection channel nickname)) (defgeneric deop (connection channel nickname)) (defgeneric voice (connection channel user)) @@ -103,7 +103,7 @@ registered." (defmethod oper ((connection connection) (name string) (password string)) (send-irc-message connection :oper name password)) -(defmethod mode ((connection connection) (nickname string) (mode string)) +(defmethod mode ((connection connection) (nickname string) &optional mode) (send-irc-message connection :mode nickname mode)) ;; utility functions not part of the RFCs -- 1.8.1

2 10

[cl-irc-devel] [PATCH] Register current user nickname on rpl_welcome
by Julien Danjou 13 Jan '13

13 Jan '13

Currently, the user nickname is recorded in the connection object when `connect' is called. Unfortunately, if it happens that the nickname used to connect is already taken, err_nicknameinuse is received and the connection is not established (yet). The thing to do to handle this, is to issue a `nick' command in err_nicknameinuse to pick a different nickname. The problem is that such a case, even if a NICK request was sent (and might or not be successful), there's no NICK reply sent by the server, because all of this happens before the welcome message has been sent. Therefore, the connection object as a wrong value for the user nickname (the one issued the first time, not the one actually negotiated). Consequently, functions such as `self-message-p' don't work correctly, and everything is just mess and chaos. To fix this, this patch stop registering the nickname at `connect' time, but does it as soon as the welcome message is received. That way, it is sure that the connection stores the real nickname, not the one asked for the first time. Signed-off-by: Julien Danjou <julien(a)danjou.info> --- command.lisp | 7 +------ event.lisp | 13 +++++++++++++ protocol.lisp | 1 + 3 files changed, 15 insertions(+), 6 deletions(-) diff --git a/command.lisp b/command.lisp index c0277fc..aac445b 100644 --- a/command.lisp +++ b/command.lisp @@ -296,13 +296,8 @@ connect to. `connection-security' determines which port number is found. :socket socket :network-stream stream :client-stream logging-stream - :server-name server)) - (user (make-user connection - :nickname nickname - :username username - :realname realname))) + :server-name server))) #+sbcl (setf (sb-bsd-sockets::sockopt-keep-alive (usocket:socket socket)) t) - (setf (user connection) user) (unless (null password) (pass connection password)) (nick connection nickname) diff --git a/event.lisp b/event.lisp index 3b99d4a..eb97fc9 100644 --- a/event.lisp +++ b/event.lisp @@ -141,6 +141,19 @@ objects in sync.")) (username user) username (hostname user) hostname))))) +(defmethod default-hook ((message irc-rpl_welcome-message)) + (with-slots + (connection host user arguments) + message + (destructuring-bind + (nickname welcome-message) + arguments + (setf (user connection) + (make-user connection + :nickname nickname + :hostname host + :username user))))) + (defmethod default-hook ((message irc-rpl_list-message)) (destructuring-bind (channel count topic) diff --git a/protocol.lisp b/protocol.lisp index b464697..1c2ec19 100644 --- a/protocol.lisp +++ b/protocol.lisp @@ -246,6 +246,7 @@ connection.") irc-rpl_topic-message irc-rpl_namreply-message irc-rpl_endofnames-message + irc-rpl_welcome-message irc-ping-message irc-join-message irc-topic-message -- 1.8.1.rc0

2 1

[cl-irc-devel] [PATCH] Export `value'
by Julien Danjou 26 Dec '12

26 Dec '12

If this accessor is not exported, there's no way AFAICT to access content of `list-value-mode' class for example, and iterate over it. Signed-off-by: Julien Danjou <julien(a)danjou.info> --- package.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/package.lisp b/package.lisp index c09537a..4901ecd 100644 --- a/package.lisp +++ b/package.lisp @@ -124,6 +124,7 @@ :info :servlist :squery + :value :who :whois :whowas -- 1.8.1.rc0

1 1

[cl-irc-devel] [PATCH] Add last argument to add-hook
by Julien Danjou 25 Dec '12

25 Dec '12

It can be useful to be able to run some hook in last, so let's add an option do that. --- protocol.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/protocol.lisp b/protocol.lisp index 1c2ec19..cd5ddd7 100644 --- a/protocol.lisp +++ b/protocol.lisp @@ -198,7 +198,7 @@ connection.") (defgeneric read-irc-message (connection)) (defgeneric send-irc-message (connection command &rest arguments)) (defgeneric get-hooks (connection class)) -(defgeneric add-hook (connection class hook)) +(defgeneric add-hook (connection class hook &optional last)) (defgeneric remove-hook (connection class hook)) (defgeneric remove-hooks (connection class)) (defgeneric remove-all-hooks (connection)) @@ -379,10 +379,13 @@ server, via the `connection'." (gethash class (hooks connection))) ;;applies to both irc and dcc-connections -(defmethod add-hook (connection class hook) - "Add `hook' to `class'." +(defmethod add-hook (connection class hook &optional last) + "Add `hook' to `class'. +If `last' is not nil, put this hook last." (setf (gethash class (hooks connection)) - (pushnew hook (gethash class (hooks connection))))) + (if last + (append (gethash class (hooks connection)) (list hook)) + (pushnew hook (gethash class (hooks connection)))))) (defmethod remove-hook ((connection connection) class hook) "Remove `hook' from `class'." -- 1.8.1.rc0

2 2

[cl-irc-devel] (no subject)
by Zachary Richards 22 Nov '12

22 Nov '12

There is an error thrown for irc reply 439 on the rizon network, the line looks as follows: 439: irc.broke-it.com * "Please wait while we process your connection." Looking back in the mailing list I saw you quote someone suggesting to add an option to not drop to the debugger on unknown replies, do you plan on doing something along those lines? -- Zach

1 0

[cl-irc-devel] [ANNOUNCE] cl-irc 0.9.1 released
by Erik Huelsmann 23 Sep '12

23 Sep '12

Hi, At long last, over the past weeks I've committed all patches lingering in my inbox and fixes for all bug reports. Today that resulted in the release of 0.9.1. This is the first release in roughly 2,5 years with fixes lingering in my inbox for just over 4(!) years. Please report any issues to the cl-irc-devel list so I can pick them up and make sure any outstanding issues are fixed promptly. Bye, Erik. PS: I've asked Zach to start picking up release tarballs for inclusion in Quicklisp instead of picking up HEAD of trunk as he's been forced before.

1 0

[cl-irc-devel] Please release
by Hans-Peter Deifel 23 Sep '12

23 Sep '12

Hello, Your current release (0.8.1) is not compatiple with newer versions of flexi-streams. This is fixed in SVN (Revision 209), but asdf-install currently fails with an error about FLEXI-STREAM-ENCODING-ERROR not being found. It would be nice, if you could release a version including this revision, to make installation via asdf-install, as well as gentoo and debian packages working again. Thank you, Hans-Peter Deifel

2 1

[cl-irc-devel] irc reply 328
by R.Matthew Emerson 23 Sep '12

23 Sep '12

It appears that when a channel is "registered" on freenode, the server sends a reply of the following form to set the channel's URL: :zelazny.freenode.net 328 rme #ccl :http://ccl.clozure.com/ CL-IRC doesn't know about this, and signals an error when it encounters it. Anyway, it might be reasonable to add (328 :rpl_channel_url) to *REPLY-NAMES* in variables.lisp. This event is mentioned in a few places I found via Google: http://colloquy.info/project/browser/trunk/Chat%20Core/MVIRCNumerics.h http://www.mishscript.de/reference/rawhelp3.htm#raw328 http://www.alien.net.au/irc/irc2numerics.def

4 5