                  (CreateKeyspace. (name keyspace-name)))
          (maybe-stringify))))
 
+(defn use-keyspace
+  [keyspace-name]
+  ;; TODO: rewrite to java class
+  (str "USE " (name keyspace-name)))
+
 (def ? (QueryBuilder/bindMarker))

;;
;; Schema Builder
;;

(defn column-definitions
  [m]
  [:column-definitions m])

(defn- make-column-type
  [column-name column-defs]


(defn maybe-stringify
  [statement]
  (println (.getQueryString  statement))
  (if *batch*
    statement
    ;; TODO: make sure that we _CAN_ finish the query (check if it's complete)
    ;; (.setForceNoValues)
    (.getQueryString  statement)))

(alias/alias-ns 'clojurewerkz.cassaforte.query.query-builder)
(alias/alias-ns 'clojurewerkz.cassaforte.query.dsl)
