module VER
  module Methods
    module Search
      SEARCH_HIGHLIGHT = {
        foreground: '#000',
        background: '#ff0',
      }

      def status_search_next
        status_search_common('/'){ search_next }
      end

      def status_search_prev
        status_search_common('?'){ search_prev }
      end

      def status_search_common(question)
        status.bind('<<Modified>>') do
          search_incremental(status.value)
        end

        status_ask question do |term|
          status.bind('<<Modified>>'){ }
          search_incremental(term, force = true)
          search_prev
          yield
        end
      end

      def search_incremental(term, force = false)
        return if !term || term.empty?
        return if !force && term.size <= options.search_incremental_min

        begin
          needle = Regexp.new(term)
        rescue RegexpError, SyntaxError
          needle = Regexp.escape(term)
        end

        tag_all_matching(:search, needle, SEARCH_HIGHLIGHT)
        from, to = tag_nextrange('search', '1.0', 'end')
        see(from) if from
      end

      def search_first
        from, to = tag_nextrange('search', '1.0', 'end')
        mark_set(:insert, from) if from
      end

      def search_last
        from, to = tag_prevrange('search', 'end', '1.0')
        mark_set(:insert, from) if from
      end

      def search_next(count = 1)
        count.times do
          from, to = tag_nextrange('search', 'insert + 1 chars', 'end')
          mark_set(:insert, from) if from
        end
      end

      def search_prev(count = 1)
        count.times do
          from, to = tag_prevrange('search', 'insert - 1 chars', '1.0')
          mark_set(:insert, from) if from
        end
      end

      def search_next_word_under_cursor
        word = get('insert wordstart', 'insert wordend')
        return if word.squeeze == ' ' # we don't want to match space
        tag_all_matching(:search, word, SEARCH_HIGHLIGHT)
        search_next
      end

      def search_prev_word_under_cursor
        word = get('insert wordstart', 'insert wordend')
        return if word.squeeze == ' ' # we don't want to match space
        tag_all_matching(:search, word, SEARCH_HIGHLIGHT)
        search_prev
      end

      def search_char_right
        status_ask 'Search char right: ', take: 1 do |char|
          from, to = 'insert', 'insert lineend'
          regexp = Regexp.new(Regexp.escape(char))

          search_all regexp, from, to do |match, pos, mark|
            mark_set :insert, pos
            break
          end
        end
      end

      def search_char_left
        status_ask 'Search char left: ', take: 1 do |char|
          from, to = 'insert', 'insert linestart'
          regexp = Regexp.new(Regexp.escape(char))

          rsearch_all regexp, from, to do |match, pos, mark|
            mark_set :insert, pos
            break
          end
        end
      end

      def search_clear
        tag_remove('search', '1.0', 'end')
      end
    end
  end
end