       [(camel->lisp k)
        (->> rest (join ":") trim read-string*)])))
 
-(defn lower-case?
-  "Returns if x is a lower-case character"
-  [x]
-  (not= (str x) (upper-case (str x))))
-
 (defn response->edn
   "Transforms a response from server to EDN friendly format
 

       (response->edn)))

(defn event->command
  "Converts an event hash-map with keys :command :args into a raw request"
  [{:keys [command args]}]
  (str (name command) " " (join " " args) "\n"))

(defn command->event
  "Converts a raw request back into its hash-map equivalent"
  [data]
  (let [[command & args] (-> data (split #"\n") first trim (split #" "))]
    {:command (keyword command)

(ns zirconia.utils
  (:require [clojure.string :refer (split trim join lower-case)]
            [cljs.reader :as reader]))

(extend-type js/RegExp
