interop-example.cljs

(ns cljs.stripe
  (:require-macros [cljs.core.async.macros :refer [go]])
  (:require [cljs.core.async :refer [<! chan put!]]
            [oops.core :refer [gcall!]]))

; Stripe.piiData.createToken({
;   personal_id_number: $('.personal_id_number').val()
; }, stripeResponseHandler);

; a simple wrapper

(defn make-callback-from-channel [channel]
  (fn [& args]
    (put! channel (or args '()))))

(defn create-token! [ssn]
  (let [channel (chan)
        request (js-obj "personal_id_number" ssn)]
    (gcall! "Stripe.piiData.createToken" request (make-callback-from-channel channel))
    channel))

; usage example

(defn do-something-useful-with-stripe! [ssn]
  (go
    (let [[status response] (<! (create-token! ssn))]
      (println status response))))

; -- main

(go
  (<! (do-something-useful-with-stripe! "42")))