>top-apple-podcasts ( hash -- json )

Vocabulary

itunes

Inputs

hash

an object

Outputs

json

an object

Definition

USING: combinators formatting http.json kernel ;

IN: itunes

: >top-apple-podcasts ( hash -- json )
    {
        [
            { "language" "code" } find-first-value drop
            >language-code "US" or
        ]
        [ { "genre" } find-first-value drop "26" or ]
        [ { "limit" } find-first-value drop "10" or ]
        [ { "explicit" } find-first-value drop "true" or ]
    } cleave
    "https://itunes.apple.com/%s/rss/toppodcasts/genre=%s/limit=%s..."
    sprintf http-get-json nip ;