   Examples:
   (table \"table-style1\" :center [964 964 8072] ...)"
   [style h-align widths & body]
-  {:tag :w:tbl
-   :content
-   (remove-nil
-     (into
-       [{:tag :w:tblPr
-         :content
-         [{:tag :w:tblStyle
-           :attrs {:w:val style}}
-          {:tag :w:tblW
-           :attrs {:w:w (reduce + widths)
-                   :w:type "dxa"}}
-          {:tag :w:jc
-           :attrs {:w:val (name h-align)}}]}
-        {:tag :w:tblGrid
-         :content
-         (for [w widths]
-           {:tag :w:gridCol
-            :attrs {:w:gridCol w}})}]
-       body))})
+  (node :w:tbl {}
+        (node :w:tblPr {}
+              (node :w:tblStyle {:w:val style})
+              (node :w:tblW {:w:w (reduce + widths)
+                             :w:type "dxa"})
+              (node :w:jc {:w:val (name h-align)}))
+        (node :w:tblGrid {}
+              (for [w widths]
+                (node :w:gridCol {:w:gridCol w})))
+        body))
 
 (defn tr
   "Returns XML tag node of table.


  Note that resources should be created by make-resources."
  [resources]
  {:tag :Relationships
   :attrs relationships-xmlns
   :content (map rels resources)})

(defn table
  "Returns XML tag node of table.

  "Returns Override XML tag node of given resource information map.
  Called by content-types-xml."
  [{:keys [content-type part-name]}]
  (node :Override {:ContentType content-type
                   :PartName part-name}))

(defn content-types-xml
  "Creates XML data for [Content_Types].xml file in DOCX package.
