require 'thor/actions/empty_directory'

class Thor
  module Actions
    # Injects the given content into a file. Different from gsub_file, this
    # method is reversible.
    #
    # ==== Parameters
    # destination<String>:: Relative path to the destination root
    # data<String>:: Data to add to the file. Can be given as a block.
    # config<Hash>:: give :verbose => false to not log the status and the flag
    #                for injection (:after or :before) or :force => true for
    #                insert two or more times the same content.
    #
    # ==== Examples
    #
    #   insert_into_file "config/environment.rb", "config.gem :thor", :after => "Rails::Initializer.run do |config|\n"
    #
    #   insert_into_file "config/environment.rb", :after => "Rails::Initializer.run do |config|\n" do
    #     gems = ask "Which gems would you like to add?"
    #     gems.split(" ").map{ |gem| "  config.gem :#{gem}" }.join("\n")
    #   end
    #
    def insert_into_file(destination, *args, &block)
      if block_given?
        data, config = block, args.shift
      else
        data, config = args.shift, args.shift
      end
      action InjectIntoFile.new(self, destination, data, config)
    end
    alias_method :inject_into_file, :insert_into_file

    class InjectIntoFile < EmptyDirectory #:nodoc:
      attr_reader :replacement, :flag, :behavior

      def initialize(base, destination, data, config)
        super(base, destination, {:verbose => true}.merge(config))

        @behavior, @flag = if @config.key?(:after)
                             [:after, @config.delete(:after)]
                           else
                             [:before, @config.delete(:before)]
                           end

        @replacement = data.is_a?(Proc) ? data.call : data
        @flag = Regexp.escape(@flag) unless @flag.is_a?(Regexp)
      end

      def invoke!
        say_status :invoke

        content = if @behavior == :after
                    '\0' + replacement
                  else
                    replacement + '\0'
                  end

        replace!(/#{flag}/, content, config[:force])
      end

      def revoke!
        say_status :revoke

        regexp = if @behavior == :after
                   content = '\1\2'
                   /(#{flag})(.*)(#{Regexp.escape(replacement)})/m
                 else
                   content = '\2\3'
                   /(#{Regexp.escape(replacement)})(.*)(#{flag})/m
                 end

        replace!(regexp, content, true)
      end

    protected

      def say_status(behavior)
        status = if behavior == :invoke
                   if flag == /\A/
                     :prepend
                   elsif flag == /\z/
                     :append
                   else
                     :insert
                   end
                 else
                   :subtract
                 end

        super(status, config[:verbose])
      end

      # Adds the content to the file.
      #
      def replace!(regexp, string, force)
        unless base.options[:pretend]
          content = File.binread(destination)
          if force || !content.include?(replacement)
            content.gsub!(regexp, string)
            File.open(destination, 'wb') { |file| file.write(content) }
          end
        end
      end
    end
  end
end