Started working on a TCP server for the CLI.

This will be to avoid the long wait times for the JVM startup.

src/clj/timi/config.clj

@@ -1,6 +1,7 @@
 (ns timi.config
-  (:require [clojure.edn]
-            [clojure.java.io]))
+  (:require
+    [clojure.edn]
+    [clojure.java.io]))
 
 (def config-file (clojure.java.io/resource "config.edn"))
 

src/clj/timi/server/cli/core.clj

@@ -0,0 +1 @@
+(ns timi.server.cli.core)

src/clj/timi/cli.clj → src/clj/timi/server/cli/old.clj

@@ -1,4 +1,4 @@
-(ns timi.cli
+(ns timi.server.cli.old
   (:require
     [clojure.pprint :refer [pprint]]
     [timi.config :as config]

src/clj/timi/server/cli/tcp.clj

@@ -0,0 +1,45 @@
+(ns timi.server.cli.tcp
+  (:require
+    [clojure.tools.logging :as log]
+    [net.tcp :as tcp]
+    [net.ty.channel :as channel]
+    [net.ty.pipeline :as pipeline]
+    [timi.config :as config]
+    [timi.server.cli.core : as cli]))
+
+(def config (config/read-config))
+
+(defn parse-commands
+  [cmds]
+  (log/info "In parse-commands, got:" cmds)
+  cmds)
+
+(defn run-commands
+  [cmds]
+  (log/info "In run-commands, got:" cmds)
+  cmds)
+
+(defn pipeline
+  []
+  (pipeline/channel-initializer
+   [(pipeline/line-based-frame-decoder)
+    pipeline/string-decoder
+    pipeline/string-encoder
+    pipeline/line-frame-encoder
+    (pipeline/with-input [ctx msg]
+      (channel/write-and-flush! ctx (-> msg
+                                        (parse-commands)
+                                        (run-commands))))]))
+
+(defn serve
+  ([]
+    (serve config))
+  ([config]
+    (tcp/server
+      {:handler (pipeline)}
+      (get-in config [:cli :server :host])
+      (get-in config [:cli :server :port]))))
+
+(defn -main
+  [& _]
+  (serve))

src/clj/timi/server/core.clj

@@ -11,7 +11,7 @@
     [trifl.java :as java])
   (:gen-class))
 
-(def config (timi.config/read-config))
+(def config (config/read-config))
 
 (logger/set-level! (get-in config [:log :ns])
                    (get-in config [:log :level]))
@@ -20,9 +20,17 @@
   "Used by the ring handler configuration in project.clj."
   (web/app config))
 
+(defn get-system
+  ([]
+    (get-system #'app config))
+  ([config]
+    (get-system (web/app config) config))
+  ([app config]
+    (components/init app config)))
+
 (defn -main
   [& args]
-  (let [system (components/init #'app config)]
+  (let [system (get-system)]
     (log/info "Starting Tímı ...")
     (component/start system)
     ;; Setup interrupt/terminate handling