konami code rxjs example in clojurescript

gistfile1.clj

(ns rxjs.client.core
  (:use [jayq.core :only [$ on off document-ready]]
        [jayq.util :only [log]]))

(defn on-as-observable [$elem events & [sel data]]
  (js/Rx.Observable.create
    (fn [observer]
      (let [handler (fn [evt-object]
                      (.onNext observer evt-object))]
        (on $elem events sel data handler)
        (fn []
          (off $elem sel handler))))))

(document-ready
  (let [code (js/Rx.Observable.fromArray 
                    (array 38, 38, 40, 40, 37, 39, 37, 39, 66, 65))]
    (-> (on-as-observable ($ js/document) :keyup)
      (.select #(.-keyCode %))
      (.windowWithCount 10)
      (.selectMany #(.sequenceEqual % code))
      (.where #(identity %))
      (.subscribe #(log "KONAMI!")))))

translated from https://github.com/Reactive-Extensions/rxjs-jquery