whirled_peas 0.2.0 → 0.6.0

data/lib/whirled_peas/settings/box_settings.rb

@@ -0,0 +1,8 @@
+require_relative 'container_settings'
+
+module WhirledPeas
+  module Settings
+    class BoxSettings < ContainerSettings
+    end
+  end
+end

data/lib/whirled_peas/settings/color.rb

@@ -0,0 +1,69 @@
+require 'whirled_peas/utils/ansi'
+
+module WhirledPeas
+  module Settings
+    # An abstract class that encapsulates colors for a specific use case
+    class Color
+      # Validate the `color` argument is either (1) nil, (2) a valid Color constant in
+      # this class or (3) a symbol that maps to valid Color constant. E.g. if there
+      # is a RED constant in an implementing class, then :red or :bright_red are
+      # valid values for `color`
+      #
+      # @param color [Color|Symbol]
+      # @return [Color|Symbol] the value passed in if valid, otherwise an ArgumentError
+      #   is raised.
+      def self.validate!(color)
+        return unless color
+        if color.is_a?(Symbol)
+          error_message = "Unsupported #{self.name.split('::').last}: #{color.inspect}"
+          match = color.to_s.match(/^(bright_)?(\w+)$/)
+          begin
+            color = self.const_get(match[2].upcase)
+            raise ArgumentError, error_message unless color.is_a?(Color)
+            if match[1]
+              raise ArgumentError, error_message if color.bright?
+              color.bright
+            else
+              color
+            end
+          rescue NameError
+            raise ArgumentError, error_message
+          end
+        else
+          color
+        end
+      end
+
+      def initialize(code, bright=false)
+        @code = code
+        @bright = bright
+      end
+
+      def bright?
+        @bright
+      end
+
+      def bright
+        bright? ? self : self.class.new(@code + Utils::Ansi::BRIGHT_OFFSET, true)
+      end
+
+      def hash
+        [@code, @bright].hash
+      end
+
+      def ==(other)
+        other.is_a?(self.class) && self.hash == other.hash
+      end
+      alias_method :eq?, :==
+
+      def to_s
+        @code.to_s
+      end
+
+      def inspect
+        "#{self.class.name.split('::').last}(code=#{@code}, bright=#{@bright})"
+      end
+    end
+    private_constant :Color
+  end
+end

data/lib/whirled_peas/settings/container_settings.rb

@@ -0,0 +1,139 @@
+require_relative 'border'
+require_relative 'display_flow'
+require_relative 'element_settings'
+require_relative 'margin'
+require_relative 'padding'
+require_relative 'position'
+require_relative 'scrollbar'
+
+module WhirledPeas
+  module Settings
+    class ContainerSettings < ElementSettings
+      attr_accessor :width, :height
+
+      def align
+        @_align || TextAlign::LEFT
+      end
+
+      def align_left?
+        align == TextAlign::LEFT
+      end
+
+      def align_center?
+        align == TextAlign::CENTER
+      end
+
+      def align_right?
+        align == TextAlign::RIGHT
+      end
+
+      def align=(align)
+        @_align = TextAlign.validate!(align)
+      end
+
+      def set_border(
+        left: nil, top: nil, right: nil, bottom: nil, inner_horiz: nil, inner_vert: nil, style: nil, color: nil
+      )
+        @_border = Border.new unless @_border
+        @_border.left = left unless left.nil?
+        @_border.top = top unless top.nil?
+        @_border.right = right unless right.nil?
+        @_border.bottom = bottom unless bottom.nil?
+        @_border.inner_horiz = inner_horiz unless inner_horiz.nil?
+        @_border.inner_vert = inner_vert unless inner_vert.nil?
+        @_border.style = style unless style.nil?
+        @_border.color = color unless color.nil?
+      end
+
+      def full_border(style: nil, color: nil)
+        set_border(
+          left: true, top: true, right: true, bottom: true, inner_horiz: true, inner_vert: true, style: style, color: color
+        )
+      end
+
+      def border
+        @_border || Border.new
+      end
+
+      def flow=(flow)
+        @_flow = DisplayFlow.validate!(flow)
+      end
+
+      def flow
+        @_flow || DisplayFlow::LEFT_TO_RIGHT
+      end
+
+      def horizontal_flow?
+        %i[l2r r2l].include?(flow)
+      end
+
+      def vertical_flow?
+        !horizontal_flow?
+      end
+
+      def forward_flow?
+        %i[l2r t2b].include?(flow)
+      end
+
+      def reverse_flow?
+        !forward_flow?
+      end
+
+      def set_margin(left: nil, top: nil, right: nil, bottom: nil)
+        @_margin = Margin.new unless @_margin
+        @_margin.left = left if left
+        @_margin.top = top if top
+        @_margin.right = right if right
+        @_margin.bottom = bottom if bottom
+      end
+
+      def margin
+        @_margin || Margin.new
+      end
+
+      def set_padding(left: nil, top: nil, right: nil, bottom: nil)
+        @_padding = Padding.new unless @_padding
+        @_padding.left = left if left
+        @_padding.top = top if top
+        @_padding.right = right if right
+        @_padding.bottom = bottom if bottom
+      end
+
+      def padding
+        @_padding || Padding.new
+      end
+
+      def set_position(left: nil, top: nil)
+        @_position = Position.new unless @_position
+        @_position.left = left if left
+        @_position.top = top if top
+      end
+
+      def position
+        @_position || Position.new
+      end
+
+      def set_scrollbar(horiz: nil, vert: nil)
+        @_scrollbar = Scrollbar.new unless @_scrollbar
+        @_scrollbar.horiz = horiz unless horiz.nil?
+        @_scrollbar.vert = vert unless vert.nil?
+      end
+
+      def scrollbar
+        @_scrollbar || Scrollbar.new
+      end
+
+      def inherit(parent)
+        super
+        return unless parent.is_a?(ContainerSettings)
+        @_align = parent._align
+        @_flow = parent._flow
+        set_border(color: parent.border.color, style: parent.border.style)
+      end
+
+      protected
+
+      attr_accessor :_align, :_flow
+    end
+  end
+end

data/lib/whirled_peas/settings/debugger.rb

@@ -0,0 +1,96 @@
+require_relative 'border'
+require_relative 'container_settings'
+require_relative 'margin'
+require_relative 'padding'
+require_relative 'position'
+require_relative 'scrollbar'
+
+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)
+        when Scrollbar
+          scrollbar_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
+
+      def scrollbar_value(scrollbar)
+        values = non_defaults(scrollbar, Scrollbar.new, %i[horiz? vert?])
+        return if values == ''
+        "Scrollbar(#{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,15 @@
+require 'whirled_peas/utils/title_font'
+
+require_relative 'container_settings'
+
+module WhirledPeas
+  module Settings
+    class GridSettings < ContainerSettings
+      attr_accessor :num_cols
+
+      def set_scrollbar(*)
+        raise NotImplemented, 'Grids do not currently support scrollbars'
+      end
+    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