ClojureScript - beliebiges JavaScript-Objekt in Clojure-Script-Map konvertieren

Question

Ich versuche ein Javascript-Objekt in ein Clojure zu konvertieren. Ich erhalte jedoch den folgenden Fehler:

(js/console.log (js->clj e)) ;; has no effect 
(pprint (js->clj e)) ;; No protocol method IWriter.-write defined for type object: [object Geoposition] 

Ja, dieses Objekt stammt aus der Geolocation API. Ich nehme an, dass ich IEncodeClojure und IWriter verlängern muss, aber ich habe keine Ahnung wie.

Zum Beispiel Hinzufügen des folgenden:

(extend-protocol IEncodeClojure 
    Coordinates 
    (-js->clj [x options] 
    (println "HERE " x options))) 

ergibt einen Fehler, wenn mein Code Laden: Uncaught TypeError: Cannot read property 'prototype' of undefined

Answer 1

js->clj funktioniert nur für Object, etwas mit benutzerdefinierten Konstruktor (siehe type) zurückgegeben, wie ist.

sehen: https://github.com/clojure/clojurescript/blob/master/src/main/cljs/cljs/core.cljs#L9319

Ich schlage vor, dies zu tun, statt:

(defn jsx->clj 
    [x] 
    (into {} (for [k (.keys js/Object x)] [k (aget x k)]))) 

Answer 2

Die akzeptierte Antwort nicht für mich mit dem Javascript-Objekt window.performance.timing arbeitet. Dies liegt daran, dass Object.keys() die Requisiten für das Objekt PerformanceTiming nicht tatsächlich zurückgibt.

(.keys js/Object (.-timing (.-performance js/window)) 
; => #js[] 

Dies ist trotz der Tatsache, dass die Requisiten von PerformanceTiming sind in der Tat iterable mit Vanille JavaScript-Schleife:

for (a in window.performance.timing) { 
    console.log(a); 
} 
// navigationStart 
// unloadEventStart 
// unloadEventEnd 
// ... 

Das folgende ist, was ich kam mit einem beliebigen JavaScript-Objekt zu einem ClojureScript konvertieren Karte. Beachten Sie die Verwendung von zwei einfachen Google Closure-Funktionen.

• goog.typeOf wickelt typeof, die uns in ClojureScript normalerweise nicht zugänglich ist. Ich benutze das, um Requisiten herauszufiltern, die Funktionen sind.
• goog.object.getKeys Wraps for (prop in obj) {...}, Aufbau eines Array-Ergebnis, das wir in eine Karte reduzieren können.

Lösung

(defn obj->clj 
    [obj] 
    (-> (fn [result key] 
     (let [v (aget obj key)] 
      (if (= "function" (goog/typeOf v)) 
      result 
      (assoc result key v)))) 
     (reduce {} (.getKeys goog/object obj))))