got all typing working, arrow key navigation needs to be fixed

Author: vision-05

bettercode/src/bettercode/core.clj

@@ -36,7 +36,7 @@
 (def *context
   (atom
    (fx/create-context {:title ""
-                       :file-path ""
+                       :file-path "/home/tim/foo.txt"
                        :text-editor ""
                        :anchor-pos 0
                        :caret-pos 0

bettercode/src/bettercode/events.clj

@@ -9,14 +9,15 @@
   (println "non event"))
 
 (defmethod handle-event ::type-text [{:keys [fx/event fx/context tclient]}]
-  @(s/put! tclient (str "text-edit " (fx/sub-val context :file-path) " " (fx/sub-val context :caret-pos) " " (.getCharacter event)))
+  @(s/put! tclient ["text-edit" (fx/sub-val context :file-path) (fx/sub-val context :caret-pos) (.getCharacter event)])
   (println @(s/take! tclient))
   {:context (fx/swap-context context
                              assoc
                              :anchor-pos (.getAnchor (.getSource event))
                              :caret-pos (.getCaretPosition (.getSource event)))})
 
 
+;similar event must be made for arrow key press
 (defmethod handle-event ::mouse-click [{:keys [fx/event fx/context tclient]}]
   (println "click")
   (println (.getSource event))
@@ -27,22 +28,22 @@
 
 (defmethod handle-event ::open-file [{:keys [fx/event fx/context tclient]}]
   (println "getting file")
-  @(s/put! tclient (str "open-file " (fx/sub-val context :file-path)))
+  @(s/put! tclient ["open-file" (fx/sub-val context :file-path)])
   {:context (fx/swap-context context
                              assoc
                              :text-editor
                              @(s/take! tclient))})
 
 (defmethod handle-event ::close-file [{:keys [fx/event fx/context tclient]}]
   (println "requesting close file")
-  @(s/put! tclient (str "close-file " (fx/sub-val context :file-path))))
+  @(s/put! tclient ["close-file" (fx/sub-val context :file-path)]))
 
 (defmethod handle-event ::save-file [{:keys [fx/event fx/context tclient]}]
   (println "saving file")
-  @(s/put! tclient (str "save-file " (fx/sub-val context :file-path)))
+  @(s/put! tclient ["save-file" (fx/sub-val context :file-path)])
   @(s/take! tclient))
 
 (defmethod handle-event ::save-all [{:keys [fx/event fx/context tclient]}]
   (println "saving all buffers")
-  @(s/put! tclient "save-all")
+  @(s/put! tclient ["save-all"])
   @(s/take! tclient))

bettercodeserver/src/bettercodeserver/buffer.clj

@@ -26,12 +26,13 @@
   (send agent-name update-in [full-file-path] remove-string position length))
 
 (defn del-char [agent-name full-file-path position]
-  (send agent-name update-in [full-file-path] remove-char position))
+  (send agent-name update-in [full-file-path] remove-char (- position 1)))
 
 (defn text-edit [agent-name full-file-path string index]
   (cond
-    (= string "\b") (del-char agent-name full-file-path index)
-    :else (add-string agent-name full-file-path index string)))
+    (and (= string "\b") (> index 0)) (del-char agent-name full-file-path index)
+    (> index -1) (add-string agent-name full-file-path index string)
+    :else false))
 
 (defn save-file [agent-name full-file-path]
   (spit full-file-path (@agent-name full-file-path)))

bettercodeserver/src/bettercodeserver/core.clj

@@ -5,7 +5,7 @@
   (:gen-class))
 
 (defn -main []
-  (def files (agent {}))
+  (def files (agent {"/home/tim/foo.txt" ""}))
   (def serv (server/start-server
               (server/event-loop server/parse-request files)
               8080)))

bettercodeserver/src/bettercodeserver/server.clj

@@ -25,33 +25,32 @@
               (io/decode-stream s protocol))))
 
 (defn parse-request [message agent-name]
-  (let [split-req (str/split message #" ")]
-    (println message)
-    (println (split-req 0))
-    (case (split-req 0)
-      "text-edit" (buffer/text-edit agent-name (split-req 1) (split-req 3) (split-req 2))
-      "open-file" (buffer/add-file agent-name (split-req 1))
-      "close-file" (buffer/remove-file agent-name (split-req 1))
-      "save-file" (buffer/save-file agent-name (split-req 1))
-      "save-all" (buffer/save-all-files agent-name)
-      "get-dir" (fnav/get-folder-contents (split-req 1)))))
+  (case (message 0)
+    "text-edit" (buffer/text-edit agent-name (message 1) (message 3) (message 2))
+    "open-file" (buffer/add-file agent-name (message 1))
+    "close-file" (buffer/remove-file agent-name (message 1))
+    "save-file" (buffer/save-file agent-name (message 1))
+    "save-all" (buffer/save-all-files agent-name)
+    "get-dir" (fnav/get-folder-contents (message 1))))
 
 (defn event-loop [f files-agent]
   (fn [s info]
     (d/loop []
-            (->
-                (d/let-flow [msg (s/take! s ::none)]
-                            (when-not (= ::none msg)
-                              (d/let-flow [msg-two (d/future (f msg files-agent))
-                                           result (cond
-                                            (= (class "") (class msg-two)) @(s/put! s msg-two)
-                                            :else @(s/put! s true))]
-                                          (when result
-                                            (d/recur)))))
-                (d/catch
-                 (fn [exception]
-                   (s/put! s (str "ERROR: " exception))
-                   (s/close! s)))))))
+      (->
+       (d/let-flow [msg (s/take! s ::none)]
+                   (when-not (= ::none msg)
+                     (d/let-flow [msg-two (d/future (f msg files-agent))
+                                  result (cond
+                                           (= (class "") (class msg-two)) @(s/put! s msg-two)
+                                           :else @(s/put! s true))]
+                                 (when result
+                                   (println @files-agent)
+                                   (d/recur)))))
+       (d/catch
+        (fn [exception]
+          (println agent-error exception)
+          (s/put! s (str "ERROR: " exception))
+          (s/close! s)))))))
 
 (defn start-server [handler port]
   (tcp/start-server