           (for [[k v] (partition 2 kvs)]
             (when-v-kv v k)))))
 
-(def ^:const ^{:private true} styles-xml-resource
+(defconst- styles-xml-resource
   {:id "rId1"
    :part-name "/word/styles.xml"
    :type "http://schemas.openxmlformats.org/officeDocument/2006/relationships/styles"

   (node :Override {:ContentType "application/vnd.openxmlformats-officedocument.wordprocessingml.document.main+xml"
                    :PartName "/word/document.xml"})])

(def ^:const ^{:private true} default-styles
  [(node :w:style
         {:w:type "paragraph" :w:styleId "a" :w:default "true"}
         (node :w:name {:w:val "Normal"})

   :xmlns:w10 xmlns-w10
   :xmlns:wp xmlns-wp})

(defconst- default-content-types
  [(node :Default {:Extension "rels"
                   :ContentType "application/vnd.openxmlformats-package.relationships+xml"})
   (node :Override {:ContentType "application/vnd.openxmlformats-officedocument.extended-properties+xml"
