gravatar-image-url ( email -- url )

Vocabulary

gravatar

Inputs

email

an object

Outputs

url

an object

Definition

USING: kernel namespaces sequences urls ;

IN: gravatar

: gravatar-image-url ( email -- url )
    gravatar-id "https://gravatar.com/avatar/" prepend
    gravatar-image-extension? get [ ".jpg" append ] when
    >url gravatar-image-size get [ "s" set-query-param ] when*
    gravatar-image-type get [ "d" set-query-param ] when*
    gravatar-image-rating get [ "r" set-query-param ] when* ;