request API Rest

(request-response-data (request
				 (concat dailymile-api-endpoint uri "." (assoc-default 'json dailymile-format))
	     :type method
	     :parser (lambda ()
		       (let (
			     (json-object-type 'hash-table)
			     (json-array-type 'list)
			     (json-key-type 'symbol))
			 (json-read)))
	     :params `(("oauth_token" . ,(oauth2-token-access-token
					  *dailymile-oauth2-token*)))
	     :status-code '((401 . (lambda (&rest _) (message "Problem
	     with your access token.")))
			    (404 . (lambda (&rest _) (message "That's
	     embarrassing, can't find your stuff."))))
	     :timeout 2
	     :sync t
	))