console-flow ( oauth2 -- tokens/f )

Vocabulary

oauth2

Inputs

oauth2

an object

Outputs

tokens/f

an object

Definition

USING: accessors http.json 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>> http-post-json nip
        assoc>tokens
    ] [ drop f ] if* ;