parse-token ( response data -- token )


Vocabulary
oauth.private

Definition
USING: accessors assocs kernel oauth urls.encoding ;

IN: oauth.private

: parse-token ( response data -- token )
nip query>assoc
[ [ "oauth_token" ] dip at ]
[ [ "oauth_token_secret" ] dip at ] [ extract-user-data ]
tri [ <token> ] dip >>user-data ;