 
 
 
+
+(defn repl-init []
+  (sock-repl/repl-init)
+  (require ['bitcoinrpc.core :as 'btc])
+  (use 'clojure.pprint)
+  (require ['clojure.repl :refer ['doc 'source]])
+  )
+
+
+(defn repl []
+  (m/repl 
+    :init repl-init
+    :read sock-repl/repl-read
+    :eval (fn [expr]
+            (eval expr)))
+  )
+
+
+(defn port []
+  (read-string (System/getProperty "mz.btc.port" "5566")))
+
+(defn start-repl-server []
+  (sock-repl/start-server {:port (port), :name "mz-btc-repl", :accept 'bitcoinrpc.core/repl}))

            [clojure.repl :refer [source source-fn dir doc]]
            [clojure.spec.alpha :as s]
            [clojure.spec.gen.alpha :as gen]
            [clojure.set :refer [subset?]]))

(defmacro dbg [body]
  `(let [x# ~body]


(defn print-rpcs [] (doseq [s (get-rpcs)] (println s)))
  



;;---------------------------------------------------------------------------------
;experiment

