(use http-client intarweb uri-common)

;; extent intarweb authorization parameters to support OAuth2 token
(authorization-param-subunparsers
 (alist-cons 'bearer (lambda (token) token)
             (authorization-param-subunparsers)))

;; call
(with-input-from-request (make-request uri: (uri-reference "https://example.com")
                                       headers: (headers '((authorization #(bearer "485655250c559996114e7462b843c433fa3805953e9f8e7581551a0a67195e21")))))
                         #f
                         (lambda () (print "done")))