discord-connect ( config -- )

Vocabulary

discord

Inputs

config

an object

Outputs

None

Definition

USING: accessors concurrency.mailboxes kernel namespaces threads
;

IN: discord

: discord-connect ( config -- )
    <mailbox> >>mailbox \ discord-bot-config [
        [
            [
                "connecting" g.
                discord-reconnect discord-bot-config get
                [ mailbox>> mailbox-get ] [ discord-bot>> ] bi
                [ reconnect?>> ] [ stop?>> not ] bi and
            ] loop
        ] "Discord bot connect loop" spawn
        discord-bot-config get connect-thread<<
    ] with-variable ;