keai.clj

(defprotocol Coercable
  "Coerce Ruby objects to Clojure types"
  (clj [this] "Coerce a Ruby object to its Clojure representation"))

(extend-protocol Coercable
  org.jruby.RubyString
  (clj [this] (str this)))

(extend-protocol Coercable
  java.lang.Long
  (clj [this] this))

(extend-protocol Coercable
  java.lang.String
  (clj [this] this))

(extend-protocol Coercable
  org.jruby.RubyFixnum
  (clj [this] (.getLongValue this)))

(extend-protocol Coercable
  org.jruby.RubyArray
  (clj [this] (mapv clj (vec (.toJavaArray this)))))

(extend-protocol Coercable
  org.jruby.RubySymbol
  (clj [this] (keyword (str this))))

(extend-protocol Coercable
  org.jruby.RubyHash
  (clj [this] (zipmap (mapv clj (.keys this))
                      (mapv clj (.values this)))))

(clj (_eval "{:a => 1, :b => 'c', :x => [1,2,3]}"))
;; => {:x [1 2 3], :b "c", :a 1}