 
 (defn fmt-put-tattr [[data opts0]]
   (let [opts (flatten (seq (dissoc opts0 :index)))
-        [bucket slot] (decode-time (:time data))
+        [month bucket slot] (decode-time (:time data))
         idx (if (:index opts0)
               [(fmt-put-index-opts :t_index
                                    {:key (:key data)
                                     :name (:name data)} opts)]
               [])]
     (if (empty? opts)
-      (cons (insert-query :t_attr
+      (cons (insert-query (t-attr-colfam month)
                           {:data (:value data)
                            :key (:key data)
                            :name (:name data)
                            :bucket bucket
                            :slot slot}) idx)
-      (cons (insert-query :t_attr
+      (cons (insert-query (t-attr-colfam month)
                           {:data (:value data)
                            :key (:key data)
                            :name (:name data)

     ~@body))

(defn truncate-all [cluster]
  (doseq [t [:graph :g_index :k_index :t_index :t_attr :k_attr :n_naming :g_naming]]
    (truncate cluster t)))

(defn fmt-put-index-opts [table data opts]


(defn fmt-del-tattr [data]
  (if (contains? data :time)
    (let [[month bucket slot] (decode-time (:time data))]
      [(delete-query
        (t-attr-colfam month)
        (where [[= :key (:key data)]
                [= :name (:name data)]
                [= :bucket bucket]
