Counts the number of packages at pkgs.racket-lang.org

package-count.rkt

#lang racket

(require request
         fancy-app)

(define (read-from-string s) (read (open-input-string s)))
(define read-response-requester (wrap-requester-response read-from-string _))

(define (header-requester key value requester)
  (add-requester-headers (list (format "~a:~a" key value)) requester))
(define accept-requester (header-requester "Accept" _ _))
(define accept-racket-requester (accept-requester "application/racket" _))

(define read-requester (compose read-response-requester accept-racket-requester))

(define catalog-requester (compose read-requester (make-domain-requester _ http-requester/exn)))
(define official-catalog-requester (catalog-requester "pkgs.racket-lang.org"))

(module+ main
  (length (get official-catalog-requester "pkgs")))