rubyXL 3.2.0 → 3.2.1

data/lib/rubyXL/objects/column_range.rb

@@ -33,43 +33,43 @@ module RubyXL
     end
 
     DEFAULT_WIDTH = 9
-  end
-
-  class ColumnRanges < OOXMLObject
-    define_child_node(RubyXL::ColumnRange, :collection => true, :accessor => :column_ranges)
-    define_element_name 'cols'
-
-    # Locate an existing column range, make a new one if not found,
-    # or split existing column range into multiples.
-    def get_range(col_index)
-      col_num = col_index + 1
-
-      old_range = self.find(col_index)
-
-      if old_range.nil? then
-        new_range = RubyXL::ColumnRange.new(:min => col_num, :max => col_num)
-        self.column_ranges << new_range
-        return new_range
-      elsif old_range.min == col_num &&
-              old_range.max == col_num then # Single column range, OK to change in place
-        return old_range
-      else
-        raise "Range splitting not implemented yet"
-      end
-    end
-
-    def find(col_index)
-      column_ranges && column_ranges.find { |range| range.include?(col_index) }
-    end
-
-    def insert_column(col_index)
-      column_ranges && column_ranges.each { |range| range.insert_column(col_index) }
-    end
-
-    def before_write_xml
-      !(column_ranges.nil? || column_ranges.empty?)
-    end
-
-  end
-
-end
+  end
+
+  class ColumnRanges < OOXMLObject
+    define_child_node(RubyXL::ColumnRange, :collection => true, :accessor => :column_ranges)
+    define_element_name 'cols'
+
+    # Locate an existing column range, make a new one if not found,
+    # or split existing column range into multiples.
+    def get_range(col_index)
+      col_num = col_index + 1
+
+      old_range = self.find(col_index)
+
+      if old_range.nil? then
+        new_range = RubyXL::ColumnRange.new(:min => col_num, :max => col_num)
+        self.column_ranges << new_range
+        return new_range
+      elsif old_range.min == col_num &&
+              old_range.max == col_num then # Single column range, OK to change in place
+        return old_range
+      else
+        raise "Range splitting not implemented yet"
+      end
+    end
+
+    def find(col_index)
+      column_ranges && column_ranges.find { |range| range.include?(col_index) }
+    end
+
+    def insert_column(col_index)
+      column_ranges && column_ranges.each { |range| range.insert_column(col_index) }
+    end
+
+    def before_write_xml
+      !(column_ranges.nil? || column_ranges.empty?)
+    end
+
+  end
+
+end

data/lib/rubyXL/objects/comments.rb

@@ -23,24 +23,24 @@ module RubyXL
     define_child_node(RubyXL::StringNode, :node_name => :author, :collection => :true)
     define_element_name 'authors'
   end
-
-  # http://www.schemacentral.com/sc/ooxml/e-ssml_comments.html
-  class CommentsFile < OOXMLTopLevelObject
-    CONTENT_TYPE = 'application/vnd.openxmlformats-officedocument.spreadsheetml.comments+xml'
-    REL_TYPE     = 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/comments'
-
-    define_child_node(RubyXL::Authors)
-    define_child_node(RubyXL::CommentList)
-    define_child_node(RubyXL::ExtensionStorageArea)
-    define_element_name 'comments'
-    set_namespaces('http://schemas.openxmlformats.org/spreadsheetml/2006/main' => '')
-
-    attr_accessor :workbook
-
-    def xlsx_path
-      ROOT.join('xl', "comments#{file_index}.xml")
-    end
-
-  end
-
-end
+
+  # http://www.schemacentral.com/sc/ooxml/e-ssml_comments.html
+  class CommentsFile < OOXMLTopLevelObject
+    CONTENT_TYPE = 'application/vnd.openxmlformats-officedocument.spreadsheetml.comments+xml'
+    REL_TYPE     = 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/comments'
+
+    define_child_node(RubyXL::Authors)
+    define_child_node(RubyXL::CommentList)
+    define_child_node(RubyXL::ExtensionStorageArea)
+    define_element_name 'comments'
+    set_namespaces('http://schemas.openxmlformats.org/spreadsheetml/2006/main' => '')
+
+    attr_accessor :workbook
+
+    def xlsx_path
+      ROOT.join('xl', "comments#{file_index}.xml")
+    end
+
+  end
+
+end

data/lib/rubyXL/objects/content_types.rb

@@ -1,81 +1,72 @@
 require 'rubyXL/objects/ooxml_object'
 
 module RubyXL
-
-  class ContentTypeDefault < OOXMLObject
-    define_attribute(:Extension,   :string)
-    define_attribute(:ContentType, :string)
-    define_element_name 'Default'
-  end
-
-  class ContentTypeOverride < OOXMLObject
-    define_attribute(:PartName,   :string)
-    define_attribute(:ContentType, :string)
-    define_element_name 'Override'
-  end
-
-  class ContentTypes < OOXMLTopLevelObject
-    SAVE_ORDER = 999  # Must be saved last, so it has time to accumulate overrides from all others.
-
-    define_child_node(RubyXL::ContentTypeDefault,  :collection => true, :accessor => :defaults)
-    define_child_node(RubyXL::ContentTypeOverride, :collection => true, :accessor => :overrides)
-
-    set_namespaces('http://schemas.openxmlformats.org/package/2006/content-types' => '')
-    define_element_name 'Types'
-
-    def self.xlsx_path
-      ROOT.join('[Content_Types].xml')
-    end
-
-    def xlsx_path
-      self.class.xlsx_path
-    end
-
-    def before_write_xml
-      content_types_by_ext = {}
-
-      # Collect all extensions and corresponding content types
-      root.rels_hash.each_pair { |klass, objects|
-        objects.each { |obj|
-          next unless klass.const_defined?(:CONTENT_TYPE)
-          ext = obj.xlsx_path.extname[1..-1]
-          next if ext.nil?
-          content_types_by_ext[ext] ||= []
-          content_types_by_ext[ext] << klass::CONTENT_TYPE 
-        }
-      }
-
-      self.defaults = [ RubyXL::ContentTypeDefault.new(:extension => 'xml', :content_type => 'application/xml') ]
-
-      # Determine which content types are used most often, and add them to the list of defaults
-      content_types_by_ext.each_pair { |ext, content_types_arr|
-        next if ext.nil? || defaults.any? { |d| d.extension == ext } 
-
-        counter = {}  # Count the number of occurrences of a given +content_type+.
-        content_types_arr.each { |ct| counter[ct] = (counter[ct] || 0) + 1 }
-        most_used_content_type = counter.to_a.max_by{ |pair| pair.last }.first
-
-        defaults << RubyXL::ContentTypeDefault.new(:extension => ext,
-                                                   :content_type => most_used_content_type)
-      }
-
-      self.overrides = []
-
-      # Add overrides for the files with known extensions but different content types.
-      root.rels_hash.each_pair { |klass, objects|
-        objects.each { |obj|
-          next unless defined?(klass::CONTENT_TYPE)
-          ext = obj.xlsx_path.extname[1..-1]
-          next if ext.nil?
-          next if defaults.any? { |d| (d.content_type == klass::CONTENT_TYPE) && (d.extension == ext) }
-          overrides << RubyXL::ContentTypeOverride.new(:part_name => obj.xlsx_path,
-                                                       :content_type => klass::CONTENT_TYPE)
-        }
-      }
-
-      true
-    end
-
-  end
-
-end
+
+  class ContentTypeDefault < OOXMLObject
+    define_attribute(:Extension,   :string)
+    define_attribute(:ContentType, :string)
+    define_element_name 'Default'
+  end
+
+  class ContentTypeOverride < OOXMLObject
+    define_attribute(:PartName,   :string)
+    define_attribute(:ContentType, :string)
+    define_element_name 'Override'
+  end
+
+  class ContentTypes < OOXMLTopLevelObject
+    SAVE_ORDER = 999  # Must be saved last, so it has time to accumulate overrides from all others.
+    XLSX_PATH = ROOT.join('[Content_Types].xml')
+
+    define_child_node(RubyXL::ContentTypeDefault,  :collection => true, :accessor => :defaults)
+    define_child_node(RubyXL::ContentTypeOverride, :collection => true, :accessor => :overrides)
+
+    set_namespaces('http://schemas.openxmlformats.org/package/2006/content-types' => '')
+    define_element_name 'Types'
+
+    def xlsx_path
+      XLSX_PATH
+    end
+
+    def before_write_xml
+      content_types_by_ext = {}
+
+      # Collect all extensions and corresponding content types
+      root.rels_hash.each_pair { |klass, objects|
+        objects.each { |obj|
+          next unless klass.const_defined?(:CONTENT_TYPE)
+          ext = obj.xlsx_path.extname[1..-1]
+          next if ext.nil?
+          content_types_by_ext[ext] ||= []
+          content_types_by_ext[ext] << klass::CONTENT_TYPE 
+        }
+      }
+
+      self.defaults = [ RubyXL::ContentTypeDefault.new(:extension => 'xml', :content_type => 'application/xml') ]
+
+      # Determine which content types are used most often, and add them to the list of defaults
+      content_types_by_ext.each_pair { |ext, content_types_arr|
+        next if ext.nil? || defaults.any? { |d| d.extension == ext } 
+        most_frequent_ct = content_types_arr.group_by { |ct| ct }.values.max_by(&:size).first
+        defaults << RubyXL::ContentTypeDefault.new(:extension => ext, :content_type => most_frequent_ct )
+      }
+
+      self.overrides = []
+
+      # Add overrides for the files with known extensions but different content types.
+      root.rels_hash.each_pair { |klass, objects|
+        objects.each { |obj|
+          next unless defined?(klass::CONTENT_TYPE)
+          ext = obj.xlsx_path.extname[1..-1]
+          next if defaults.any? { |d| (d.extension == ext) && (d.content_type == klass::CONTENT_TYPE) }
+          overrides << RubyXL::ContentTypeOverride.new(:part_name => obj.xlsx_path,
+                                                       :content_type => klass::CONTENT_TYPE)
+        }
+      }
+
+      true
+    end
+
+  end
+
+end

data/lib/rubyXL/objects/data_validation.rb

@@ -1,37 +1,37 @@
-require 'rubyXL/objects/ooxml_object'
-require 'rubyXL/objects/simple_types'
-require 'rubyXL/objects/formula'
-
-module RubyXL
-
-  # http://www.schemacentral.com/sc/ooxml/e-ssml_dataValidation-1.html
-  class DataValidation < OOXMLObject
-    define_attribute(:type,             RubyXL::ST_DataValidationType,       :default => 'none')
-    define_attribute(:errorStyle,       RubyXL::ST_DataValidationErrorStyle, :default => 'stop')
-    define_attribute(:imeMode,          RubyXL::ST_DataValidationImeMode,    :default => 'noControl')
-    define_attribute(:operator,         RubyXL::ST_DataValidationOperator,   :default => 'between')
-    define_attribute(:allowBlank,       :bool, :default => false)
-    define_attribute(:showDropDown,     :bool, :default => false)
-    define_attribute(:showInputMessage, :bool, :default => false)
-    define_attribute(:showErrorMessage, :bool, :default => false)
-    define_attribute(:errorTitle,       :string)
-    define_attribute(:error,            :string)
-    define_attribute(:promptTitle,      :string)
-    define_attribute(:prompt,           :string)
-    define_attribute(:sqref,            :sqref, :required => true)
-
-    define_child_node(RubyXL::Formula, :node_name => :formula1)
-    define_child_node(RubyXL::Formula, :node_name => :formula2)
-    define_element_name 'dataValidation'
-  end
-
-  # http://www.schemacentral.com/sc/ooxml/e-ssml_dataValidations-1.html
-  class DataValidations < OOXMLObject
-    define_attribute(:disablePrompts, :bool, :default => false)
-    define_attribute(:xWindow,        :int)
-    define_attribute(:yWindow,        :int)
-    define_child_node(RubyXL::DataValidation, :collection => :with_count)
-    define_element_name 'dataValidations'
-  end
-
-end
+require 'rubyXL/objects/ooxml_object'
+require 'rubyXL/objects/simple_types'
+require 'rubyXL/objects/formula'
+
+module RubyXL
+
+  # http://www.schemacentral.com/sc/ooxml/e-ssml_dataValidation-1.html
+  class DataValidation < OOXMLObject
+    define_attribute(:type,             RubyXL::ST_DataValidationType,       :default => 'none')
+    define_attribute(:errorStyle,       RubyXL::ST_DataValidationErrorStyle, :default => 'stop')
+    define_attribute(:imeMode,          RubyXL::ST_DataValidationImeMode,    :default => 'noControl')
+    define_attribute(:operator,         RubyXL::ST_DataValidationOperator,   :default => 'between')
+    define_attribute(:allowBlank,       :bool, :default => false)
+    define_attribute(:showDropDown,     :bool, :default => false)
+    define_attribute(:showInputMessage, :bool, :default => false)
+    define_attribute(:showErrorMessage, :bool, :default => false)
+    define_attribute(:errorTitle,       :string)
+    define_attribute(:error,            :string)
+    define_attribute(:promptTitle,      :string)
+    define_attribute(:prompt,           :string)
+    define_attribute(:sqref,            :sqref, :required => true)
+
+    define_child_node(RubyXL::Formula, :node_name => :formula1)
+    define_child_node(RubyXL::Formula, :node_name => :formula2)
+    define_element_name 'dataValidation'
+  end
+
+  # http://www.schemacentral.com/sc/ooxml/e-ssml_dataValidations-1.html
+  class DataValidations < OOXMLContainerObject
+    define_attribute(:disablePrompts, :bool, :default => false)
+    define_attribute(:xWindow,        :int)
+    define_attribute(:yWindow,        :int)
+    define_child_node(RubyXL::DataValidation, :collection => :with_count)
+    define_element_name 'dataValidations'
+  end
+
+end

data/lib/rubyXL/objects/document_properties.rb

@@ -1,161 +1,161 @@
 require 'rubyXL/objects/ooxml_object'
 require 'rubyXL/objects/container_nodes'
-require 'time'
+require 'time'
 
 module RubyXL
-
-  # http://www.schemacentral.com/sc/ooxml/e-extended-properties_Properties.html
-  class DocumentPropertiesFile < OOXMLTopLevelObject
-    CONTENT_TYPE = 'application/vnd.openxmlformats-officedocument.extended-properties+xml'
-    REL_TYPE     = 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties'
-
-    attr_accessor :workbook
-
-    define_child_node(RubyXL::StringNode,  :node_name => :Template)
-    define_child_node(RubyXL::StringNode,  :node_name => :Manager)
-    define_child_node(RubyXL::StringNode,  :node_name => :Company)
-    define_child_node(RubyXL::IntegerNode, :node_name => :Pages)
-    define_child_node(RubyXL::IntegerNode, :node_name => :Words)
-    define_child_node(RubyXL::IntegerNode, :node_name => :Characters)
-    define_child_node(RubyXL::StringNode,  :node_name => :PresentationFormat)
-    define_child_node(RubyXL::IntegerNode, :node_name => :Lines)
-    define_child_node(RubyXL::IntegerNode, :node_name => :Paragraphs)
-    define_child_node(RubyXL::IntegerNode, :node_name => :Slides)
-    define_child_node(RubyXL::IntegerNode, :node_name => :Notes)
-    define_child_node(RubyXL::IntegerNode, :node_name => :TotalTime)
-    define_child_node(RubyXL::IntegerNode, :node_name => :HiddenSlides)
-    define_child_node(RubyXL::IntegerNode, :node_name => :MMClips)
-    define_child_node(RubyXL::BooleanNode, :node_name => :ScaleCrop)
-    define_child_node(RubyXL::VectorValue, :node_name => :HeadingPairs)
-    define_child_node(RubyXL::VectorValue, :node_name => :TitlesOfParts)
-    define_child_node(RubyXL::BooleanNode, :node_name => :LinksUpToDate)
-    define_child_node(RubyXL::IntegerNode, :node_name => :CharactersWithSpaces)
-    define_child_node(RubyXL::BooleanNode, :node_name => :SharedDoc)
-    define_child_node(RubyXL::StringNode,  :node_name => :HyperlinkBase)
-    define_child_node(RubyXL::VectorValue, :node_name => :HLinks)
-    define_child_node(RubyXL::BooleanNode, :node_name => :HyperlinksChanged)
-    define_child_node(RubyXL::StringNode,  :node_name => :DigSig)
-    define_child_node(RubyXL::StringNode,  :node_name => :Application)
-    define_child_node(RubyXL::StringNode,  :node_name => :AppVersion)
-    define_child_node(RubyXL::IntegerNode, :node_name => :DocSecurity)
-    set_namespaces('http://schemas.openxmlformats.org/officeDocument/2006/extended-properties' => '',
-                   'http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes' => 'vt')
-    define_element_name 'Properties'
-
-    def add_parts_count(name, count)
-      return unless count > 0
-      heading_pairs.vt_vector.vt_variant << RubyXL::Variant.new(:vt_lpstr => RubyXL::StringNode.new(:value => name))
-      heading_pairs.vt_vector.vt_variant << RubyXL::Variant.new(:vt_i4 => RubyXL::IntegerNode.new(:value => count))
-    end
-    private :add_parts_count
-
-    def add_part_title(name)
-      titles_of_parts.vt_vector.vt_lpstr << RubyXL::StringNode.new(:value => name)
-    end
-    private :add_part_title
-
-    def before_write_xml
-      workbook = root.workbook
-
-      self.heading_pairs   = RubyXL::VectorValue.new(:vt_vector => RubyXL::Vector.new(:base_type => 'variant'))
-      self.titles_of_parts = RubyXL::VectorValue.new(:vt_vector => RubyXL::Vector.new(:base_type => 'lpstr'))
-
-      worksheets = chartsheets = 0
-
-      workbook.worksheets.each { |sheet|
-        add_part_title(sheet.sheet_name)
-
-        case sheet
-        when RubyXL::Worksheet  then worksheets += 1
-        when RubyXL::Chartsheet then chartsheets += 1
-        end
-      }
-      add_parts_count('Worksheets', worksheets) if worksheets > 0
-      add_parts_count('Charts', chartsheets) if chartsheets > 0
-
-      if workbook.defined_names then
-        add_parts_count('Named Ranges', workbook.defined_names.size)
-        workbook.defined_names.each { |defined_name| add_part_title(defined_name.name) }
-      end
-
-      true
-    end
-
-    def xlsx_path
-      ROOT.join('docProps', 'app.xml')
-    end
-
-  end
-
-
-  class CorePropertiesFile < OOXMLTopLevelObject
-    CONTENT_TYPE = 'application/vnd.openxmlformats-package.core-properties+xml'
-    REL_TYPE     = 'http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties'
-
-    attr_accessor :workbook
-
-    define_child_node(RubyXL::StringNode,    :node_name => 'dc:creator')
-    define_child_node(RubyXL::StringNode,    :node_name => 'dc:description')
-    define_child_node(RubyXL::StringNode,    :node_name => 'dc:identifier')
-    define_child_node(RubyXL::StringNode,    :node_name => 'dc:language')
-    define_child_node(RubyXL::StringNode,    :node_name => 'dc:subject')
-    define_child_node(RubyXL::StringNode,    :node_name => 'dc:title')
-    define_child_node(RubyXL::StringNodeW3C, :node_name => 'dcterms:created')
-    define_child_node(RubyXL::StringNodeW3C, :node_name => 'dcterms:modified')
-    define_child_node(RubyXL::StringNode,    :node_name => 'cp:lastModifiedBy')
-    define_child_node(RubyXL::StringNode,    :node_name => 'cp:lastPrinted')
-    define_child_node(RubyXL::StringNode,    :node_name => 'cp:category')
-    define_child_node(RubyXL::StringNode,    :node_name => 'cp:contentStatus')
-    define_child_node(RubyXL::StringNode,    :node_name => 'cp:contentType')
-    define_child_node(RubyXL::StringNode,    :node_name => 'cp:keywords')
-    define_child_node(RubyXL::StringNode,    :node_name => 'cp:revision')
-    define_child_node(RubyXL::StringNode,    :node_name => 'cp:version')
-
-    set_namespaces('http://schemas.openxmlformats.org/package/2006/metadata/core-properties' => 'cp',
-                   'http://purl.org/dc/elements/1.1/' => 'dc',
-                   'http://purl.org/dc/terms/' => 'dcterms',
-                   'http://purl.org/dc/dcmitype/' => 'dcmitype',
-                   'http://www.w3.org/2001/XMLSchema-instance' => 'xsi')
-    define_element_name 'cp:coreProperties'
-
-    def xlsx_path
-      ROOT.join('docProps', 'core.xml')
-    end
-
-    def creator
-      dc_creator && dc_creator.value
-    end
-
-    def creator=(v)
-      self.dc_creator = RubyXL::StringNodeW3C.new(:value => v)
-    end
-
-    def modifier
-      cp_last_modified_by && cp_last_modified_by.value
-    end
-
-    def modifier=(v)
-      self.cp_last_modified_by = RubyXL::StringNodeW3C.new(:value => v)
-    end
-
-    def created_at
-      val = dcterms_created && dcterms_created.value
-      val && (val.strip.empty? ? nil : Time.parse(val))
-    end
-
-    def created_at=(v)
-      self.dcterms_created = RubyXL::StringNodeW3C.new(:value => v.iso8601)
-    end
-
-    def modified_at
-      val = dcterms_modified && dcterms_modified.value
-      val && (val.strip.empty? ? nil : Time.parse(val))
-    end
-
-    def modified_at=(v)
-      self.dcterms_modified = RubyXL::StringNodeW3C.new(:value => v.iso8601)
-    end
-
-  end
-
-end
+
+  # http://www.schemacentral.com/sc/ooxml/e-extended-properties_Properties.html
+  class DocumentPropertiesFile < OOXMLTopLevelObject
+    CONTENT_TYPE = 'application/vnd.openxmlformats-officedocument.extended-properties+xml'
+    REL_TYPE     = 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties'
+
+    attr_accessor :workbook
+
+    define_child_node(RubyXL::StringNode,  :node_name => :Template)
+    define_child_node(RubyXL::StringNode,  :node_name => :Manager)
+    define_child_node(RubyXL::StringNode,  :node_name => :Company)
+    define_child_node(RubyXL::IntegerNode, :node_name => :Pages)
+    define_child_node(RubyXL::IntegerNode, :node_name => :Words)
+    define_child_node(RubyXL::IntegerNode, :node_name => :Characters)
+    define_child_node(RubyXL::StringNode,  :node_name => :PresentationFormat)
+    define_child_node(RubyXL::IntegerNode, :node_name => :Lines)
+    define_child_node(RubyXL::IntegerNode, :node_name => :Paragraphs)
+    define_child_node(RubyXL::IntegerNode, :node_name => :Slides)
+    define_child_node(RubyXL::IntegerNode, :node_name => :Notes)
+    define_child_node(RubyXL::IntegerNode, :node_name => :TotalTime)
+    define_child_node(RubyXL::IntegerNode, :node_name => :HiddenSlides)
+    define_child_node(RubyXL::IntegerNode, :node_name => :MMClips)
+    define_child_node(RubyXL::BooleanNode, :node_name => :ScaleCrop)
+    define_child_node(RubyXL::VectorValue, :node_name => :HeadingPairs)
+    define_child_node(RubyXL::VectorValue, :node_name => :TitlesOfParts)
+    define_child_node(RubyXL::BooleanNode, :node_name => :LinksUpToDate)
+    define_child_node(RubyXL::IntegerNode, :node_name => :CharactersWithSpaces)
+    define_child_node(RubyXL::BooleanNode, :node_name => :SharedDoc)
+    define_child_node(RubyXL::StringNode,  :node_name => :HyperlinkBase)
+    define_child_node(RubyXL::VectorValue, :node_name => :HLinks)
+    define_child_node(RubyXL::BooleanNode, :node_name => :HyperlinksChanged)
+    define_child_node(RubyXL::StringNode,  :node_name => :DigSig)
+    define_child_node(RubyXL::StringNode,  :node_name => :Application)
+    define_child_node(RubyXL::StringNode,  :node_name => :AppVersion)
+    define_child_node(RubyXL::IntegerNode, :node_name => :DocSecurity)
+    set_namespaces('http://schemas.openxmlformats.org/officeDocument/2006/extended-properties' => '',
+                   'http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes' => 'vt')
+    define_element_name 'Properties'
+
+    def add_parts_count(name, count)
+      return unless count > 0
+      heading_pairs.vt_vector.vt_variant << RubyXL::Variant.new(:vt_lpstr => RubyXL::StringNode.new(:value => name))
+      heading_pairs.vt_vector.vt_variant << RubyXL::Variant.new(:vt_i4 => RubyXL::IntegerNode.new(:value => count))
+    end
+    private :add_parts_count
+
+    def add_part_title(name)
+      titles_of_parts.vt_vector.vt_lpstr << RubyXL::StringNode.new(:value => name)
+    end
+    private :add_part_title
+
+    def before_write_xml
+      workbook = root.workbook
+
+      self.heading_pairs   = RubyXL::VectorValue.new(:vt_vector => RubyXL::Vector.new(:base_type => 'variant'))
+      self.titles_of_parts = RubyXL::VectorValue.new(:vt_vector => RubyXL::Vector.new(:base_type => 'lpstr'))
+
+      worksheets = chartsheets = 0
+
+      workbook.worksheets.each { |sheet|
+        add_part_title(sheet.sheet_name)
+
+        case sheet
+        when RubyXL::Worksheet  then worksheets += 1
+        when RubyXL::Chartsheet then chartsheets += 1
+        end
+      }
+      add_parts_count('Worksheets', worksheets) if worksheets > 0
+      add_parts_count('Charts', chartsheets) if chartsheets > 0
+
+      if workbook.defined_names then
+        add_parts_count('Named Ranges', workbook.defined_names.size)
+        workbook.defined_names.each { |defined_name| add_part_title(defined_name.name) }
+      end
+
+      true
+    end
+
+    def xlsx_path
+      ROOT.join('docProps', 'app.xml')
+    end
+
+  end
+
+
+  class CorePropertiesFile < OOXMLTopLevelObject
+    CONTENT_TYPE = 'application/vnd.openxmlformats-package.core-properties+xml'
+    REL_TYPE     = 'http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties'
+
+    attr_accessor :workbook
+
+    define_child_node(RubyXL::StringNode,    :node_name => 'dc:creator')
+    define_child_node(RubyXL::StringNode,    :node_name => 'dc:description')
+    define_child_node(RubyXL::StringNode,    :node_name => 'dc:identifier')
+    define_child_node(RubyXL::StringNode,    :node_name => 'dc:language')
+    define_child_node(RubyXL::StringNode,    :node_name => 'dc:subject')
+    define_child_node(RubyXL::StringNode,    :node_name => 'dc:title')
+    define_child_node(RubyXL::StringNodeW3C, :node_name => 'dcterms:created')
+    define_child_node(RubyXL::StringNodeW3C, :node_name => 'dcterms:modified')
+    define_child_node(RubyXL::StringNode,    :node_name => 'cp:lastModifiedBy')
+    define_child_node(RubyXL::StringNode,    :node_name => 'cp:lastPrinted')
+    define_child_node(RubyXL::StringNode,    :node_name => 'cp:category')
+    define_child_node(RubyXL::StringNode,    :node_name => 'cp:contentStatus')
+    define_child_node(RubyXL::StringNode,    :node_name => 'cp:contentType')
+    define_child_node(RubyXL::StringNode,    :node_name => 'cp:keywords')
+    define_child_node(RubyXL::StringNode,    :node_name => 'cp:revision')
+    define_child_node(RubyXL::StringNode,    :node_name => 'cp:version')
+
+    set_namespaces('http://schemas.openxmlformats.org/package/2006/metadata/core-properties' => 'cp',
+                   'http://purl.org/dc/elements/1.1/' => 'dc',
+                   'http://purl.org/dc/terms/' => 'dcterms',
+                   'http://purl.org/dc/dcmitype/' => 'dcmitype',
+                   'http://www.w3.org/2001/XMLSchema-instance' => 'xsi')
+    define_element_name 'cp:coreProperties'
+
+    def xlsx_path
+      ROOT.join('docProps', 'core.xml')
+    end
+
+    def creator
+      dc_creator && dc_creator.value
+    end
+
+    def creator=(v)
+      self.dc_creator = RubyXL::StringNodeW3C.new(:value => v)
+    end
+
+    def modifier
+      cp_last_modified_by && cp_last_modified_by.value
+    end
+
+    def modifier=(v)
+      self.cp_last_modified_by = RubyXL::StringNodeW3C.new(:value => v)
+    end
+
+    def created_at
+      val = dcterms_created && dcterms_created.value
+      val && (val.strip.empty? ? nil : Time.parse(val))
+    end
+
+    def created_at=(v)
+      self.dcterms_created = RubyXL::StringNodeW3C.new(:value => v.iso8601)
+    end
+
+    def modified_at
+      val = dcterms_modified && dcterms_modified.value
+      val && (val.strip.empty? ? nil : Time.parse(val))
+    end
+
+    def modified_at=(v)
+      self.dcterms_modified = RubyXL::StringNodeW3C.new(:value => v.iso8601)
+    end
+
+  end
+
+end