 
 ;; XXX We can pull this from configuration once async-get-metadata function
 ;;     signatures get updated to accept the system data structure as an arg.
+(def variables-api-path "/variables")
 (def pinned-variable-schema-version "1.2")
+(def results-content-type "application/vnd.nasa.cmr.umm_results+json")
+(def charset "charset=utf-8")
+(def accept-format "%s; version=%s; %s")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;   Notes   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       url
       (-> {}
           (request/add-token-header user-token)
           (request/add-accept (format "%s; version=%s; %s"
                                       "application/vnd.nasa.cmr.umm_results+json"
                                       pinned-variable-schema-version
                                       "charset=utf-8"))
           (request/add-form-ct)
           (request/add-payload payload)
           ((fn [x] (log/trace "Full request:" x) x)))

  variables, if params does not contain any."
  [search-endpoint user-token {variable-ids :variables}]
  (if (seq variable-ids)
    (let [url (str search-endpoint variables-api-path)
          payload (build-query variable-ids)]
      (log/debug "Variables query CMR URL:" url)
      (log/debug "Variables query CMR payload:" payload)
