      (when-let [c (.getConsistentRead  result)] {:consistent c})
      (when-let [k (.getKeys            result)] {:keys (utils/fmap as-map (into [] k))})))
 
-  ;; TODO CreateTableResult, ListTablesResult, UpdateTableResult
+  ;; TODO CreateTableResult, ListTablesResult, UpdateTableResult, Projection
 
   BatchGetItemResult
   (as-map [result]

      {:name          (.getTableName table)
       :creation-date (.getCreationDateTime table)
       :item-count    (.getItemCount table)
       :size-bytes    (.getTableSizeBytes table)
       :key-schema    (as-map (.getKeySchema table))
       :throughput    (as-map (.getProvisionedThroughput table))
       ;; :indexes    (as-map (.getLocalSecondaryIndexes table)) ; TODO
       :status        (-> (.getTableStatus table) (str/lower-case) (keyword))}))

  ;; LocalSecondaryIndexDescription ; TODO

  ProvisionedThroughputDescription
  (as-map [throughput]

             KeySchemaElement
             KeysAndAttributes
             LocalSecondaryIndex
             LocalSecondaryIndexDescription
             Projection
             ProvisionedThroughput
             ProvisionedThroughputDescription
