         (node :w:name {:w:val name}) ; Primary Style Name
         (node :w:basedOn {:w:val "a1"}) ; Parent Style ID
         (node :w:qFormat) ; Primary Style
-        (when (or word-wrap? align
-                  space-before space-after space-line
-                  indent-left indent-right indent-first-line mirror-indents?)
-          (paragraph-properties options))
-        (when (or font font-size font-color bold? italics? underline?)
-          (run-properties options))
-        ;; Style Table Properties
-        (node :w:tblPr {}
-              ;; Number of Rows in Row Band
-              (node :w:tblStyleRowBandSize {:w:val 1})
-              ;; Table Alignment
-              (node :w:jc {:w:val "both"})
-              ;; Table Indent from Leading Margin
-              (node :w:tblInd {:w:val 0 :w:type "dxa"})
-              ;; Table Borders
-              (table-borders ["single" "auto" 4 0])
-              ;; Table Cell Margin
-              (node :w:tblCellMar {}
-                    (node :w:top {:w:w cell-margin-top :w:type "dxa"})
-                    (node :w:left {:w:w cell-margin-left :w:type "dxa"})
-                    (node :w:bottom {:w:w cell-margin-bottom :w:type "dxa"})
-                    (node :w:right {:w:w cell-margin-right :w:type "dxa"})))
-        ;; Table Row Properties
-        (node :w:trPr {}
-              ;; Table Row Alignment
-              (node :w:jc {:w:val cell-h-align}))
-        ;; Table Cell Properties
-        (node :w:tcPr {}
-              ;; Table Cell Vertical Alignment
-              (node :w:vAlign {:w:val cell-v-align}))
+        (paragraph-properties options)
+        (run-properties options)
+        (table-properties options)
+        (table-row-properties options)
+        (table-cell-properties options)
         ;; First Row Formatting Properties
         (node :w:tblStylePr {:w:type "firstRow"})
         ;; Band 1 Horizontal Formatting Properties

     (node :w:insideH (table-border-attrs inside-h))
     (node :w:insideV (table-border-attrs inside-v)))))

(defn table-style
  "Returns w:style tag for table style with w:style tag for the font,
  as a vector containing both of them.

   :w:space space}) ; Border Spacing Measurement)

(defn- table-borders
  "Returns w:tblBorders tag. Called by table-properties.

  Parameters:
  Takes one or six parameters.
