   (:require [hasch.core :refer [uuid]]
             [konserve.store :refer [new-mem-store]]
             [konserve.protocols :refer [-get-in -assoc-in]]
-            [geschichte.sync :refer [server-peer client-peer]]
-            [geschichte.stage :as s]
-            [geschichte.p2p.fetch :refer [fetch]]
-            [geschichte.p2p.hash :refer [ensure-hash]]
-            [geschichte.realize :refer [commit-value]]
-            [geschichte.p2p.block-detector :refer [block-detector]]
-            [geschichte.platform :refer [create-http-kit-handler! <!? start stop]]
+            #_[geschichte.sync :refer [server-peer client-peer]]
+            #_[geschichte.stage :as s]
+            #_[geschichte.p2p.fetch :refer [fetch]]
+            #_[geschichte.p2p.hash :refer [ensure-hash]]
+            #_[geschichte.realize :refer [commit-value]]
+            #_[geschichte.p2p.block-detector :refer [block-detector]]
+            #_[geschichte.platform :refer [create-http-kit-handler! <!? start stop]]
             [clojure.core.async :refer [>!!]]
             [aprint.core :refer [aprint]]
             [taoensso.timbre :as timbre]))

                   (= name fn-name))
                 (keys eval-map))))

(defn init [ & {:keys [user socket repo-name]}]
  (let [user (or user "kordano@topiq.es")
        socket (or socket "ws://127.0.0.1:31744")
        store (<!? (new-mem-store))

     :user user}))


#_(defn transact-status
  "Transact incoming status to geschichte and commit"
  [state status]
  (let [{:keys [store peer stage repo user]} (get-in @state [:geschichte])]
