openxml-pptx 0.2.0

data/lib/openxml/pptx/parts/theme.rb

@@ -0,0 +1,61 @@
+# frozen_string_literals: true
+require "openxml/drawingml/parts/theme"
+
+module OpenXml
+  module Pptx
+    module Parts
+      class Theme < OpenXml::DrawingML::Parts::Theme
+        include OpenXml::RelatablePart
+
+        relationship_type "http://schemas.openxmlformats.org/officeDocument/2006/relationships/theme"
+        content_type "application/vnd.openxmlformats-officedocument.theme+xml"
+        default_path "ppt/theme/theme.xml"
+
+        def relationships_path; end
+
+        # Default theme
+        def self.office_theme
+          new.tap do |theme|
+            theme.theme_name = "Office Theme"
+            theme.theme_elements.color_scheme.tap do |scheme|
+              scheme.scheme_name = "Office"
+              scheme.dark_one.system_color = :windowText
+              scheme.dark_one.system_color.last_color = "000000"
+              scheme.light_one.system_color = :window
+              scheme.light_one.system_color.last_color = "FFFFFF"
+              scheme.dark_two.rgb = "44546A"
+              scheme.light_two.rgb = "E7E6E6"
+              scheme.accent_one.rgb = "4472C4"
+              scheme.accent_two.rgb = "ED7D31"
+              scheme.accent_three.rgb = "A5A5A5"
+              scheme.accent_four.rgb = "FFC000"
+              scheme.accent_five.rgb = "5B9BD5"
+              scheme.accent_six.rgb = "70AD47"
+              scheme.hyperlink.rgb = "0563C1"
+              scheme.followed_hyperlink.rgb = "954F72"
+            end
+            theme.theme_elements.font_scheme.tap do |scheme|
+              scheme.scheme_name = "Office"
+              scheme.major_font.latin_font = "Calibri Light"
+              scheme.major_font.east_asian_font = ""
+              scheme.major_font.complex_script_font = ""
+              scheme.minor_font.latin_font = "Calibri"
+              scheme.minor_font.east_asian_font = ""
+              scheme.minor_font.complex_script_font = ""
+            end
+            theme.theme_elements.format_scheme.tap do |scheme|
+              scheme.scheme_name = "Office"
+              3.times do
+                scheme.fill_style_list << OpenXml::DrawingML::Properties::FillNone.new(true)
+                scheme.line_style_list << OpenXml::DrawingML::Properties::Outline.new
+                scheme.effect_style_list << OpenXml::DrawingML::Properties::EffectStyle.new.tap(&:effect_list)
+                scheme.background_fill_style_list << OpenXml::DrawingML::Properties::FillNone.new(true)
+              end
+            end
+          end
+        end
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties.rb

@@ -0,0 +1,21 @@
+module OpenXml
+  module Pptx
+    module Properties
+    end
+  end
+end
+
+require "openxml/properties"
+require "openxml/has_properties"
+require "openxml/has_children"
+require "openxml/has_attributes"
+require "openxml/contains_properties"
+require "openxml/render_when_empty"
+
+require "openxml/pptx/properties/simple_boolean_property"
+require "openxml/pptx/properties/simple_property_container_property"
+require "openxml/pptx/properties/transparent_container_property"
+
+Dir.glob("#{File.join(File.dirname(__FILE__), "properties", "*.rb")}").each do |file|
+  require file
+end

data/lib/openxml/pptx/properties/background.rb

@@ -0,0 +1,19 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class Background < OpenXml::Properties::ComplexProperty
+        include OpenXml::ContainsProperties
+        namespace :p
+        tag :bg
+
+        attribute :bw_mode, one_of: OpenXml::Pptx::ST_BlackWhiteMode
+
+        property_choice do
+          property :background_properties
+          property :background_reference
+        end
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/background_properties.rb

@@ -0,0 +1,30 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class BackgroundProperties < OpenXml::Properties::ComplexProperty
+        include ContainsProperties
+        namespace :p
+        tag :bgPr
+
+        attribute :shade_to_title, displays_as: :shadeToTitle, expects: :boolean
+
+        property_choice do
+          value_property :no_fill, klass: OpenXml::DrawingML::Properties::FillNone
+          property :solid_fill, klass: OpenXml::DrawingML::Properties::FillSolid
+          property :gradient_fill, klass: OpenXml::DrawingML::Properties::FillGradient
+          property :pattern_fill, klass: OpenXml::DrawingML::Properties::FillPattern
+          property :blip_fill, klass: OpenXml::DrawingML::Properties::FillBlip
+          value_property :inherit_group_fill, klass: OpenXml::DrawingML::Properties::FillGroup
+        end
+
+        property_choice do
+          property :effect_list, klass: OpenXml::DrawingML::Properties::EffectList
+          property :effect_dag, klass: OpenXml::DrawingML::Properties::EffectDag
+        end
+
+        property :extension_list
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/background_reference.rb

@@ -0,0 +1,23 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class BackgroundReference < OpenXml::Properties::ComplexProperty
+        include OpenXml::ContainsProperties
+        namespace :p
+        tag :bgRef
+
+        attribute :index, displays_as: :idx, expects: :positive_integer, required: true
+
+        property_choice required: true do
+          property :component_rgb, klass: OpenXml::DrawingML::Properties::ColorComponentRgb
+          value_property :rgb, klass: OpenXml::DrawingML::Properties::ColorHexRgb
+          property :hsl, klass: OpenXml::DrawingML::Properties::ColorHsl
+          value_property :system_color, klass: OpenXml::DrawingML::Properties::ColorSystemColor
+          value_property :scheme_color, klass: OpenXml::DrawingML::Properties::ColorSchemeColor
+          value_property :preset_color, klass: OpenXml::DrawingML::Properties::ColorPresetColor
+        end
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/blip_fill.rb

@@ -0,0 +1,11 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class BlipFill < OpenXml::DrawingML::Properties::FillBlip
+        namespace :p
+        tag :blipFill
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/color_mapping.rb

@@ -0,0 +1,11 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class ColorMapping < OpenXml::DrawingML::Properties::ColorMapping
+        namespace :p
+        tag :clrMap
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/color_mapping_override.rb

@@ -0,0 +1,11 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class ColorMappingOverride < OpenXml::DrawingML::Properties::ColorMappingOverride
+        namespace :p
+        tag :clrMapOvr
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/common_slide_data.rb

@@ -0,0 +1,21 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class CommonSlideData < OpenXml::Properties::ComplexProperty
+        include OpenXml::ContainsProperties
+        include OpenXml::RenderWhenEmpty
+        namespace :p
+        tag :cSld
+
+        attribute :slide_name, displays_as: :name, expects: :string
+
+        property :background
+        property :shape_tree, required: true
+        property :customer_data_list
+        property :control_list
+        property :extension_list
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/connection_shape.rb

@@ -0,0 +1,16 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class ConnectionShape < SimplePropertyContainerProperty
+        namespace :p
+        tag :cxnSp
+
+        property :non_visual_connection_shape_properties, required: true
+        property :shape_properties, required: true
+        property :shape_style
+        property :extension_list
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/content_part.rb

@@ -0,0 +1,13 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class ContentPart < OpenXml::Properties::ComplexProperty
+        namespace :p
+        tag :contentPart
+
+        attribute :rid, displays_as: :id, namespace: :r, expects: :string, required: true
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/control.rb

@@ -0,0 +1,36 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class Control < OpenXml::Properties::ComplexProperty
+        include OpenXml::ContainsProperties
+        namespace :p
+        tag :control
+
+        attribute :control_name, displays_as: :name, expects: :string
+        attribute :show_as_icon, displays_as: :showAsIcon, expects: :boolean
+        attribute :rid, displays_as: :id, namespace: :r, expects: :string
+        attribute :image_width, displays_as: :imgW, expects: :positive_coordinate
+        attribute :image_height, displays_as: :imgH, expects: :positive_coordinate
+
+        property :extension_list
+        property :picture
+
+      private
+
+        def positive_coordinate(value)
+          message = "Invalid: must be a positive integer or include a unit"
+          raise ArgumentError, message unless positive_integer?(value) || positive_universal_measure?(value)
+        end
+
+        def positive_integer?(value)
+          value.is_a?(Integer) && value >= 0
+        end
+
+        def positive_universal_measure?(value)
+          value.is_a?(String) && value =~ OpenXml::DrawingML::ST_PositiveUniversalMeasure
+        end
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/control_list.rb

@@ -0,0 +1,14 @@
+require "openxml/pptx/properties/control"
+
+module OpenXml
+  module Pptx
+    module Properties
+      class ControlList < OpenXml::Properties::ContainerProperty
+        namespace :p
+        tag :controls
+        child_class :control
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/custom_show.rb

@@ -0,0 +1,18 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class CustomShow < OpenXml::Properties::ComplexProperty
+        include OpenXml::ContainsProperties
+        namespace :p
+        tag :custShow
+
+        attribute :id, expects: :positive_integer, required: true
+        attribute :show_name, displays_as: :name, expects: :string, required: true
+
+        property :slide_list, required: true
+        property :extension_list
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/custom_show_list.rb

@@ -0,0 +1,14 @@
+require "openxml/pptx/properties/custom_show"
+
+module OpenXml
+  module Pptx
+    module Properties
+      class CustomShowList < OpenXml::Properties::ContainerProperty
+        namespace :p
+        tag :custShowLst
+        child_class :custom_show
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/customer_data.rb

@@ -0,0 +1,13 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class CustomerData < OpenXml::Properties::ComplexProperty
+        namespace :p
+        tag :custData
+
+        attribute :rid, displays_as: :id, namespace: :r, expects: :string, required: true
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/customer_data_container.rb

@@ -0,0 +1,12 @@
+require "openxml/pptx/properties/customer_data"
+
+module OpenXml
+  module Pptx
+    module Properties
+      class CustomerDataContainer < TransparentContainerProperty
+        child_class :customer_data
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/customer_data_list.rb

@@ -0,0 +1,14 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class CustomerDataList < SimplePropertyContainerProperty
+        namespace :p
+        tag :custDataLst
+
+        property :data, as: :customer_data_container
+        property :tags, as: :data_tags
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/data_tags.rb

@@ -0,0 +1,13 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class DataTags < OpenXml::Properties::ComplexProperty
+        namespace :p
+        tag :tags
+
+        attribute :rid, displays_as: :id, namespace: :r, expects: :string, required: true
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/default_text_style.rb

@@ -0,0 +1,24 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class DefaultTextStyle < SimplePropertyContainerProperty
+        namespace :p
+        tag :defaultTextStyle
+
+        property :default_paragraph_properties, klass: OpenXml::DrawingML::Properties::DefaultParagraphProperties
+        property :level1_paragraph_properties, klass: OpenXml::DrawingML::Properties::Level1ParagraphProperties
+        property :level2_paragraph_properties, klass: OpenXml::DrawingML::Properties::Level2ParagraphProperties
+        property :level3_paragraph_properties, klass: OpenXml::DrawingML::Properties::Level3ParagraphProperties
+        property :level4_paragraph_properties, klass: OpenXml::DrawingML::Properties::Level4ParagraphProperties
+        property :level5_paragraph_properties, klass: OpenXml::DrawingML::Properties::Level5ParagraphProperties
+        property :level6_paragraph_properties, klass: OpenXml::DrawingML::Properties::Level6ParagraphProperties
+        property :level7_paragraph_properties, klass: OpenXml::DrawingML::Properties::Level7ParagraphProperties
+        property :level8_paragraph_properties, klass: OpenXml::DrawingML::Properties::Level8ParagraphProperties
+        property :level9_paragraph_properties, klass: OpenXml::DrawingML::Properties::Level9ParagraphProperties
+
+        property :extension_list
+
+      end
+    end
+  end
+end

data/lib/openxml/pptx/properties/embedded_font.rb

@@ -0,0 +1,18 @@
+module OpenXml
+  module Pptx
+    module Properties
+      class EmbeddedFont < SimplePropertyContainerProperty
+        namespace :p
+        tag :embeddedFont
+
+        value_property :font, required: true, default_value: "Calibri"
+
+        property :regular, as: :font_reference_regular
+        property :bold, as: :font_reference_bold
+        property :italic, as: :font_reference_italic
+        property :bold_italic, as: :font_reference_italic
+
+      end
+    end
+  end
+end