Move all initialization to neko.init/init

Also pass device port from lein-droid.

src/clojure/neko/init.clj

@@ -12,7 +12,7 @@
 (ns neko.init
   "Contains functions for neko initialization and setting runtime options."
   (:require [neko.init.options :as options]
-            neko.compilation))
+            [neko context log resource compilation threading]))
 
 (defmacro
   ^{:private true
@@ -43,7 +43,9 @@
   [port other-args]
   (when (or (not options/*release-build*)
             options/*start-nrepl-server*)
-    `(apply start-repl :port ~port ~other-args)))
+    `(let [port# (or ~port ~options/*nrepl-port* 9999)]
+       (apply start-repl :port port# ~other-args)
+       (neko.log/i "neko.init" (str "Nrepl started at port " port#)))))
 
 (defn enable-compliment-sources
   "Initializes compliment sources if theirs namespaces are present."
@@ -53,6 +55,10 @@
        ((resolve 'neko.compliment.ui-widgets-and-attributes/init-source))
        (catch Exception ex nil)))
 
+(def ^{:doc "Represents if initialization was already performed."
+       :private true}
+  initialized? (atom false))
+
 (defn init
   "Initializes neko library.
 
@@ -61,9 +67,14 @@
   key-value fashion. The value of `:classes-dir` specifies the path
   where neko should store compiled files. Other optional arguments are
   directly feeded to the nREPL's `start-server` function. "
-  [context & {:keys [classes-dir port] :or {classes-dir "classes", port 9999}
+  [context & {:keys [classes-dir port] :or {classes-dir "classes"}
               :as args}]
-  (enable-dynamic-compilation context classes-dir)
-  ;; Ensure that `:port` is provided, pass all other arguments as-is.
-  (start-nrepl-server port (mapcat identity (dissoc args :classes-dir :port)))
-  (enable-compliment-sources))
+  (when-not @initialized?
+    (alter-var-root #'neko.context/context (constantly context))
+    (alter-var-root #'neko.resource/package-name (constantly (.getPackageName context)))
+    (enable-dynamic-compilation context classes-dir)
+    ;; Ensure that `:port` is provided, pass all other arguments as-is.
+    (start-nrepl-server port (mapcat identity (dissoc args :classes-dir :port)))
+    (neko.threading/init-threading)
+    (enable-compliment-sources)
+    (reset! initialized? true)))

src/clojure/neko/init/options.clj

@@ -37,3 +37,8 @@
   ^{:dynamic true
     :doc "Application's root package name."}
   *package-name*)
+
+(def
+  ^{:dynamic true
+    :doc "Port to start nRepl server on."}
+  *nrepl-port*)