saving.

Author: Sam Ritchie

src/clj/stripe/charge.clj

@@ -19,6 +19,7 @@
 (s/defschema ChargeReq
   "Supported options for a Stripe charge request."
   (-> {:amount ChargeAmount
+       s/Any s/Any
        (s/optional-key :expand) h/Expansion
        (s/optional-key :currency) ss/CurrencyID
        (s/optional-key :source) t/Card
@@ -31,6 +32,7 @@
 (s/defschema RefundReq
   "Supported options for a Stripe refund request."
   (-> {:id ChargeID
+       s/Any s/Any
        (s/optional-key :expand) h/Expansion
        (s/optional-key :amount) ss/PositiveInt
        (s/optional-key :refund_application_fee) s/Bool}))

src/clj/stripe/http.clj

@@ -95,7 +95,8 @@
                      :query-params params
                      :throw-exceptions false}
         version (when-let [v (or (:api-version opts) (api-version))]
-                  {:headers {"Stripe-Version" v}})]
+                  {:headers (merge {"Stripe-Version" v}
+                                   (:headers opts))})]
     (merge base-params version (dissoc opts :api-version))))
 
 ;; ## Public Methods

src/clj/stripe/transfer.clj

@@ -33,7 +33,8 @@ or not at all."))
    (s/optional-key :description) TransferDescription
    (s/optional-key :statement_descriptor) StatementDescriptor
    (s/optional-key :metadata) ss/Metadata
-   (s/optional-key :expand) h/Expansion})
+   (s/optional-key :expand) h/Expansion
+   s/Any s/Any})
 
 (def TransferUpdate
   "Supported inputs for updating a Transfer object."
@@ -48,7 +49,7 @@ or not at all."))
        :currency ss/CurrencyID
        :date ss/UnixTimestamp
        :status (s/enum "paid" "pending" "failed" "canceled")
-       (s/optional-key :type) (s/eq "bank_account")
+       (s/optional-key :type) (s/enum "bank_account" "stripe_account")
        (s/optional-key :account) r/BankAccount
        (s/optional-key :bank_account) r/BankAccount
        :balance_transaction (s/either b/BalanceTxID b/BalanceTx)
@@ -92,9 +93,9 @@ or not at all."))
   An optional map of RequestOptions can be used to expand the
   balance_transaction field or supply an async channel."
   ([id :- TransferID]
-     (get-transfer id {}))
+   (get-transfer id {}))
   ([id :- TransferID more :- h/RequestOptions]
-     (h/get-req (str "transfers/" id) more)))
+   (h/get-req (str "transfers/" id) more)))
 
 (s/defn update-transfer :- TransferAPIResponse
   "Updates the specified transfer by setting the values of the
@@ -116,5 +117,7 @@ or not at all."))
   charged on the transfer will be refunded. You may not cancel
   transfers that have already been paid out, or automatic Stripe
   transfers."
-  [id :- TransferID]
-  (h/post-req (str "transfers/" id "/cancel")))
+  ([id :- TransferID]
+   (cancel-transfer id {}))
+  ([id :- TransferID more :- h/RequestOptions]
+   (h/post-req (str "transfers/" id "/cancel") more)))