handle-guild-message ( json -- )

Vocabulary

discord

Inputs

json

an object

Outputs

None

Definition

USING: accessors arrays assocs combinators kernel namespaces
sequences ;

IN: discord

: handle-guild-message ( json -- )
    {
        [ dup "id" of discord-bot get guilds>> set-at ]
        [
            [ "id" of ] [ "channels" of ] bi
            discord-bot get channels>>
            [ [ tuck "id" of 2array ] ] dip [ set-at ] curry
            compose with each
        ]
    } cleave ;