[#67] Always use a *node-group*.

Makefile

@@ -0,0 +1,11 @@
+all:
+	lein build
+
+clean:
+	lein clean
+
+install:
+	cp target/lab.jar /usr/local/bin/.
+	printf "#! /bin/bash\njava -jar /usr/local/bin/lab.jar &" > /usr/local/bin/clojure-lab
+	chmod +x /usr/local/bin/clojure-lab
+	chmod 666 /usr/local/bin/lab.jar

src/clj/lab/core/lang.clj

@@ -81,7 +81,7 @@ check if its one of the registered symbols."
   "Parses the incremental buffer of a Document and returns the
 parse tree with the modified nodes marked with node group-id."
   ([doc]
-    (parse-tree doc nil))
+    (parse-tree doc (gensym "group-")))
   ([doc group-id]
     (binding [*node-group* group-id]
       (p/parse-tree doc))))

src/clj/lab/core/plugin.clj

@@ -81,9 +81,10 @@ they exist."
   [app plugin-name & [reload]]
   (require [plugin-name :reload reload])
   (let [plugin-ns  (the-ns plugin-name)
+        plugin     (ns-resolve plugin-ns 'plugin)
+        _          (assert plugin (str "Couldn't find a plugin definition in " plugin-name "."))
         {:keys [init! hooks keymaps] :as plugin}
-                   (->> (ns-resolve plugin-ns 'plugin) deref)]
-    (assert plugin (str "Couldn't find a plugin definition in " plugin-name "."))
+                   @plugin]
     (log/info "Loaded plugin " plugin-name)
     (when (register-plugin! app plugin)
       (log/info "Registered plugin " plugin-name)

src/clj/lab/plugin/editor/syntax_highlighting.clj

@@ -36,7 +36,7 @@ are applied their highlight."
   editor)
 
 (defn- text-editor-change! [e]
-  (if-not (= :change (:type e))
+  (when-not (= :change (:type e))
     (highlight! (:source e) true)))
 
 (defn- text-editor-init [editor]