         (when (= :end-query (:directive query-data))
           (recur (read-query prompt-fn set-var show toggle)))))))
 
-(defn process-query-string [query-string dir-fns]
-  (binding [*std-in* (BufferedReader. (StringReader. query-string))]
-    (process-queries dir-fns)))
-
 (defn start-event-loop [dbspec]
   (log/debug "staring loop")
   (db/set-db-spec dbspec)

              (if (= key 'show)
                (conf/print-key-values)
                (let [val (conf/config key)]
                  (println (format "%s: %s" (name key) val))
                  ;(println (format "Error: no such variable: %s" (name key)))
                  )))
            (toggle [key]
              (let [oldval (conf/config key)
                    nextval (not oldval)]

          (print (format (conf/config :prompt) (swap! line-no inc)))
          (flush))))))

(defn process-queries
  [dir-fns]
  (let [prompt-fn (or (get dir-fns :prompt-for-input)
                      (gen-prompt-fn))]
    (letfn [(set-var [[key newval]]
