present-base-url ( url -- string )

Vocabulary

oauth1.private

Inputs

url

an object

Outputs

string

an object

Definition

USING: accessors kernel make urls.encoding urls.private ;

IN: oauth1.private

: present-base-url ( url -- string )
    [
        [ unparse-protocol ] [ unparse-authority ]
        [ path>> url-encode % ] tri
    ] "" make ;