whirled_peas 0.1.1 → 0.5.0

data/lib/whirled_peas/settings/debugger.rb

@@ -0,0 +1,87 @@
+require_relative 'border'
+require_relative 'container_settings'
+require_relative 'margin'
+require_relative 'padding'
+require_relative 'position'
+
+module WhirledPeas
+  module Settings
+    class Debugger
+      def initialize(settings)
+        @settings = settings
+      end
+
+      def debug(indent='')
+        values = non_default_values(indent + '  ')
+        details = values.length > 0 ? values.join("\n") : "#{indent}  <default>"
+        "#{indent}#{settings.class}\n#{details}"
+      end
+
+      private
+
+      attr_reader :settings
+
+      def non_default_values(indent)
+        settings.instance_variables.map do |ivar, values|
+          value = settings.instance_variable_get(ivar)
+          next if value.nil?
+          printable_value = debug_value(value)
+          "#{indent}#{ivar.to_s.sub(/^@?_?/, '')}: #{printable_value}" unless printable_value.nil?
+        end.compact
+      end
+
+      def debug_value(value)
+        return if value.nil?
+        case value
+        when Position
+          position_value(value)
+        when Margin
+          margin_value(value)
+        when Border
+          border_value(value)
+        when Padding
+          padding_value(value)
+        else
+          value.inspect
+        end
+      end
+
+      def non_defaults(object, default_object, keys)
+        values = keys.map.with_object({}) do |key, hash|
+          unless object.send(key) == default_object.send(key)
+            hash[key] = object.send(key)
+          end
+        end
+        values.keys.map { |k| "#{k}: #{values[k]}"}.join(', ')
+      end
+
+      def position_value(position)
+        values = non_defaults(position, Position.new, %i[left top])
+        return if values == ''
+        "Position(#{values})"
+      end
+
+      def margin_value(margin)
+        values = non_defaults(margin, Margin.new, %i[left top right bottom])
+        return if values == ''
+        "Margin(#{values})"
+      end
+
+      def border_value(border)
+        values = non_defaults(
+          border,
+          Border.new,
+          %i[left? top? right? bottom? inner_horiz? inner_vert? style color]
+        )
+        return if values == ''
+        "Border(#{values})"
+      end
+
+      def padding_value(padding)
+        values = non_defaults(padding, Padding.new, %i[left top right bottom])
+        return if values == ''
+        "Padding(#{values})"
+      end
+    end
+  end
+end

data/lib/whirled_peas/settings/display_flow.rb

@@ -0,0 +1,25 @@
+module WhirledPeas
+  module Settings
+    module DisplayFlow
+      LEFT_TO_RIGHT = :l2r
+      RIGHT_TO_LEFT = :r2l
+      TOP_TO_BOTTOM = :t2b
+      BOTTOM_TO_TOP = :b2t
+
+      def self.validate!(flow)
+        return unless flow
+        if [
+          DisplayFlow::LEFT_TO_RIGHT,
+          DisplayFlow::RIGHT_TO_LEFT,
+          DisplayFlow::TOP_TO_BOTTOM,
+          DisplayFlow::BOTTOM_TO_TOP
+        ].include?(flow)
+          flow
+        else
+          raise ArgumentError, "Unsupported display flow: #{flow}"
+        end
+      end
+    end
+    private_constant :DisplayFlow
+  end
+end

data/lib/whirled_peas/settings/element_settings.rb

@@ -0,0 +1,61 @@
+require 'json'
+
+require_relative 'bg_color'
+require_relative 'text_align'
+require_relative 'text_color'
+
+module WhirledPeas
+  module Settings
+    class ElementSettings
+      def self.inherit(parent)
+        child = self.new
+        child.inherit(parent)
+        child
+      end
+
+      def bg_color
+        @_bg_color
+      end
+
+      def bg_color=(color)
+        @_bg_color = BgColor.validate!(color)
+      end
+
+      def bold?
+        @_bold || false
+      end
+
+      def bold=(val)
+        @_bold = val
+      end
+
+      def color
+        @_color
+      end
+
+      def color=(color)
+        @_color = TextColor.validate!(color)
+      end
+
+      def underline?
+        @_underline || false
+      end
+
+      def underline=(val)
+        @_underline = val
+      end
+
+      def inherit(parent)
+        @_bg_color = parent._bg_color
+        @_bold = parent._bold
+        @_color = parent._color
+        @_underline = parent._underline
+      end
+
+      protected
+
+      attr_accessor :_bg_color, :_bold, :_color, :_underline
+    end
+    private_constant :ElementSettings
+  end
+end

data/lib/whirled_peas/settings/grid_settings.rb

@@ -0,0 +1,11 @@
+require 'whirled_peas/utils/title_font'
+
+require_relative 'container_settings'
+
+module WhirledPeas
+  module Settings
+    class GridSettings < ContainerSettings
+      attr_accessor :num_cols
+    end
+  end
+end

data/lib/whirled_peas/settings/margin.rb

@@ -0,0 +1,8 @@
+require_relative 'spacing'
+
+module WhirledPeas
+  module Settings
+    class Margin < Spacing
+    end
+  end
+end

data/lib/whirled_peas/settings/padding.rb

@@ -0,0 +1,8 @@
+require_relative 'spacing'
+
+module WhirledPeas
+  module Settings
+    class Padding < Spacing
+    end
+  end
+end

data/lib/whirled_peas/settings/position.rb

@@ -0,0 +1,15 @@
+module WhirledPeas
+  module Settings
+    class Position
+      attr_writer :left, :top
+
+      def left
+        @left || 0
+      end
+
+      def top
+        @top || 0
+      end
+    end
+  end
+end

data/lib/whirled_peas/settings/spacing.rb

@@ -0,0 +1,24 @@
+module WhirledPeas
+  module Settings
+    class Spacing
+      attr_writer :left, :top, :right, :bottom
+
+      def left
+        @left || 0
+      end
+
+      def top
+        @top || 0
+      end
+
+      def right
+        @right || 0
+      end
+
+      def bottom
+        @bottom || 0
+      end
+    end
+    private_constant :Spacing
+  end
+end

data/lib/whirled_peas/settings/text_align.rb

@@ -0,0 +1,19 @@
+module WhirledPeas
+  module Settings
+    module TextAlign
+      LEFT = :left
+      CENTER = :center
+      RIGHT = :right
+
+      def self.validate!(align)
+        return unless align
+        if [TextAlign::LEFT, TextAlign::CENTER, TextAlign::RIGHT].include?(align)
+          align
+        else
+          raise ArgumentError, "Unsupported text alignment: #{align}"
+        end
+      end
+    end
+    private_constant :TextAlign
+  end
+end

data/lib/whirled_peas/settings/text_color.rb

@@ -0,0 +1,19 @@
+require 'whirled_peas/utils/ansi'
+
+require_relative 'color'
+
+module WhirledPeas
+  module Settings
+    class TextColor < Color
+      BLACK = new(Utils::Ansi::BLACK)
+      RED = new(Utils::Ansi::RED)
+      GREEN = new(Utils::Ansi::GREEN)
+      YELLOW = new(Utils::Ansi::YELLOW)
+      BLUE = new(Utils::Ansi::BLUE)
+      MAGENTA = new(Utils::Ansi::MAGENTA)
+      CYAN = new(Utils::Ansi::CYAN)
+      WHITE = new(Utils::Ansi::WHITE)
+      GRAY = BLACK.bright
+    end
+  end
+end

data/lib/whirled_peas/settings/text_settings.rb

@@ -0,0 +1,15 @@
+require 'whirled_peas/utils/title_font'
+
+require_relative 'element_settings'
+
+module WhirledPeas
+  module Settings
+    class TextSettings < ElementSettings
+      attr_reader :title_font
+
+      def title_font=(font)
+        @title_font = Utils::TitleFont.validate!(font)
+      end
+    end
+  end
+end

data/lib/whirled_peas/template.rb

@@ -0,0 +1,5 @@
+module WhirledPeas
+  module Template
+  end
+  private_constant :Template
+end

data/lib/whirled_peas/template/box_element.rb

@@ -0,0 +1,8 @@
+require_relative 'container'
+
+module WhirledPeas
+  module Template
+    class BoxElement < Container
+    end
+  end
+end

data/lib/whirled_peas/template/composer.rb

@@ -0,0 +1,68 @@
+require 'whirled_peas/settings/box_settings'
+require 'whirled_peas/settings/grid_settings'
+require 'whirled_peas/settings/text_settings'
+
+require_relative 'box_element'
+require_relative 'grid_element'
+require_relative 'text_element'
+
+module WhirledPeas
+  module Template
+    class Composer
+      def self.next_name
+        @counter ||= 0
+        @counter += 1
+        "Element-#{@counter}"
+      end
+
+      def self.build
+        settings = Settings::BoxSettings.new
+        template = BoxElement.new('TEMPLATE', settings)
+        composer = Template::Composer.new(template)
+        value = yield composer, settings
+        if !template.children? && TextElement.stringable?(value)
+          composer.add_text { value.to_s }
+        end
+        template
+      end
+
+      attr_reader :element
+
+      def initialize(element)
+        @element = element
+      end
+
+      def add_text(name=self.class.next_name, &block)
+        child_settings = Settings::TextSettings.inherit(element.settings)
+        child = TextElement.new(name, child_settings)
+        # TextElements are not composable, so yield nil
+        child.content = yield nil, child_settings
+        element.add_child(child)
+      end
+
+      def add_box(name=self.class.next_name, &block)
+        child_settings = Settings::BoxSettings.inherit(element.settings)
+        child = BoxElement.new(name, child_settings)
+        composer = self.class.new(child)
+        value = yield composer, child.settings
+        element.add_child(child)
+        if !child.children? && TextElement.stringable?(value)
+          composer.add_text("#{name}-Text") { value.to_s }
+        end
+      end
+
+      def add_grid(name=self.class.next_name, &block)
+        child_settings = Settings::GridSettings.inherit(element.settings)
+        child = GridElement.new(name, child_settings)
+        composer = self.class.new(child)
+        values = yield composer, child.settings
+        element.add_child(child)
+        if !child.children? && values.is_a?(Array)
+          values.each.with_index do |value, index|
+            composer.add_text("#{name}-Text-#{index}") { value.to_s }
+          end
+        end
+      end
+    end
+  end
+end

data/lib/whirled_peas/template/container.rb

@@ -0,0 +1,28 @@
+require_relative 'element'
+
+module WhirledPeas
+  module Template
+    class Container < Element
+      def initialize(name, settings)
+        super
+        @children = []
+      end
+
+      def add_child(child)
+        @children << child
+      end
+
+      def children?
+        @children.length > 0
+      end
+
+      def num_children
+        @children.length
+      end
+
+      def each_child(&block)
+        @children.each(&block)
+      end
+    end
+  end
+end

data/lib/whirled_peas/template/debugger.rb

@@ -0,0 +1,34 @@
+require 'whirled_peas/settings/debugger'
+
+require_relative 'container'
+require_relative 'text_element'
+
+module WhirledPeas
+  module Template
+    class Debugger
+      def initialize(element)
+        @element = element
+      end
+
+      def debug(indent='')
+        info = [
+          "#{indent}* #{element.class}(#{element.name})",
+        ]
+        if element.is_a?(TextElement)
+          info << "#{indent + '  '}- Content: #{element.content}"
+        end
+        info << "#{indent + '  '}- Settings"
+        info << Settings::Debugger.new(element.settings).debug(indent + '    ')
+        if element.is_a?(Container)
+          info << "#{indent + '  '}- Children"
+          info += element.each_child.map { |c| Debugger.new(c).debug(indent + '    ') }
+        end
+        info.join("\n")
+      end
+
+      private
+
+      attr_reader :element
+    end
+  end
+end