added Om support

jonase · Jun 8, 2014 · 9929611 · 9929611
1 parent d9432d1
commit 9929611
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/project.clj b/project.clj
@@ -2,8 +2,6 @@
   :description "CLJSFiddle"
   :url "http://cljsfiddle.net"
   :dependencies [[org.clojure/clojure "1.6.0"]
-                 #_[org.clojure/clojurescript "0.0-1853"]
-                 #_[org.clojure/clojurescript "0.0-1896"]
                  [org.clojure/clojurescript "0.0-2227"]
                  [org.clojure/tools.reader "0.8.4"]
                  [org.clojure/core.match "0.2.1"]
@@ -26,7 +24,8 @@
                  [domina "1.0.2"]
                  [prismatic/dommy "0.1.2"]
                  [hiccups "0.3.0"]
-                 [cljs-ajax "0.2.4"]]
+                 [cljs-ajax "0.2.4"]
+                 [om "0.6.4"]]
   :source-paths ["src/clj" "src/cljs"]
   :plugins [[lein-ring "0.8.10"]
             [lein-cljsbuild "1.0.3"]]

diff --git a/src/clj/cljsfiddle/db/util.clj b/src/clj/cljsfiddle/db/util.clj
@@ -6,6 +6,7 @@
             [cljs.env :as cljs-env]
             [cljs.closure :as closure]
             [cljs.js-deps :as cljs-deps]
+            [cljs.tagged-literals :as tags]
             [environ.core :refer (env)])
   (:import [clojure.lang LineNumberingPushbackReader]
            [java.io StringReader BufferedReader]
@@ -20,7 +21,8 @@
       (recur reader (conj result form) eof))))
 
 (defn read-all [src]
-  (binding [reader/*read-eval* false]
+  (binding [reader/*read-eval* false
+            reader/*data-readers* tags/*cljs-data-readers*]
     (read-all* (LineNumberingPushbackReader. (StringReader. src))
                []
                (Object.))))

diff --git a/src/clj/cljsfiddle/import.clj b/src/clj/cljsfiddle/import.clj
@@ -74,7 +74,7 @@
 ;; TODO: Figure out if schema is installed.
 (defn -main [uri]
   (let [conn (d/connect uri)
-        files (find-files #{"cljs/" "clojure/" "goog/" "domina" "hiccups" "dommy"}
+        files (find-files #{"cljs/" "clojure/" "goog/" "domina" "hiccups" "dommy" "om"}
                           (filter #(.endsWith % ".jar")
                                   (-> "java.class.path"
                                       System/getProperty