TYPING_START

Vocabulary

discord

Definition

IN: discord

SINGLETON: TYPING_START

Methods

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 ;