Gravatar Lookup for Rebol and Red

gravatar.r

Rebol [
    Title: "Get Gravatar"
    File: %gravatar.r
    Date: 27-Nov-2012
    Purpose: "Generate Gravatar Profile Image URLs"
]

gravatar: use [to-md5][
    to-md5: func [val [any-string!]][
        lowercase enbase/base checksum/method to binary! lowercase trim form val 'md5 16
    ]

    func [
        "Obtain the Gravatar Profile Image for the given Email Address"
        email [email!] "Email Address to Lookup"
    ][
        rejoin [http://www.gravatar.com/avatar/ to-md5 email]
    ]
]

gravatar.red

Red [
    Title: "Get Gravatar"
    File: %gravatar.red
    Date: 19-Dec-2018
    Purpose: "Generate Gravatar Profile Image URLs"
]

gravatar: func [
    "Obtain the Gravatar Profile Image for the given Email Address"
    email [email!] "Email Address to Lookup"
][
    rejoin [http://www.gravatar.com/avatar/ lowercase enbase/base checksum lowercase trim form email 'md5 16]
]