Pass parameters to callbacks

[karthic891]

Is there any way to pass parameters to the callbacks that we pass to 'success', 'error', 'status-code'?

For instance, is there a way to pass extra-param to the success' callback?

(defun get-something (extra-param)
  (request
   "http://httpbin.org/get"
   :params '(("key" . "value") ("key2" . "value2"))
   :parser 'json-read
   :success (cl-function
         (lambda (&key data &allow-other-keys)
           (message "I sent: %S -- %s" (assoc-default 'args data) extra-param)))))

[dickmao]

(require 'request)
(require 'json)
(defun get-something (key value extra-param)
  (request
   "http://httpbin.org/get"
   :parser 'json-read
   :params `((,key . ,value))
   :success (apply-partially
             (cl-function
              (lambda (extra-param &key data &allow-other-keys)
                (message "Got %s with callback parameterized by %s"
                         (alist-get 'args data) extra-param)))
             extra-param)))
(get-something "e" "mc^2" "extra")

[karthic891]

Perfect! Thank you.