# -*- coding: utf-8 -*-
class OperaWatir::Keys

  attr_accessor :browser

  def initialize(browser)
    self.browser = browser
  end

  #
  # Holds down supplied arbitrary list of keys indefinitely.
  #
  # @param [Symbol, String] *args  Arbitrary list of symbols (modification)
  #                                keys or strings (regular keys) to be
  #                                pressed down.
  #
  # @example
  #
  #   browser.keys.down 'a'
  #   browser.keys.down 'a', :right
  #
  # @seealso up
  # @seealso send
  #

  def down(*args)
    args.each { |key| driver.keyDown(key) }
  end

  #
  # Depresses supplied arbitrary list of keys.
  #
  # @param [Symbol, String] *args Arbitrary list of symbols
  #   (modification keys) or strings (regular keys) to be depressed.
  #
  # @example
  #   browser.keys.up 'a', :right
  #
  # @seealso release
  #

  def up(*args)
    args.each { |key| driver.keyUp(key) }
  end

  #
  # Releases all pressed down keys.
  #
  # @example
  #   browser.keys.down :control, :shift, 'a'
  #   browser.keys.release
  #

  def release
    driver.releaseKeys
  end

  #
  # Presses an arbitrary list of keys or key combinations.  Provided
  # arguments are performed in sequence.
  #
  # Symbols are parsed as modification keys (such as :control, :shift,
  # :backspace, &c.), arraysd are interpreted as key combinations
  # (e.g. [:control, 'a'] will perform the combination C-a), and
  # strings will be typed as regular words.
  #
  # Note that this method is not OS indepdendent in the sense that
  # even though OS X does not have Control keys, it will not replace
  # your sent keys with Command.
  #
  # Available modification keys:  control, shift, access …
  # TODO
  #
  # @param [Symbol, Array, String] *list Arbitrary list of symbols,
  #   arrays or strings which will form a sequence of keys to be
  #   pressed.
  #
  # @example
  #   browser.keys.send 'a'
  #   browser.keys.send 'foo', 'bar'
  #   browser.keys.send :control
  #   browser.keys.send [:control, 'a']
  #   browser.keys.send [:control, 'a'], :backspace
  #

  def send(*list)  # TODO rename?
    list.each do |item|
      case item
      when Array
        item.each_with_index do |key, index|
          case key
          when :access
            access_key item[index + 1]
          when Symbol
            down key
          else
            key key
          end
        end
        release
      when Symbol
        key item
      else
        type item
      end
    end
  end

private

  def driver
    browser.driver
  end

  def key(key)
    driver.key key
  end

  def type(text)
    driver.type text
  end

  def access_key(key)
    driver.operaAction 'Enter access key mode'
    send key
    driver.operaAction 'Leave access key mode'
  end

end