0. #lang racket
1.  
2. (require net/url
3.          racket/draw
4.          json
5.          threading)
6.  
7. (define (get-json url)
8.   (call/input-url url get-pure-port read-json))
9.  
10. (define (get-image url)
11.   (call/input-url url get-pure-port read-bitmap))
12.  
13. (define (set-search-url set)
14.   (string->url (string-append "https://api.scryfall.com/cards/search?order=set&q=e%3A"
15.                               set
16.                               "&unique=prints")))
17.  
18. (define (get-set-cards set)
19.   (let loop ([address (set-search-url set)]
20.              [cards '()])
21.     (let* ([resp (get-json address)]
22.            [cards (append cards (hash-ref resp 'data))]
23.            [has-more (hash-ref resp 'has_more)])
24.       (if has-more
25.           (loop (hash-ref resp 'next_page) cards)
26.           cards))))
27.  
28. (map (λ~> (hash-ref 'image_uris)
29.           (hash-ref 'small)
30.           string->url
31.           get-image)
32.      (get-set-cards "40k"))

=>

tcp-connect: network access denied: '("api.scryfall.com" 443

client)