class ContactsTxt

# File lib/contacts_txt.rb, line 14
def initialize(src=nil, fields: %w(role organisation mobile
               sms email dob tags address notes note mobile2 ),
               username: nil, password: nil, debug: false)

  @debug = debug
  @fields  = %w(fullname firstname lastname tel) | fields

  txt, type = if src then
    RXFReader.read(src, username: username, password: password)
  else
    ['', :unknown]
  end

  case type
  when :file
    @path, @filename =  File.dirname(src), File.basename(src)
  when :url
    @path, @filename = '.', File.basename(src)
  when :dfs
    @path, @filename =  File.dirname(src), File.basename(src)
  when :unknown
    @path, @filename = '.', 'contacts.txt'
  end

  @dx = txt.lines.length > 1 ? import_to_dx(txt) : new_dx()

end

# File lib/contacts_txt.rb, line 42
def all()
  @dx.all
end

# File lib/contacts_txt.rb, line 46
def dx()
  @dx
end

# File lib/contacts_txt.rb, line 116
def email_list()
  @dx.filter {|x| x.email.length > 0}
end

# File lib/contacts_txt.rb, line 50
def find_by_id(id)

  @dx.find_by_id id

end

# File lib/contacts_txt.rb, line 56
def find_by_mobile(raw_number, countrycode='44')

  number = Regexp.new raw_number.sub(/^(?:0|#{countrycode})/,'').gsub(/[ -]*/,'')

  @dx.all.find {|x| x.mobile.gsub(/[ -]*/,'') =~ number }

end

# File lib/contacts_txt.rb, line 64
def find_by_name(s)

  # Appending a hashtag to the name can help with finding the specific record
  # e.g. 'Peter#plumber' or 'Peter #plumber'

  raw_name, tag = s.split('#',2).map(&:strip)

  name = Regexp.new "\b#{raw_name}\b|#{raw_name}",  Regexp::IGNORECASE
  puts 'name: ' + name.inspect if @debug

  a = @dx.all.select do |x|
    x.fullname =~ name or x.firstname =~ name or x.lastname =~ name
  end

  if tag then
    a.find {|x| x.tags.split.map(&:downcase).include? tag.downcase }
  else
    a
  end

end

# File lib/contacts_txt.rb, line 86
def find_by_sms(raw_number, countrycode='44')

  number = Regexp.new raw_number\
      .sub(/^(?:0|#{countrycode})/,'').gsub(/[ -]*/,'')

  @dx.all.find {|x| x.sms.gsub(/[ -]*/,'') =~ number \
                or x.mobile.gsub(/[ -]*/,'') =~ number }

end

# File lib/contacts_txt.rb, line 98
def find_by_telno(raw_number)

  number = Regexp.new raw_number.gsub(/[ -]*/,'')

  @dx.all.find do |x|

    numbers = %i(tel mobile mobile2).map do |y|
      x.method(y).call.gsub(/[ -]*/,'') if x.respond_to? y
    end

    puts 'numbers: ' + numbers.inspect if @debug
    numbers.grep(number).any?
  end

end

# File lib/contacts_txt.rb, line 120
def list_names()

  @dx.all.inject([]) do |r, x|
    x.fullname.length >= 1 ? r << x.fullname : r
  end

end

# File lib/contacts_txt.rb, line 128
def mobile_list()
  @dx.filter {|x| x.mobile.length > 0}
end

# File lib/contacts_txt.rb, line 132
def multi_tel_index()

  a = @dx.all.map do |x|

    tel = %i(tel mobile mobile2).detect do |name|
      !x.method(name).call.empty?
    end
    next unless tel
    "%s %s" % [x.fullname, x.method(tel).call]
  end.compact


  # group by first name
  r = a.group_by {|x| x[0]}

  a2 = a.clone

  # group by last name
  r2 = a.group_by {|x| x.split(/ /,2).last[0]}
  c = r2.merge(r)

  c.each do |k, v|

    puts "k: %s v: %s" % [k, v]
    v.concat(r2[k]) if r2[k]

  end

  h = c.sort.each {|k,v| v.uniq!}.to_h

  out = []

  h.each do |k,v|

    out << ' ' + (' ' * 30) + k

    v.each do |x|

      name, phone = x.split(/(?=\d)/,2)
      out << "\n" + (name.length >= 29 ? name[0..26] + '...' : name)
      tel = (' ' + ' ' * (26 - phone.length)) + 't: ' + phone
      out <<  tel + "\n"
      out << ('-' * 30)

    end

  end

  puts out.join("\n")

end

# File lib/contacts_txt.rb, line 184
def save(filename=@filename)

  s = dx_to_s(@dx)
  FileX.write File.join(@path, filename), s
  @dx.save File.join(@path, filename.sub(/\.txt$/,'.xml'))

end

# File lib/contacts_txt.rb, line 192
def to_dx()
  @dx
end

# File lib/contacts_txt.rb, line 202
def dx_to_s(dx)

  rows = dx.all.map do |row|

    h = row.to_h

    fullname = h.delete :fullname
    h.delete :firstname
    h.delete :lastname
    a = h.to_a.reject! {|k,v| v.empty?}

    ([fullname] + a.map {|x| x.join(': ') }).join("\n")
  end

  "<?contacts fields='%s'?>\n\n%s" % [@fields, rows.join("\n\n")]

end

# File lib/contacts_txt.rb, line 220
def import_to_dx(raw_s)

  s = if raw_s =~ /<?contacts / then

    raw_contacts = raw_s.clone
    s2 = raw_contacts.slice!(/<\?contacts [^>]+\?>/)

    attributes = %w(fields delimiter id).inject({}) do |r, keyword|
      found = s2[/(?<=#{keyword}=['"])[^'"]+/]
      found ? r.merge(keyword.to_sym => found) : r
    end

    h = {
      fields: @fields.join(', '),
    }.merge attributes

    @fields = h[:fields].split(/ *, */)

    if h[:root] then
      "\n\n" + h[:root] + "\n" +
        raw_contacts.strip.lines.map {|line| '  ' + line}.join
    else
      raw_contacts
    end

  else

    raw_s.lstrip.lines[2..-1].join.strip

  end

  new_dx().import  "--+\n" + s.split(/\s+(?=^[\w\s\(\)]+$)/)\
    .map {|x| 'fullname: ' + x }.join("\n")

end

# File lib/contacts_txt.rb, line 256
def new_dx()

  Dynarex.new "contacts/contact(#{@fields.join ', '})"

end