class HexaPDF::Composer

def self.create(output, **options, &block)
  new(**options, &block).write(output)
end

def box(name, width: 0, height: 0, style: nil, **box_options, &block)
  draw_box(@document.layout.box(name, width: width, height: height, style: style, **box_options, &block))
end

def create_stamp(width, height) # :yield: canvas
  stamp = @document.add({Type: :XObject, Subtype: :Form, BBox: [0, 0, width, height]})
  yield(stamp.canvas) if block_given?
  stamp
end

def draw_box(box)
  drawn_on_page = true
  while true
    result = @frame.fit(box)
    if result.success?
      @frame.draw(@canvas, result)
      break
    elsif @frame.full?
      new_page
      drawn_on_page = false
    else
      draw_box, box = @frame.split(result)
      if draw_box
        @frame.draw(@canvas, result)
        drawn_on_page = true
      elsif !@frame.find_next_region
        unless drawn_on_page
          raise HexaPDF::Error, "Box doesn't fit on empty page"
        end
        new_page
        drawn_on_page = false
      end
    end
  end
  box
end

def formatted_text(data, width: 0, height: 0, style: nil, box_style: nil, **style_properties)
  draw_box(@document.layout.formatted_text_box(data, width: width, height: height, style: style,
                                               box_style: box_style, **style_properties))
end

def image(file, width: 0, height: 0, style: nil, **style_properties)
  draw_box(@document.layout.image_box(file, width: width, height: height,
                                      style: style, **style_properties))
end

def initialize(skip_page_creation: false, page_size: :A4, page_orientation: :portrait,
               margin: 36) #:yields: composer
  @document = HexaPDF::Document.new
  @page_styles = {}
  @next_page_style = :default
  unless skip_page_creation
    page_style(:default, page_size: page_size, orientation: page_orientation) do |canvas, style|
      style.frame = style.create_frame(canvas.context, margin)
    end
    new_page
  end
  yield(self) if block_given?
end

def method_missing(name, *args, **kwargs, &block)
  if @document.layout.box_creation_method?(name)
    draw_box(@document.layout.send(name, *args, **kwargs, &block))
  else
    super
  end
end

def new_page(style = @next_page_style)
  page_style = @page_styles.fetch(style) do |key|
    raise ArgumentError, "Page style #{key} has not been defined"
  end
  @page = @document.pages.add(page_style.create_page(@document))
  @canvas = @page.canvas
  @frame = page_style.frame
  @next_page_style = page_style.next_style || style
end

def page_style(name, **attributes, &block)
  if attributes.empty? && block.nil?
    @page_styles[name]
  else
    @page_styles[name] = HexaPDF::Layout::PageStyle.new(**attributes, &block)
  end
end

def respond_to_missing?(name, _private) # :nodoc:
  @document.layout.box_creation_method?(name) || super
end

def style(name, base: :base, **properties)
  @document.layout.style(name, base: base, **properties)
end

def text(str, width: 0, height: 0, style: nil, box_style: nil, **style_properties)
  draw_box(@document.layout.text_box(str, width: width, height: height, style: style,
                                     box_style: box_style, **style_properties))
end

def write(output, optimize: true, **options)
  @document.write(output, optimize: optimize, **options)
end

def x
  @frame.x
end

def y
  @frame.y
end