module Modder

# File lib/modname/modder.rb, line 73
def confirm?
  print "Are these changes ok? [yN] "
  ($stdin.gets.chomp!).downcase[0] == "y"
end

# File lib/modname/modder.rb, line 99
def execute(transfer, force=false)
  transfer.each { |o, n| Modder.rename o, n, force }
end

# File lib/modname/modder.rb, line 79
def files(recurse)
  if recurse
    Dir['**/*'].select { |f| File.file?(f) }
  else
    Dir.entries(Dir.pwd).select { |f| File.file? f }
  end
end

# File lib/modname/modder.rb, line 105
def finish(transfer, force=false)

  # print changes, return if none
  Modder.status transfer
  return if transfer.empty?

  if force || Modder.confirm?
    Modder.execute transfer, force
    puts "Modifications complete."
  else
    puts "No modifications done."
  end
end

# File lib/modname/modder.rb, line 64
def parse(args)
  match = args.shift
  trans = args.shift
  match = "" if match.nil?
  trans = "" if trans.nil?
  return match, trans
end

# File lib/modname/modder.rb, line 120
def rename(o, n, force)
  begin
    exist = "#{'Error:'.red} target file |#{n.green}| already exists"

    # only overwrite when forced
    if (!force) && File.exist?(n)
      raise(exist)
    else
      File.rename(o, n)
    end

  rescue => e
    puts "#{'Error:'.red} could not move |#{o.red}| to |#{n.green}|"
    puts e.message
  end
end

# File lib/modname/modder.rb, line 89
def status(transfer)
  if transfer.empty?
    puts "No matches found.".yellow
  else
    puts "Planned file actions:".green
    transfer.each { |o, n| puts "\t#{o} -> #{n.green}" }
  end
end

# File lib/modname/modder.rb, line 139
def undercase_ext_get(ext, recurse)
  transfer = Hash.new
  allexts = ext.empty?
  Modder.files(recurse).each do |file|
    ext = file.split(".").last if allexts

    new = file.sub(/#{ext}$/i, ext.downcase)
    next if new == file || ext == file # no changes or extension

    transfer[file] = new
  end

  transfer
end

# File lib/modname/modder.rb, line 158
def undercase_ext_set(ext, transfer, force)
  puts "Lowering extension: ".green + (ext.empty?? "*" : ext)

  Modder.status transfer
  return if transfer.empty?

  # confirm current changes
  if force || Modder.confirm?
    final = {}
    temp = {}

    # create hash temp map
    transfer.each do |k, v|
      tempfile = (v.hash * v.object_id).abs.to_s
      final[tempfile] = v
      temp[k] = tempfile
    end

    Modder.execute temp
    Modder.execute final
    puts "Modifications complete."
  else
    puts "No modifications done."
  end
end

# File lib/modname/modder.rb, line 30
def exts(args = [])
  match, trans = Modder.parse args

  if match.empty? && trans.empty? # do all
    undercase_ext

  elsif trans.empty? # undercase one ext
    undercase_ext match

  else # move match extension to targeted
    Modder.files(@options[:recurse]).each do |file|
      new = file.sub(/#{match}$/, trans)

      next if new == file # no changes

      @transfer[file] = new
    end

    Modder.finish @transfer, @options[:force]
  end
end

# File lib/modname/modder.rb, line 14
def regex(args = [])
  match, trans = Modder.parse args

  Modder.files(@options[:recurse]).each do |file|
    new = file.sub Regexp.new(match), trans

    next if (new == file || new == "") # no changes

    @transfer[file] = new
  end

  Modder.finish @transfer, @options[:force]
end

# File lib/modname/modder.rb, line 53
def undercase_ext(ext = "")
  transfer = Modder.undercase_ext_get ext, @options[:recurse]
  Modder.undercase_ext_set ext, transfer, @options[:force]
end