under-os-ui 1.4.0

data/lib/under_os/ui/utils/manipulation.rb

@@ -0,0 +1,44 @@
+#
+# The ui-views manipulation functionality
+#
+module UnderOs::UI::Manipulation
+
+  def insert(view, position=:end)
+    if view.is_a?(Array)
+      view.each{|v| insert(v, position)}
+    else
+      if position == :top
+        @_.insertSubview(view._, atIndex: 0)
+      else
+        @_.addSubview(view._)
+      end
+    end
+
+    self
+  end
+
+  def append(*views)
+    views.each{|v| insert(v)}
+    self
+  end
+
+  def prepend(*views)
+    views.each{|v| insert(v, :top) }
+    self
+  end
+
+  def insertTo(view, position=nil)
+    view.insert(self, position)
+    self
+  end
+
+  def remove
+    @_.removeFromSuperview
+    self
+  end
+
+  def clear
+    children.each(&:remove)
+    self
+  end
+end

data/lib/under_os/ui/utils/position.rb

@@ -0,0 +1,21 @@
+class UnderOs::UI::Position < UnderOs::Point
+  def initialize(view)
+    @view = view
+  end
+
+  def x
+    @view.style.left
+  end
+
+  def x=(position)
+    @view.style.left = position
+  end
+
+  def y
+    @view.style.top
+  end
+
+  def y=(position)
+    @view.style.top = position
+  end
+end

data/lib/under_os/ui/utils/size.rb

@@ -0,0 +1,21 @@
+class UnderOs::UI::Size < UnderOs::Point
+  def initialize(view)
+    @view = view
+  end
+
+  def x
+    @view.style.width
+  end
+
+  def x=(size)
+    @view.style.width = size
+  end
+
+  def y
+    @view.style.height
+  end
+
+  def y=(size)
+    @view.style.height = size
+  end
+end

data/lib/under_os/ui/utils/styles.rb

@@ -0,0 +1,89 @@
+#
+# The styles handling API for UIView
+#
+module UnderOs::UI::Styles
+  def style(hash=nil)
+    if hash
+      self.style = hash
+      self
+    else
+      @_style ||= UnderOs::UI::Style.new(_, tagName.downcase.to_sym)
+    end
+  end
+
+  def style=(hash)
+    hash.each{ |key, value| style.__send__("#{key}=", value)}
+  end
+
+  def className
+    classNames.join(' ')
+  end
+
+  def className=(names)
+    self.classNames = names.scan(/([a-z0-9\-_]+)/).map{|e| e[0]}
+  end
+
+  def classNames
+    @_class_names ||= []
+  end
+
+  def classNames=(list)
+    repaint_if_classes_change do
+      @_class_names = list.uniq.map(&:to_s)
+    end
+  end
+
+  def hasClass(name)
+    classNames.include?(name)
+  end
+
+  def addClass(name)
+    repaint_if_classes_change do
+      self.classNames += [name]
+    end
+  end
+
+  def removeClass(name)
+    repaint_if_classes_change do
+      self.classNames -= [name]
+    end
+  end
+
+  def toggleClass(name)
+    if hasClass(name)
+      removeClass name
+    else
+      addClass name
+    end
+  end
+
+  def radioClass(name)
+    parent.children.each do |view|
+      view.removeClass(name) if view != self
+    end
+
+    addClass name
+  end
+
+  def repaint(stylesheet=nil, &block)
+    stylesheet ||= page && page.stylesheet
+
+    if stylesheet
+      styles = stylesheet.styles_for(self)
+      styles = block.call(styles) if block_given?
+      self.style = styles
+      children.each{ |view| view.repaint(stylesheet) }
+    end
+
+    self
+  end
+
+private
+
+  def repaint_if_classes_change
+    prev_list = @_class_names.to_s
+    yield if block_given?
+    repaint if prev_list != @_class_names.to_s
+    self
+  end
+end

data/lib/under_os/ui/utils/traversing.rb

@@ -0,0 +1,44 @@
+module UnderOs::UI::Traversing
+  def first(css_rule)
+    find(css_rule)[0]
+  end
+
+  def find(css_rule)
+    [].tap do |result|
+      children.each do |view|
+        result << view if view.matches(css_rule)
+        view.find(css_rule).each do |sub|
+          result << sub
+        end
+      end
+    end
+  end
+
+  def matches(css_rule)
+    UnderOs::Page::StylesMatcher.new(css_rule).match(self)
+  end
+
+  def parent(css_rule=nil)
+    if ! css_rule
+      UnderOs::UI::View.new(@_.superview) if @_.superview
+    else
+      parent = self
+      while parent.is_a?(UnderOs::UI::View) && (parent = parent.parent)
+        return parent if parent.matches(css_rule)
+      end
+    end
+  end
+
+  def children(css_rule=nil)
+    result = @_.subviews.map{|v| UnderOs::UI::View.new(v) if v}.compact
+    css_rule ? result.select{|v| v.matches(css_rule)} : result
+  end
+
+  def siblings(css_rule=nil)
+    parent ? (parent.children(css_rule) - [self]) : []
+  end
+
+  def empty?
+    @_.subviews.empty?
+  end
+end

data/lib/under_os/ui/utils/wrap.rb

@@ -0,0 +1,77 @@
+#
+# The raw -> abstraction wrapping code
+# for UI::Views
+#
+module UnderOs::UI::Wrap
+  INSTANCES_CACHE = {}
+  RAW_WRAPS_MAP   = {}
+  WRAPS_TAGS_MAP  = {}
+
+  def self.included(base)
+    base.instance_eval do
+      attr_accessor :_
+
+      def self.wraps(raw_class, options={})
+        RAW_WRAPS_MAP[self] = raw_class
+        tag(options[:tag]) if options[:tag]
+      end
+
+      def self.tag(name)
+        WRAPS_TAGS_MAP[name.to_s] = self
+      end
+
+      def self.new(options={}, *args, &block)
+        return INSTANCES_CACHE[options] if INSTANCES_CACHE[options]
+
+        if options.is_a?(UIView)
+          klass = find_wrap_for(options.class)
+          view  = options; options = args.shift || {}
+        else
+          klass = self
+          view  = find_raw_class_for(self).alloc
+          if view.class == UICollectionView
+            view.initWithFrame([[0, 0], [0, 0]], collectionViewLayout: UICollectionViewFlowLayout.alloc.init)
+          else
+            view.initWithFrame([[0, 0], [0, 0]])
+          end
+        end
+
+        return nil if ! klass
+
+        klass.alloc.tap do |inst|
+          INSTANCES_CACHE[inst._ = view] = inst
+          inst.__send__ :initialize, options, *args, &block
+        end
+      end
+
+      def self.rewrap(view, *args, &block)
+        view = view._ if view.is_a?(UnderOs::UI::View)
+
+        alloc.tap do |inst|
+          INSTANCES_CACHE[inst._ = view] = inst
+          inst.__send__ :initialize, *args, &block
+        end
+      end
+
+      def self.find_wrap_for(raw_class)
+        RAW_WRAPS_MAP.each do |wrap, raw|
+          return wrap if raw == raw_class
+        end
+
+        return nil
+      end
+
+      def self.find_raw_class_for(wrap)
+        while wrap
+          return RAW_WRAPS_MAP[wrap] if RAW_WRAPS_MAP[wrap]
+          wrap = wrap.superclass
+        end
+      end
+
+      def self.wrap_for(raw_view)
+        INSTANCES_CACHE[raw_view]
+      end
+    end
+  end
+
+end

data/lib/under_os/ui/view.rb

@@ -0,0 +1,31 @@
+class UnderOs::UI::View
+  include UnderOs::UI::Wrap
+  include UnderOs::UI::Events
+  include UnderOs::UI::Styles
+  include UnderOs::UI::Commons
+  include UnderOs::UI::Animation
+  include UnderOs::UI::Dimensions
+  include UnderOs::UI::Traversing
+  include UnderOs::UI::Manipulation
+
+  wraps UIView, tag: 'view'
+
+  def initialize(options={})
+    self.id        = options.delete(:id)    if options.has_key?(:id)
+    self.className = options.delete(:class) if options.has_key?(:class)
+    self.style     = options.delete(:style) if options.has_key?(:style)
+    self.on        = options.delete(:on)    if options.has_key?(:on)
+    self.data      = options.delete(:data)  if options.has_key?(:data)
+  end
+
+  def inspect
+    params = {tag: tagName}
+    params[:id]    = id if id
+    params[:class] = className unless classNames.empty?
+    params = params.map do |key, value|
+      "#{key}=\"#{value}\""
+    end
+
+    "#<#{self.class.name} #{params.join(" ")}>"
+  end
+end

data/spec/assets/app.css

@@ -0,0 +1,13 @@
+page {
+  background: white;
+}
+
+.test {
+  background:    blue;
+  border-radius: 5;
+  color:         yellow;
+}
+
+view.test {
+  border-radius: 10;
+}

data/spec/assets/test.css

@@ -0,0 +1,7 @@
+page {
+  background: yellow;
+}
+
+.test {
+  background: green;
+}

data/spec/assets/test.html

@@ -0,0 +1,3 @@
+<page title="Hello World">
+  <button id="hello">Say Hello</button>
+</page>

data/spec/assets/test_page.rb

@@ -0,0 +1,2 @@
+class TestPage < UnderOs::Page
+end

data/spec/under_os/page/builder_spec.rb

@@ -0,0 +1,128 @@
+describe UnderOs::Page::Builder do
+  def build(html)
+    UnderOs::Page::Builder.views_from(html)
+  end
+
+  describe 'generic build' do
+    before do
+      @result = build("<view id='my-view'></view>")
+    end
+
+    it "should return an array" do
+      @result.class.should == Array
+    end
+
+    it "should build just one item" do
+      @result.size.should == 1
+    end
+
+    it "should build an UnderOs::UI::View instance" do
+      @result[0].class.should == UnderOs::UI::View
+    end
+
+    it "should assign the element properties" do
+      @result[0].id.should == 'my-view'
+    end
+  end
+
+  describe 'types building' do
+    it "should build buttons" do
+      button = build(%Q{<button class="my-button">Some text</button>})[0]
+      button.class.should == UnderOs::UI::Button
+      button.classNames.should == ['my-button']
+      button.text.should == 'Some text'
+    end
+
+    it "should build labels" do
+      label = build(%Q{<label>The Text</label>})[0]
+      label.class.should == UnderOs::UI::Label
+      label.text.should == 'The Text'
+    end
+
+    it "should build images" do
+      image = build(%Q{<img src="test.png">})[0]
+      image.class.should == UnderOs::UI::Image
+      image.src.class.should == UIImage
+    end
+
+    it "should build icons" do
+      icon = build(%Q{<icon type="ok" />})[0]
+      icon.class.should == UnderOs::UI::Icon
+      icon.type.should == 'ok'
+    end
+  end
+
+  describe 'nested build' do
+    before do
+      @result = build(%Q{
+        <page id="level1">
+          <view id="level2">
+            <label>A</label>
+            <button>B</button>
+          </view>
+        </page>
+      })[0]
+    end
+
+    it "should still assign the top level element attributes" do
+      @result.id.should == 'level1'
+    end
+
+    it "should build the second level elements" do
+      level2 = @result.children
+      level2.size.should == 1
+      level2[0].id.should == 'level2'
+    end
+
+    it "should build the third level of the elements" do
+      level3 = @result.children[0].children
+      level3.size.should == 2
+      level3.map(&:class).should == [UnderOs::UI::Label, UnderOs::UI::Button]
+      level3.map(&:text).should == ['A', 'B']
+    end
+  end
+
+  describe 'selectboxes build' do
+    before do
+      @result = build(%Q{
+        <select>
+          <option value="1">One</option>
+          <option value="2">Two</option>
+          <option>Three</option>
+        </select>
+      })[0]
+    end
+
+    it "should allow to build a select box" do
+      @result.class.should == UnderOs::UI::Select
+    end
+
+    it "should recognize options" do
+      @result.options.should == {
+        '1'     => 'One',
+        '2'     => 'Two',
+        'Three' => 'Three'
+      }
+    end
+
+    it "should allow to build multi-select boxes" do
+      select = build(%Q{
+        <select>
+          <optgroup>
+            <option value="1">One</option>
+          </optgroup>
+          <optgroup>
+            <option value="2">Two</option>
+          </optgroup>
+          <optgroup>
+            <option value="3">Three</option>
+          </optgroup>
+        </select>
+      })[0]
+
+      select.optgroups.should == [
+        {'1' => 'One'}, {'2' => 'Two'}, {'3' => 'Three'}
+      ]
+    end
+  end
+end