diamonds 0.1.5

data/lib/diamonds/opal/browser/dom/element/attributes.rb

@@ -0,0 +1,87 @@
+module Browser; module DOM; class Element < Node
+
+class Attributes
+  attr_reader :namespace
+
+  def initialize(element, options)
+    @element   = element
+    @native    = element.to_n
+    @namespace = options[:namespace]
+  end
+
+  if Browser.supports?('Element.className') || Browser.supports?('Element.htmlFor')
+    def [](name, options = {})
+      if name == :class && Browser.supports?('Element.className')
+        name = :className
+      elsif name == :for && Browser.supports?('Element.htmlFor')
+        name = :htmlFor
+      end
+
+      if namespace = options[:namespace] || @namespace
+        `#@native.getAttributeNS(#{namespace.to_s}, #{name.to_s}) || nil`
+      else
+        `#@native.getAttribute(#{name.to_s}) || nil`
+      end
+    end
+
+    def []=(name, value, options = {})
+      if name == :class && Browser.supports?('Element.className')
+        name = :className
+      elsif name == :for && Browser.supports?('Element.htmlFor')
+        name = :htmlFor
+      end
+
+      if namespace = options[:namespace] || @namespace
+        `#@native.setAttributeNS(#{namespace.to_s}, #{name.to_s}, #{value})`
+      else
+        `#@native.setAttribute(#{name.to_s}, #{value.to_s})`
+      end
+    end
+  else
+    def [](name, options = {})
+      if namespace = options[:namespace] || @namespace
+        `#@native.getAttributeNS(#{namespace.to_s}, #{name.to_s}) || nil`
+      else
+        `#@native.getAttribute(#{name.to_s}) || nil`
+      end
+    end
+
+    def []=(name, value, options = {})
+      if namespace = options[:namespace] || @namespace
+        `#@native.setAttributeNS(#{namespace.to_s}, #{name.to_s}, #{value})`
+      else
+        `#@native.setAttribute(#{name.to_s}, #{value.to_s})`
+      end
+    end
+  end
+
+  include Enumerable
+
+  def each(&block)
+    return enum_for :each unless block_given?
+
+    @element.attribute_nodes.each {|attr|
+      yield attr.name, attr.value
+    }
+
+    self
+  end
+
+  alias get []
+
+  def has_key?(name)
+    !!self[name]
+  end
+
+  def merge!(hash)
+    hash.each {|name, value|
+      self[name] = value
+    }
+
+    self
+  end
+
+  alias set []=
+end
+
+end; end; end

data/lib/diamonds/opal/browser/dom/element/data.rb

@@ -0,0 +1,67 @@
+module Browser; module DOM; class Element < Node
+
+class Data
+  attr_reader :element
+
+  def initialize(element)
+    @element = element
+    @native  = element.to_n
+
+    unless defined?(`#@native.$data`)
+      `#@native.$data = {}`
+    end
+  end
+
+  include Enumerable
+
+  def each(&block)
+    return enum_for :each unless block
+
+    %x{
+      var data = #@native.$data;
+
+      for (var key in data) {
+        #{block.call `key`, `data[key]`};
+      }
+    }
+
+    @element.attributes.each {|name, value|
+      if name =~ /^data-(.*)$/
+        block.call $1, value
+      end
+    }
+
+    self
+  end
+
+  def assign(data)
+    data.each {|name, value|
+      `#@native.$data[name] = value`
+    }
+
+    self
+  end
+
+  def [](name)
+    if data = @element["data-#{name}"]
+      return data
+    end
+
+    %x{
+      var value = #@native.$data[name];
+
+      if (value === undefined) {
+        return nil;
+      }
+      else {
+        return value;
+      }
+    }
+  end
+
+  def []=(name, value)
+    `#@native.$data[name] = value`
+  end
+end
+
+end; end; end

data/lib/diamonds/opal/browser/dom/element/image.rb

@@ -0,0 +1,23 @@
+module Browser; module DOM; class Element < Node
+
+class Image < Element
+  def complete?
+    `#@native.complete`
+  end
+
+  def cross?
+    `#@native.crossOrigin`
+  end
+
+  def height
+    `#@native.naturalHeight`
+  end
+
+  def width
+    `#@native.naturalWidth`
+  end
+end
+
+Img = Image
+
+end; end; end

data/lib/diamonds/opal/browser/dom/element/input.rb

@@ -0,0 +1,28 @@
+module Browser; module DOM; class Element < Node
+
+class Input < Element
+  def value
+    %x{
+      if (#@native.value == "") {
+        return nil;
+      }
+      else {
+        return #@native.value;
+      }
+    }
+  end
+
+  def value=(value)
+    `#@native.value = #{value}`
+  end
+
+  def checked?
+    `#@native.checked`
+  end
+
+  def clear
+    `#@native.value = ''`
+  end
+end
+
+end; end; end

data/lib/diamonds/opal/browser/dom/element/offset.rb

@@ -0,0 +1,89 @@
+module Browser; module DOM; class Element < Node
+
+class Offset
+  attr_reader :element
+
+  # @private
+  def initialize(element)
+    @element = element
+    @native  = element.to_n
+  end
+
+  def parent
+    DOM(`#@native.offsetParent || #{@element.document.root.to_n}`)
+  end
+
+  # @!attribute x
+  # @return [Integer]
+  def x
+    get.x
+  end
+
+  def x=(value)
+    set value, nil
+  end
+
+  # @!attribute y
+  # @return [Integer]
+  def y
+    get.y
+  end
+
+  def y=(value)
+    set nil, value
+  end
+
+  if Browser.supports? 'Element.getBoundingClientRect'
+    def get
+      doc  = @element.document
+      root = doc.root.to_n
+      win  = doc.window.to_n
+
+      %x{
+        var box = #@native.getBoundingClientRect(),
+            y   = box.top + (#{win}.pageYOffset || #{root}.scrollTop) - (#{root}.clientTop || 0),
+            x   = box.left + (#{win}.pageXOffset || #{root}.scrollLeft) - (#{root}.clientLeft || 0);
+      }
+
+      Browser::Position.new(`x`, `y`)
+    end
+  else
+    def get
+      doc  = document
+      root = doc.root.to_n
+      win  = doc.window.to_n
+
+      %x{
+        var y = (#{win}.pageYOffset || #{root}.scrollTop) - (#{root}.clientTop || 0),
+            x = (#{win}.pageXOffset || #{root}.scrollLeft) - (#{root}.clientLeft || 0);
+      }
+
+      Browser::Position.new(`x`, `y`)
+    end
+  end
+
+  def set(*value)
+    position = @element.style![:position]
+
+    if position == :static
+      @element.style[:position] = :relative
+    end
+
+    offset = get
+    top    = @element.style![:top].to_u
+    left   = @element.style![:left].to_u
+
+    if Browser::Position === value.first
+      x, y = value.first.x, value.first.y
+    elsif Hash === value.first
+      x, y = value.first[:x], value.first[:y]
+    else
+      x, y = value
+    end
+
+    @element.style[:left] = (x.px - offset.x) + left if x
+    @element.style[:top]  = (y.px - offset.y) + top  if y
+  end
+end
+
+end; end; end

data/lib/diamonds/opal/browser/dom/element/position.rb

@@ -0,0 +1,46 @@
+module Browser; module DOM; class Element < Node
+
+class Position
+  attr_reader :element
+
+  # @private
+  def initialize(element)
+    @element = element
+    @native  = element.to_n
+  end
+
+  # @private
+  def get
+    offset        = @element.offset
+    position      = offset.get
+    parent        = offset.parent
+    parent_offset = Browser::Position.new(0, 0)
+
+    if @element.style[:position] == :fixed
+      unless parent =~ :html
+        parent_offset = parent.offset
+      end
+
+      parent_offset.x += parent.style['border-top-width'].to_i
+      parent_offset.y += parent.style['border-left-width'].to_i
+    end
+
+    Browser::Position.new(
+      position.x - parent_offset.x - @element.style['margin-left'].to_i,
+      position.y - parent_offset.y - @element.style['margin-top'].to_i)
+  end
+
+  # @!attribute [r] x
+  # @return [Integer] the position of the element on the x axis
+  def x
+    get.x
+  end
+
+  # @!attribute [r] y
+  # @return [Integer] the position of the element on the y axis
+  def y
+    get.y
+  end
+end
+
+end; end; end

data/lib/diamonds/opal/browser/dom/element/scroll.rb

@@ -0,0 +1,136 @@
+module Browser; module DOM; class Element < Node
+
+class Scroll
+  attr_reader :element
+
+  # @private
+  def initialize(element)
+    @element = element
+    @native  = element.to_n
+  end
+
+  if Browser.supports? 'Element.scroll'
+    def to(*args)
+      if Hash === args.first
+        x = args.first[:x] || self.x
+        y = args.first[:y] || self.y
+      else
+        x, y = args
+      end
+
+      `#@native.scrollTop  = #{y}`
+      `#@native.scrollLeft = #{x}`
+    end
+
+    def position
+      Browser::Position.new(`#@native.scrollLeft`, `#@native.scrollTop`)
+    end
+  elsif Browser.supports? 'Element.pageOffset'
+    def to(*args)
+      if Hash === args.first
+        x = args.first[:x] || self.x
+        y = args.first[:y] || self.y
+      else
+        x, y = args
+      end
+
+      `#@native.pageYOffset = #{y}`
+      `#@native.pageXOffset = #{x}`
+    end
+
+    def position
+      Position.new(`#@native.pageXOffset`, `#@native.pageYOffset`)
+    end
+  else
+    # @overload to(x, y)
+    #
+    #   Scroll to the given x and y.
+    #
+    #   @param x [Integer] scroll to x on the x axis
+    #   @param y [Integer] scroll to y on the y axis
+    #
+    # @overload to(hash)
+    #
+    #   Scroll to the given x and y.
+    #
+    #   @param hash [Hash] the descriptor
+    #
+    #   @option hash [Integer] :x scroll to x on the x axis
+    #   @option hash [Integer] :y scroll to y on the y axis
+    def to(*args)
+      raise NotImplementedError, 'scroll on element unsupported'
+    end
+
+    def position
+      raise NotImplementedError, 'scroll on element unsupported'
+    end
+  end
+
+  # @!attribute [r] x
+  # @return [Integer] the scroll position on the x axis
+  def x
+    position.x
+  end
+
+  # @!attribute [r] y
+  # @return [Integer] the scroll position on the y axis
+  def y
+    position.y
+  end
+
+  # @!attribute [r] height
+  # @return [Integer] the height of the scroll
+  def height
+    `#@native.scrollHeight`
+  end
+
+  # @!attribute [r] width
+  # @return [Integer] the width of the scroll
+  def width
+    `#@native.scrollWidth`
+  end
+
+  # @overload by(x, y)
+  #
+  #   Scroll by the given x and y.
+  #
+  #   @param x [Integer] scroll by x on the x axis
+  #   @param y [Integer] scroll by y on the y axis
+  #
+  # @overload by(hash)
+  #
+  #   Scroll by the given x and y.
+  #
+  #   @param hash [Hash] the descriptor
+  #
+  #   @option hash [Integer] :x scroll by x on the x axis
+  #   @option hash [Integer] :y scroll by y on the y axis
+  def by(*args)
+    if Hash === args.first
+      x = args.first[:x] || 0
+      y = args.first[:y] || 0
+    else
+      x, y = args
+    end
+
+    `#@native.scrollBy(#{x}, #{y})`
+
+    self
+  end
+
+  if Browser.supports? 'Element.scrollIntoViewIfNeeded'
+    def to(align = true)
+      `#@native.scrollIntoViewIfNeeded(align)`
+    end
+  else
+    def to(align = true)
+      raise NotImplementedError
+    end
+  end
+
+  def to!(align = true)
+    `#@native.scrollIntoView(align)`
+  end
+end
+
+end; end; end