module Ruco
  class Screen
    @@styles = {}

    def initialize(options)
      @options = options
      @cache = []
    end

    def self.open(options, &block)
      new(options).open(&block)
    end

    def open(&block)
      Curses.noecho # do not show typed chars
      Curses.nonl # turn off newline translation
      Curses.stdscr.keypad(true) # enable arrow keys
      Curses.raw # give us all other keys
      Curses.stdscr.nodelay = 1 # do not block -> we can use timeouts
      Curses.init_screen
      Curses.start_color if $ruco_colors and Curses.has_colors?
      yield self
    ensure
      Curses.clear # needed to clear the menu/status bar on windows
      Curses.close_screen
    end

    def columns
      Curses.stdscr.maxx
    end

    def lines
      Curses.stdscr.maxy
    end

    def clear_cache
      @cache.clear
    end

    def draw(view, style_map, cursor)
      draw_view(view, style_map)
      Curses.setpos(*cursor)
    end

    def debug_key(key)
      @key_line ||= -1
      @key_line = (@key_line + 1) % lines
      write(@key_line, 0, "#{key.inspect}---")
    end

    private

    def write(line,row,text)
      Curses.setpos(line,row)
      Curses.addstr(text);
    end

    def draw_view(view, style_mask)
      lines = view.naive_split("\n")
      style_mask = style_mask.flatten

      lines.each_with_index do |line, line_number|
        styles = style_mask[line_number]

        # expand line with whitespace to overwrite previous content
        missing = columns - line.size
        raise line if missing < 0
        line += " " * missing

        # display tabs as single-space -> nothing breaks
        line.gsub!("\t",' ')

        if_line_changes line_number, [line, styles] do
          # position at start of line and draw
          Curses.setpos(line_number,0)
          Ruco::StyleMap.styled(line, styles).each do |style, part|
            Curses.attrset self.class.curses_style(style)
            Curses.addstr part
          end

          if @options[:debug_cache]
            write(line_number, 0, (rand(899)+100).to_s)
          end
        end
      end
    end

    def if_line_changes(key, args)
      return if @cache[key] == args # would not change the line -> nothing to do
      @cache[key] = args # store current line
      yield # render the line
    end

    def self.curses_style(style)
      @@styles[style] ||= begin
        if $ruco_colors
          foreground = $ruco_foreground || '#ffffff'
          background = $ruco_background || '#000000'

          foreground, background = if style == :normal
            [foreground, background]
          elsif style == :reverse
            ['#000000', '#ffffff']
          else
            # :red or [:red, :blue]
            f,b = style
            [f || foreground, b || background]
          end

          foreground = html_to_terminal_color(foreground)
          background = html_to_terminal_color(background)
          color_id(foreground, background)
        else # no colors
          if style == :reverse
            Curses::A_REVERSE
          else
            Curses::A_NORMAL
          end
        end
      end
    end

    # create a new color from foreground+background or reuse old
    # and return color-id
    def self.color_id(foreground, background)
      @@color_ids ||= {}
      @@color_ids[[foreground, background]] ||= begin
        # make a new pair with a unique id
        @@max_color_id ||= 0
        id = (@@max_color_id += 1)
        unless defined? RSpec # stops normal text-output, do not use in tests
          Curses::init_pair(id, foreground, background)
        end
        Curses.color_pair(id)
      end
    end

    COLOR_SOURCE_VALUES = 256
    COLOR_TARGET_VALUES = 5
    COLOR_DIVIDE = COLOR_SOURCE_VALUES / COLOR_TARGET_VALUES
    TERM_COLOR_BASE = 16

    def self.html_to_terminal_color(html_color)
      return unless html_color
      r = (html_color[1..2].to_i(16) / COLOR_DIVIDE) * 36
      g = (html_color[3..4].to_i(16) / COLOR_DIVIDE) * 6
      b = (html_color[5..6].to_i(16) / COLOR_DIVIDE) * 1
      TERM_COLOR_BASE + r + g + b
    end
  end
end