require 'fileutils'
require 'pathname'
require 'ostruct'

module Natour
  module Asciinurse
    def save_adoc(filename, overwrite: false, author: nil)
      dir = Pathname(filename).dirname
      FileUtils.mkdir_p(dir)
      mode = File::WRONLY | File::CREAT | File::TRUNC
      mode |= File::EXCL unless overwrite
      File.open(filename, mode) do |file|
        file.write(to_adoc(
          doc_root: Pathname(path).realpath
                                  .relative_path_from(dir.realpath)
                                  .to_s.force_encoding('utf-8'),
          author: author
        ))
      end
    end

    def to_adoc(doc_root: '.', author: nil)
      distance = ->(gps_track) { "#{gps_track.distance / 1000} km" if gps_track&.distance }
      ascent = ->(gps_track) { "#{gps_track.ascent} m" if gps_track&.ascent }
      descent = ->(gps_track) { "#{gps_track.descent} m" if gps_track&.descent }

      title_image = images.find(&:landscape?)

      doc = []
      doc << "= #{title}"
      if author
        doc << author
        doc << Date.today.strftime('%d.%m.%Y')
      end
      doc << ':figure-caption!:'
      doc << ':pdf-page-mode: none'
      doc << ':title-page:'
      if title_image
        doc << ":title-image: #{Pathname(doc_root).join(title_image.path)}"
        doc << ':title-logo-image: image::{title-image}[top=0%]'
        doc << ''
        doc << 'ifndef::backend-pdf[]'
        doc << 'image::{title-image}[]'
        doc << 'endif::[]'
      end
      doc << ''
      doc << '<<<'
      doc << ''
      doc << '== Allgemein'
      doc << ''
      doc << '[cols="h,3"]'
      doc << '|==='
      doc << "|Datum      |#{gps_track&.date&.strftime('%d.%m.%Y')}"
      doc << "|Startzeit  |#{gps_track&.start_point&.time&.strftime('%H:%M')}"
      doc << "|Dauer      |#{gps_track&.duration&.strftime('%thh%M')}"
      doc << "|Strecke    |#{distance.call(gps_track)}"
      doc << "|Aufstieg   |#{ascent.call(gps_track)}"
      doc << "|Abstieg    |#{descent.call(gps_track)}"
      doc << "|Ausgangsort|#{starting_point}"
      doc << "|Ankunftsort|#{arrival_point}"
      doc << '|Teilnehmer |'
      doc << '|==='
      doc << ''
      if map_image
        doc << "image::#{Pathname(doc_root).join(map_image.path)}[]"
        doc << ''
      end
      doc << '<<<'
      doc << ''
      doc << '== Beschreibung'
      doc << ''
      doc << ''
      doc << ''
      unless images.empty?
        doc << '<<<'
        doc << ''
        doc << '== Bilder'
        doc << ''
        images.each do |image|
          width = if image.portrait?
                    '40%'
                  else
                    '80%'
                  end
          doc << '.Abbildung {counter:image}'
          doc << "image::#{Pathname(doc_root).join(image.path)}[width=#{width}]"
          doc << ''
        end
      end
      unless species_lists.empty?
        birds_info = OpenStruct.new(
          title: 'Vogelarten',
          headers: %w[Deutscher\ Name Wissenschaftlicher\ Name],
          columns: %i[name_de name]
        )
        plants_info = OpenStruct.new(
          title: 'Pflanzenarten',
          headers: %w[Wissenschaftlicher\ Name Deutscher\ Name],
          columns: %i[name name_de]
        )
        doc << '<<<'
        doc << ''
        doc << '== Artenlisten'
        doc << ''
        species_lists.each.with_index(1) do |species_list, index|
          info = {
            kosmos_vogelfuehrer: birds_info,
            flora_helvetica: plants_info,
            info_flora: plants_info
          }[species_list.type]
          doc << "=== #{info.title}"
          doc << ''
          doc << '[cols="1,5,5",options=header]'
          doc << '|==='
          doc << "|Nr.|#{info.headers.join('|')}"
          species_list.each do |species|
            doc << "|{counter:species_list#{index}}|#{info.columns.map { |method| species.send(method) }.join('|')}"
          end
          doc << '|==='
          doc << ''
        end
      end
      doc.join("\n")
    end
  end
end