task :clean do
  important_cleans = `git clean -n -d`.split("\n")
  important_cleans.reject! { |file|
    file =~ /~$/ or
    file =~ /#/ or
    file =~ /.beam$/
  }
  if important_cleans.size > 0
    puts "Refusing to clean because:"
    puts important_cleans.join("\n")
  else
    sh "cd .. && git clean -x -d -f"
  end
end