                   :w:customStyle "true"} ; User-Defined Style
         (node :w:name {:w:val font-style-name}) ; Primary Style Name
         (node :w:basedOn {:w:val "a0"}) ; Parent Style ID
-        (rpr options)))
+        (run-properties options)))
 
 (defn- ppr
   "Creates w:pPr tag node. Called by paragaph-style."

                     indent-left indent-right indent-first-line mirror-indents?)
             (ppr options))
           (when (or font font-size font-color bold? italics? underline?)
             (rpr options)))
           (when font
             (character-style character-style-name options))]))


                                    :w:header 0
                                    :w:footer 0})))))

(defn- run-properties
  "Creates w:rPr tag node. Called by paragaph-style."
  [{:as options
    :keys [font font-size font-color bold? italics? underline? strike?]}]
