make-token-params ( params quot -- assoc )

Vocabulary

oauth1.private

Inputs

params	an object
quot	an object

Outputs

assoc

an object

Definition

USING: accessors kernel make ;

IN: oauth1.private

: make-token-params ( params quot -- assoc )
    [
        [
            "1.0" "oauth_version" ,,
            "HMAC-SHA1" "oauth_signature_method" ,,
        ]
    ] dip [
        [
            [ consumer-token>> key>> "oauth_consumer_key" ,, ]
            [ timestamp>> "oauth_timestamp" ,, ]
            [ nonce>> "oauth_nonce" ,, ] tri
        ] bi
    ] curry compose H{ } make ; inline