        (let [res-doc (try (read-string (slurp fname))
                           (catch Exception e))]
          res-doc)))
-  ([dbname uuid col]
-     nil))
+  ([dbname kv option]
+     (first (get-docs dbname kv option))))
 
 (defn get-docs
   "With one argument it returns all docs in dbname, with two arguments

      (let [fdata (read-index-file dbname dbkey)]
        (if-let [key-data (->> (get datum dbkey)
                               (get fdata))]
          nil))))

(defn create!
  "Creates a new database with dbname and make initial directories and

              [])
        {:status true :message (str dbname " has been created")})))

(declare get-docs)

(defn get-doc
  "Get one doc from dbname, with two arguments it returns the doc in
  dbname with a specified uuid , with three arguments it returns the
