levand · magomimmo · Nov 6, 2013 · Nov 6, 2013 · Nov 6, 2013 · Nov 6, 2013
diff --git a/.gitignore b/.gitignore
@@ -1,17 +1,16 @@
 classes
 .cljsbuild
 .lein-deps-sum
-public/build_no_opt
-public/test_*.js
-public/domina.js
-domina-tests
+.lein-repl-history
 lib
+out
+dev-resources/public/js/*.js
 *.jar
 .repl
 pom.xml
 .lein-plugins
 .lein-failures
-/target
+target
 *.*~
 \#*#
 .#*

diff --git a/dev-resources/clj/ring/server.clj b/dev-resources/clj/ring/server.clj
@@ -0,0 +1,23 @@
+(ns ring.server
+  (:require [cemerick.austin.repls :refer (browser-connected-repl-js)]
+            [net.cgrand.enlive-html :as enlive]
+            [compojure.route :refer (resources)]
+            [compojure.core :refer (GET defroutes)]
+            ring.adapter.jetty
+            [clojure.java.io :as io]))
+
+(enlive/deftemplate page
+  (io/resource "public/index.html")
+  []
+  [:body] (enlive/append
+            (enlive/html [:script (browser-connected-repl-js)])))
+
+(defroutes site
+  (resources "/")
+  (GET "/*" req (page)))
+
+(defn run
+  []
+  (defonce server
+    (ring.adapter.jetty/run-jetty #'site {:port 8080 :join? false}))
+  server)
diff --git a/dev-resources/cljs/domina/brepl.cljs b/dev-resources/cljs/domina/brepl.cljs
@@ -0,0 +1,6 @@
+(ns domina.brepl
+  (:require [clojure.browser.repl]))
+
+(defn whoami
+  []
+  (.-userAgent js/navigator))
diff --git a/dev-resources/public/index.html b/dev-resources/public/index.html
@@ -0,0 +1,36 @@
+<!doctype html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <title>bREPL Connection</title>
+    <!--[if lt IE 9]>
+        <script src="http://html5shiv.googlecode.com/svn/trunk/html5.js"></script>
+        <![endif]-->
+    <script src="js/whitespace.js" type="text/javascript"></script>
+  </head>
+  <body>
+    <h1>BREPL connection</h1>
+    <h2>Running the brepl</h2>
+    <ol>
+      <li><code>cd</code> to
+        <code>$DOMINA</code>, and run:
+        <pre>$ lein do compile, repl</pre> This will compile the domina cljs code.
+      <li>Once you're in the REPL evaluate
+        <code>(run)</code>.  That just starts jetty on port
+        <code>8080</code>; if you open a browser to
+        <a href="http://localhost:8080">that server</a>, you'll
+        see this page.
+      </li>
+      <li>Activate the browser-connected REPL like so:
+        <pre>(browser-repl)</pre>
+      </li>
+      <li>Now that the ClojureScript REPL is ready, you need to load
+        <a href="http://localhost:8080">http://localhost:8080</a>, or
+        reload it if you brought it up before the REPL environment was
+        created. Once you do that, evaluate some ClojureScript to make
+        sure your shiny new REPL is working, e.g.
+        <pre>(js/alert "Hello, Domina!")</pre>
+      </li>
+    </ol>
+  </body>
+</html>
diff --git a/profiles.clj b/profiles.clj
@@ -0,0 +1,45 @@
+{:dev {:resource-paths ["dev-resources"]
+       :test-paths ["dev-resources/clj" "test/cljs" "dev-resources/cljs"]
+       :dependencies [[hiccups "0.2.0"]
+                      [ring "1.2.1"]
+                      [compojure "1.1.6"]
+                      [enlive "1.1.4"]]
+       :plugins [[com.cemerick/clojurescript.test "0.2.1"]
+                 [com.cemerick/austin "0.1.3"]]
+       :cljsbuild {:builds {#_:none
+                            #_{:source-paths ["src/cljs" "test/cljs"]
+                             :compiler  {:libs ["goog/dom/query.js"]
+                                         :pretty-print true
+                                         :optimizations :none
+                                         :output-to "dev-resources/public/js/none.js"}}
+                            :whitespace
+                            {:source-paths ["src/cljs" "test/cljs" "dev-resources/cljs"]
+                             :compiler  {:libs ["goog/dom/query.js"]
+                                         :optimizations :whitespace
+                                         :pretty-print true
+                                         :output-to "dev-resources/public/js/whitespace.js"}}
+                            #_:simple
+                            #_{:source-paths ["src/cljs" "test/cljs"]
+                               :compiler  {:libs ["goog/dom/query.js"]
+                                           :optimizations :simple
+                                           :pretty-print true
+                                           :output-to "dev-resources/public/js/simple.js"}}
+                            #_:advanced
+                            #_{:source-paths ["src/cljs" "test/cljs"]
+                             :compiler  {:libs ["goog/dom/query.js"]
+                                         :optimizations :advanced
+                                         :pretty-print true
+                                         :output-to "dev-resources/public/js/advanced.js"}}}
+                   :test-commands {"whitespace"
+                                   ["phantomjs" :runner "dev-resources/public/js/whitespace.js"]
+
+                                   #_"simple"
+                                   #_["phantomjs" :runner "dev-resources/public/js/simple.js"]
+
+                                   #_"advanced"
+                                   #_["phantomjs" :runner "dev-resources/public/js/advanced.js"]}}
+       :injections [(require '[ring.server :as http :refer [run]]
+                             'cemerick.austin.repls)
+                    (defn browser-repl []
+                      (cemerick.austin.repls/cljs-repl (reset! cemerick.austin.repls/browser-repl-env
+                                                               (cemerick.austin/repl-env))))]}}
diff --git a/project.clj b/project.clj
@@ -1,47 +1,10 @@
 (defproject domina "1.0.3-SNAPSHOT"
   :description "A DOM manipulation library for ClojureScript inspired by JQuery"
-  :source-paths ["src/cljs"]
-  :dependencies [[org.clojure/clojure "1.4.0"]]
-  :plugins [[lein-cljsbuild "0.3.0"]
-            [lein-clojars "0.9.1"]]
+  :source-paths ["src/clj" "src/cljs"]
+  :dependencies [[org.clojure/clojure "1.7.0"]
+                 [org.clojure/clojurescript "0.0-3308"]]
+  :plugins [[lein-cljsbuild "1.1.0"]]
   :hooks [leiningen.cljsbuild]
-  :cljsbuild {:builds [{:jar true
-                        :compiler {:libs ["goog/dom/query.js"]
-                                   :pretty-print true
-                                   :output-dir ".cljsbuild/domina"
-                                   :output-to "public/domina.js"}}
-                       {:source-paths ["test/cljs"]
-                        :compiler  {:libs ["goog/dom/query.js"]
-                                    :pretty-print true
-                                    :optimizations :none
-                                    :output-dir "public/build_no_opt"
-                                    :output-to "public/test_no_opt.js"}}
-                       {:source-paths ["test/cljs"]
-                        :compiler  {:libs ["goog/dom/query.js"]
-                                    :optimizations :whitespace
-                                    :pretty-print true
-                                    :output-dir ".cljsbuild/whitespace"
-                                    :output-to "public/test_whitespace.js"}}
-                       {:source-paths ["test/cljs"]
-                        :compiler  {:libs ["goog/dom/query.js"]
-                                    :optimizations :simple
-                                    :pretty-print true
-                                    :output-dir ".cljsbuild/simple"
-                                    :output-to "public/test_simple.js"}}
-                       {:source-paths ["test/cljs"]
-                        :compiler  {:libs ["goog/dom/query.js"]
-                                    :optimizations :advanced
-                                    :pretty-print true
-                                    :output-dir ".cljsbuild/advanced"
-                                    :output-to "public/test_advanced.js"}}]}
-  :repositories {"sonatype-staging"
-                 "https://oss.sonatype.org/content/groups/staging/"})
-
-(comment
-  (do
-    (require '[cljs.repl :as repl])
-    (require '[cljs.repl.browser :as browser])
-    (def env (browser/repl-env))
-    (repl/repl env))
-
-  )
+  :cljsbuild {:builds {:useless
+                       {:source-paths ["src/cljs"]}}}
+  :clean-targets ^{:protect false} ["dev-resources/public/js" :target-path])
diff --git a/public/test_advanced.html b/public/test_advanced.html
diff --git a/public/test_ie.html b/public/test_ie.html
diff --git a/public/test_no_opt.html b/public/test_no_opt.html
diff --git a/public/test_simple.html b/public/test_simple.html
diff --git a/public/test_whitespace.html b/public/test_whitespace.html
diff --git a/public/tests.css b/public/tests.css