wisq/fix-filenames.exs

## fix-filenames.exs
#! /usr/bin/env elixir

defmodule Fixer do
  def parse_args(["-n" | args]), do: {false, args}
  def parse_args(["-f" | args]), do: {true, args}
  def parse_args(args), do: {false, args}

  def fix_all({rename, files}) do
    {:ok, stdout} = File.open("/dev/stdout", [:write])
    Process.register(stdout, :stdout_binary)

    Enum.each(files, &fix_directory(rename, &1))

    File.close(stdout)
  end

  defp fix_directory(rename, path) do
    {:ok, entries} = :file.list_dir_all(path)
    Enum.each(entries, &fix_entry(rename, path, &1))
  end

  defp fix_entry(rename, path, file) when is_list(file) do
    # Since file is a charlist, it's valid unicode.
    file_str = List.to_string(file)
    target = Path.join(path, file_str)
    maybe_fix_directory(rename, target)
  end

  defp fix_entry(rename, path, file) when is_binary(file) do
    # Since file is a binary, it's NOT valid unicode.
    new_file = clean(file)

    source = Path.join(path, file)
    target = Path.join(path, new_file)

    IO.binwrite(:stdout_binary, "<= #{source}\n=> #{target}\n\n")

    if rename do
      File.rename!(source, target)
      maybe_fix_directory(rename, target)
    else
      maybe_fix_directory(rename, source)
    end
  end

  defp maybe_fix_directory(rename, path) do
    case File.lstat(path) do
      {:ok, %File.Stat{type: :directory}} -> fix_directory(rename, path)
      {:ok, %File.Stat{}} -> :noop
    end
  end

  defp clean(""), do: ""
  defp clean(<<head, rest::binary>>) when head <= 127, do: <<head>> <> clean(rest)
  defp clean(<<head, rest::binary>>) when head > 127, do: "?" <> clean(rest)
end

System.argv()
|> Fixer.parse_args()
|> Fixer.fix_all()
	#! /usr/bin/env elixir

	defmodule Fixer do
	def parse_args(["-n" \| args]), do: {false, args}
	def parse_args(["-f" \| args]), do: {true, args}
	def parse_args(args), do: {false, args}

	def fix_all({rename, files}) do
	{:ok, stdout} = File.open("/dev/stdout", [:write])
	Process.register(stdout, :stdout_binary)

	Enum.each(files, &fix_directory(rename, &1))

	File.close(stdout)
	end

	defp fix_directory(rename, path) do
	{:ok, entries} = :file.list_dir_all(path)
	Enum.each(entries, &fix_entry(rename, path, &1))
	end

	defp fix_entry(rename, path, file) when is_list(file) do
	# Since file is a charlist, it's valid unicode.
	file_str = List.to_string(file)
	target = Path.join(path, file_str)
	maybe_fix_directory(rename, target)
	end

	defp fix_entry(rename, path, file) when is_binary(file) do
	# Since file is a binary, it's NOT valid unicode.
	new_file = clean(file)

	source = Path.join(path, file)
	target = Path.join(path, new_file)

	IO.binwrite(:stdout_binary, "<= #{source}\n=> #{target}\n\n")

	if rename do
	File.rename!(source, target)
	maybe_fix_directory(rename, target)
	else
	maybe_fix_directory(rename, source)
	end
	end

	defp maybe_fix_directory(rename, path) do
	case File.lstat(path) do
	{:ok, %File.Stat{type: :directory}} -> fix_directory(rename, path)
	{:ok, %File.Stat{}} -> :noop
	end
	end

	defp clean(""), do: ""
	defp clean(<<head, rest::binary>>) when head <= 127, do: <<head>> <> clean(rest)
	defp clean(<<head, rest::binary>>) when head > 127, do: "?" <> clean(rest)
	end

	System.argv()
	\|> Fixer.parse_args()
	\|> Fixer.fix_all()