module Faker::InternetSE

def company_name_single_word
  CompanySE.name.split(' ').first
end

def disposable_email(name = nil)
  "#{user_name(name)}@#{DISPOSABLE_HOSTS.rand}"
end

def domain_name
  "#{domain_word}.#{domain_suffix}"
end

def domain_suffix
  DOMAIN_SUFFIXES.rand
end

def domain_word
  company_name_single_word.tap { |dw|
    dw.gsub!(/\W/, '')
    dw.downcase!
  }
end

def email(name = nil)
  "#{user_name(name)}@#{domain_name}"
end

def free_email(name = nil)
  "#{user_name(name)}@#{HOSTS.rand}"
end

def http_url
  uri("http")
end

def ip_v4_address
  (1..4).map { BYTE.random_pick(1) }.join(".")
end

def join_to_user_name(array_parts)
  join_char = ArrayUtils.rand(%w(. _))
  array_parts.map!(&:downcase)
  array_parts.join(join_char)
end

def login_user_name
  user_name.gsub('.','')
end

def uri(protocol)
  "#{protocol}://#{domain_name}"
end

def user_name(name = nil)
  return user_name_from_name(name) if name
  user_name_random
end

def user_name_from_name(name)
  array_parts = ArrayUtils.shuffle(name.scan(/\w+/))
  join_to_user_name(array_parts)
end

def user_name_random
  variant = rand(2)
  case variant
  when 0 then user_name_variant_short
  when 1 then user_name_variant_long
  else        user_name_variant_short
  end
end

def user_name_variant_long
  array_parts = [ NameSE.first_name, NameSE.last_name ]
  array_parts.map!{ |word| word.gsub(/\W/, '') }
  join_to_user_name(array_parts)
end

def user_name_variant_short
  array_parts = [ NameSE.first_name ]
  array_parts.map!{ |word| word.gsub(/\W/, '') }
  join_to_user_name(array_parts)
end