You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
770 B
37 lines
770 B
(in-package :nea/irc)
|
|
|
|
(defclass irc-message ()
|
|
((tags
|
|
:initarg :tags
|
|
:initform nil
|
|
:accessor message-tags)
|
|
(source
|
|
:initarg :source
|
|
:initform nil
|
|
:accessor message-source)
|
|
(command
|
|
:initarg :command
|
|
:accessor message-command)
|
|
(parameters
|
|
:initarg :parameters
|
|
:initform nil
|
|
:accessor message-parameters)))
|
|
|
|
(defclass irc-message-source ()
|
|
((nick
|
|
:initarg :nick
|
|
:initform nil
|
|
:accessor message-source-nick)
|
|
(user
|
|
:initarg :user
|
|
:initform nil
|
|
:accessor message-source-user)
|
|
(host
|
|
:initarg :host
|
|
:accessor message-source-host)))
|
|
|
|
(defclass irc-message-notrailing (irc-message) ())
|
|
|
|
(defun with-irc-source (message source)
|
|
(setf (slot-value message 'source) source)
|
|
message)
|