console-flow ( oauth2 -- tokens/f )

Vocabulary

oauth2

Inputs

oauth2

an object

Outputs

tokens/f

an object

Definition

USING: accessors kernel webbrowser ;

IN: oauth2

: console-flow ( oauth2 -- tokens/f )
    dup oauth2>auth-uri open-url
    "Enter verification code: " console-prompt [
        dupd tokens-params swap token-uri>> post-json-request
        assoc>tokens
    ] [ drop f ] if* ;