auth-params ( oauth2 -- params ) (original) (raw)

auth-params ( oauth2 -- params )

Vocabulary
oauth2

Inputs

oauth2 an object

Outputs

params an object

Definition

USING: accessors combinators make ;

IN: oauth2

: auth-params ( oauth2 -- params )
[
{
[ client-id>> "client_id" ,, ]
[ scope>> "scope" ,, ]
[ redirect-uri>> "redirect_uri" ,, ]
[ extra-params>> %% ]
} cleave "code" "response_type" ,,
"offline" "access_type" ,,
] { } make ;