>log-line ( object -- line )

Vocabulary

irc.logbot.log-line

Inputs

object

an object

Outputs

line

an object

Definition

IN: irc.logbot.log-line

GENERIC: >log-line ( object -- line )

Methods

USING: accessors irc.logbot.log-line irc.messages kernel make ;

M: action >log-line
    [ "* " % dup sender>> % " " % text>> % ] "" make ;


USING: accessors irc.logbot.log-line irc.messages kernel make ;

M: ctcp >log-line
    [ "CTCP: " % dup sender>> % " " % text>> % ] "" make ;


USING: accessors irc.logbot.log-line irc.messages.base ;

M: irc-message >log-line line>> ;


USING: accessors irc.logbot.log-line irc.messages kernel make ;

M: join >log-line
    [
        [ "* " % sender>> % ]
        [ prefix>> prefix% " has joined the channel." % ] bi
    ] "" make ;


USING: accessors combinators irc.logbot.log-line irc.messages
make ;

M: kick >log-line
    [
        {
            [ "* " % sender>> % ]
            [ " has kicked " % user>> % ]
            [ " from the channel" % comment>> dot-or-parens % ]
        } cleave
    ] "" make ;


USING: accessors irc.logbot.log-line irc.messages kernel make ;

M: nick >log-line
    [ "* " % dup sender>> % " is now known as " % nickname>> % ]
    "" make ;


USING: accessors irc.logbot.log-line irc.messages kernel make ;

M: part >log-line
    [
        [ "* " % sender>> % ]
        [ prefix>> prefix% " has left the channel" % ]
        [ comment>> dot-or-parens % ] tri
    ] "" make ;


USING: accessors combinators irc.logbot.log-line irc.messages
make ;

M: participant-mode >log-line
    [
        {
            [ "* " % sender>> % ]
            [ " has set mode " % mode>> % ]
            [ " to " % parameter>> % ]
        } cleave
    ] "" make ;


USING: accessors irc.logbot.log-line irc.messages kernel make ;

M: privmsg >log-line
    [ "<" % dup sender>> % "> " % text>> % ] "" make ;


USING: accessors irc.logbot.log-line irc.messages kernel make ;

M: quit >log-line
    [
        [ "* " % sender>> % ] [ prefix>> prefix% " has quit" % ]
        [ comment>> dot-or-parens % ] tri
    ] "" make ;


USING: accessors irc.logbot.log-line irc.messages kernel make ;

M: topic >log-line
    [
        "* " % dup sender>> % " has set the topic for " %
        dup channel>> % ": \"" % topic>> % "\"" %
    ] "" make ;