dispatch-message ( json singleton -- )

Vocabulary

discord

Inputs

json	an object
singleton	an object

Outputs

None

Definition

IN: discord

GENERIC: dispatch-message ( json singleton -- )

Methods

USING: discord kernel ;

M: AUTOMOD_ACTION dispatch-message 2drop ;


USING: discord kernel ;

M: AUTOMOD_RULE_CREATE dispatch-message 2drop ;


USING: discord kernel ;

M: AUTOMOD_RULE_DELETE dispatch-message 2drop ;


USING: discord kernel ;

M: AUTOMOD_RULE_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: CHANNEL_CREATE dispatch-message drop handle-channel-message ;


USING: discord kernel ;

M: CHANNEL_DELETE dispatch-message drop handle-channel-message ;


USING: discord kernel ;

M: CHANNEL_PINS_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: CHANNEL_UPDATE dispatch-message drop handle-channel-message ;


USING: discord kernel ;

M: GUILD_AVAILABLE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_BAN_ADD dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_BAN_REMOVE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_CHANNEL_CREATE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_CHANNEL_DELETE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_CHANNEL_PINS_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_CHANNEL_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_CREATE dispatch-message drop handle-guild-message ;


USING: discord kernel ;

M: GUILD_EMOJIS_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_INTEGRATION_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_JOIN dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_MEMBER_ADD dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_MEMBER_REMOVE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_MEMBER_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_REMOVE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_ROLE_CREATE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_ROLE_DELETE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_ROLE_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_STICKERS_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_UNAVAILABLE dispatch-message 2drop ;


USING: discord kernel ;

M: GUILD_UPDATE dispatch-message drop handle-guild-message ;


USING: discord kernel ;

M: INTERACTION_CREATE dispatch-message 2drop ;


USING: discord kernel ;

M: INVITE_CREATE dispatch-message 2drop ;


USING: discord kernel ;

M: INVITE_DELETE dispatch-message 2drop ;


USING: discord kernel ;

M: MEMBER_BAN dispatch-message 2drop ;


USING: discord kernel ;

M: MEMBER_JOIN dispatch-message 2drop ;


USING: discord kernel ;

M: MEMBER_REMOVE dispatch-message 2drop ;


USING: discord kernel ;

M: MEMBER_UNBAN dispatch-message 2drop ;


USING: discord kernel ;

M: MEMBER_UPDATE dispatch-message 2drop ;


USING: assocs combinators discord io kernel namespaces sequences
;

M: MESSAGE_CREATE dispatch-message
    drop [
        "MESSAGE_CREATE" write bl [
            {
                [
                    [ "guild_id" of ] [ "channel_id" of ] bi
                    guild-channel-name write bl
                ]
                [ "id" of "id:" prepend write bl ]
                [
                    "author" of "username" of ":" append write
                    bl
                ]
                [ "content" of "`" dup surround print flush ]
            } cleave
        ] [
            {
                [ [ "guild_id" of ] [ "channel_id" of ] bi ]
                [ "id" of ]
                [ "author" of "username" of ]
                [ "content" of ]
            } cleave handle-incoming-message
        ] bi
    ] with-global ;


USING: assocs combinators discord io kernel namespaces sequences
;

M: MESSAGE_DELETE dispatch-message
    drop [
        "MESSAGE_DELETE" write bl {
            [
                [ "guild_id" of ] [ "channel_id" of ] bi
                guild-channel-name write bl
            ]
            [ "id" of "id:" prepend print flush ]
        } cleave
    ] with-global ;


USING: discord kernel ;

M: MESSAGE_EDIT dispatch-message 2drop ;


USING: discord kernel ;

M: MESSAGE_REACTION_ADD dispatch-message 2drop ;


USING: discord kernel ;

M: MESSAGE_REACTION_REMOVE dispatch-message 2drop ;


USING: assocs combinators discord io kernel namespaces sequences
;

M: MESSAGE_UPDATE dispatch-message
    drop [
        "MESSAGE_UPDATE" write bl {
            [
                [ "guild_id" of ] [ "channel_id" of ] bi
                guild-channel-name write bl
            ]
            [ "id" of "id:" prepend write bl ]
            [ "author" of "username" of ":" append write bl ]
            [ "content" of "`" dup surround print flush ]
        } cleave
    ] with-global ;


USING: discord kernel ;

M: PRESENCE_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: RAW_MESSAGE_DELETE dispatch-message 2drop ;


USING: discord kernel ;

M: RAW_MESSAGE_EDIT dispatch-message 2drop ;


USING: discord kernel ;

M: REACTION_ADD dispatch-message 2drop ;


USING: discord kernel ;

M: REACTION_CLEAR dispatch-message 2drop ;


USING: discord kernel ;

M: REACTION_REMOVE dispatch-message 2drop ;


USING: accessors assocs combinators discord kernel namespaces ;

M: READY dispatch-message
    drop [ discord-bot get ] dip {
        [ "user" of >>user ]
        [ "session_id" of >>session_id ]
        [ "application" of >>application ]
        [ "resume_gateway_url" of >>resume_gateway_url ]
    } cleave drop ;


USING: discord kernel ;

M: SCHEDULED_EVENT_CREATE dispatch-message 2drop ;


USING: discord kernel ;

M: SCHEDULED_EVENT_REMOVE dispatch-message 2drop ;


USING: discord kernel ;

M: SCHEDULED_EVENT_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: SCHEDULED_EVENT_USER_ADD dispatch-message 2drop ;


USING: discord kernel ;

M: SCHEDULED_EVENT_USER_REMOVE dispatch-message 2drop ;


USING: discord kernel ;

M: SHARD_CONNECT dispatch-message 2drop ;


USING: discord kernel ;

M: SHARD_DISCONNECT dispatch-message 2drop ;


USING: discord kernel ;

M: SHARD_READY dispatch-message 2drop ;


USING: discord kernel ;

M: SHARD_RESUMED dispatch-message 2drop ;


USING: discord kernel ;

M: THREAD_CREATE dispatch-message 2drop ;


USING: discord kernel ;

M: THREAD_DELETE dispatch-message 2drop ;


USING: discord kernel ;

M: THREAD_JOIN dispatch-message 2drop ;


USING: discord kernel ;

M: THREAD_MEMBER_JOIN dispatch-message 2drop ;


USING: discord kernel ;

M: THREAD_MEMBER_REMOVE dispatch-message 2drop ;


USING: discord kernel ;

M: THREAD_UPDATE dispatch-message 2drop ;


USING: assocs discord io json kernel namespaces sequences ;

M: TYPING_START dispatch-message
    drop [
        "TYPING_START:" write bl [
            [ "guild_id" of ] [ "channel_id" of ] bi
            guild-channel-name write bl
        ] [
            "member" of
            [ "nick" of json-null>f ]
            [ "user" of "username" of ] bi or
            " started typing" append print flush
        ] bi
    ] with-global ;


USING: discord kernel ;

M: USER_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: VOICE_SERVER_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: VOICE_STATE_UPDATE dispatch-message 2drop ;


USING: discord kernel ;

M: WEBHOOKS_UPDATE dispatch-message 2drop ;


USING: accessors discord kernel ;

M: object dispatch-message
    "unhandled: " gwrite name>> gwrite g... ;


USING: discord strings ;

M: string dispatch-message
    "unhandled string: " gwrite gwrite g... ;