# frozen_string_literal: true

module Bolognese
  module DataciteUtils
    def datacite_xml
      @datacite_xml ||= Nokogiri::XML::Builder.new(:encoding => 'UTF-8') do |xml|
        xml.resource(root_attributes) do
          insert_work(xml)
        end
      end.to_xml
    end

    def datacite_errors(xml: nil, schema_version: nil)
      schema_version = schema_version.to_s.start_with?("http://datacite.org/schema/kernel") ? schema_version : "http://datacite.org/schema/kernel-4"
      kernel = schema_version.to_s.split("/").last
      filepath = File.expand_path("../../../resources/#{kernel}/metadata.xsd", __FILE__)
      schema = Nokogiri::XML::Schema(open(filepath))

      schema.validate(Nokogiri::XML(xml, nil, 'UTF-8')).map { |error| error.to_s }.unwrap
    rescue Nokogiri::XML::SyntaxError => e
      e.message
    end

    def insert_work(xml)
      insert_identifier(xml)
      insert_creators(xml)
      insert_titles(xml)
      insert_publisher(xml)
      insert_publication_year(xml)
      insert_resource_type(xml)
      insert_alternate_identifiers(xml)
      insert_subjects(xml)
      insert_contributors(xml)
      insert_funding_references(xml)
      insert_dates(xml)
      insert_related_identifiers(xml)
      insert_version(xml)
      insert_rights_list(xml)
      insert_descriptions(xml)
    end

    def insert_identifier(xml)
      xml.identifier(doi, 'identifierType' => "DOI")
    end

    def insert_creators(xml)
      xml.creators do
        Array.wrap(creator).each do |au|
          xml.creator do
            insert_person(xml, au, "creator")
          end
        end
      end
    end

    def insert_contributors(xml)
      return xml unless editor.present?

      xml.contributors do
        Array.wrap(editor).each do |contributor|
          xml.contributor("contributorType" => "Editor") do
            insert_person(xml, contributor, "contributor")
          end
        end
      end
    end

    def insert_person(xml, person, type)
      person_name = person["familyName"].present? ? [person["familyName"], person["givenName"]].compact.join(", ") : person["name"]

      xml.send(type + "Name", person_name)
      xml.givenName(person["givenName"]) if person["givenName"].present?
      xml.familyName(person["familyName"]) if person["familyName"].present?
      xml.nameIdentifier(person["id"], 'schemeURI' => 'http://orcid.org/', 'nameIdentifierScheme' => 'ORCID') if person["id"].present?
    end

    def insert_titles(xml)
      xml.titles do
        Array.wrap(title).each do |tit|
          if tit.is_a?(Hash)
            t = tit
          else
            t = {}
            t["text"] = tit
          end

          attributes = { 'lang' => t["lang"], 'titleType' => t["title_type"] }.compact
          xml.title(t["text"], attributes)
        end
      end
    end

    def insert_publisher(xml)
      xml.publisher(publisher || periodical && periodical["title"])
    end

    def insert_publication_year(xml)
      xml.publicationYear(publication_year)
    end

    def res_type
      { "resource_type_general" => types["resource_type_general"] || Metadata::SO_TO_DC_TRANSLATIONS[types["type"]] || "Other",
        "__content__" => types["resource_type"] || types["type"] }
    end

    def insert_resource_type(xml)
      return xml unless types["type"].present?

      xml.resourceType(res_type["__content__"],
        'resourceTypeGeneral' => res_type["resource_type_general"])
    end

    def insert_alternate_identifiers(xml)
      return xml unless alternate_identifiers.present?

      xml.alternateIdentifiers do
        Array.wrap(alternate_identifiers).each do |alternate_identifier|
          xml.alternateIdentifier(alternate_identifier["name"], 'alternateIdentifierType' => alternate_identifier["type"])
        end
      end
    end

    def insert_dates(xml)
      return xml unless Array.wrap(dates).present?

      xml.dates do
        Array.wrap(dates).each do |date|
          xml.date(date["date"], 'dateType' => date["date_type"] || "Issued")
        end
      end
    end

    def insert_funding_references(xml)
      return xml unless Array.wrap(funding_references).present?

      xml.fundingReferences do
        Array.wrap(funding_references).each do |funding_reference|
          xml.fundingReference do
            insert_funding_reference(xml, funding_reference)
          end
        end
      end
    end

    def insert_funding_reference(xml, funding_reference)
      xml.funderName(funding_reference["funder_name"]) if funding_reference["funder_name"].present?
      xml.funderIdentifier(funding_reference["funder_identifier"], "funderIdentifierType" => "Crossref Funder ID") if funding_reference["funder_identifier"].present?
    end

    def insert_subjects(xml)
      return xml unless keywords.present?

      xml.subjects do
        keywords.each do |subject|
          if subject.is_a?(String) then
            # If we've been read from somewhere that it was just a string output that
            xml.subject(subject)
          else
            # Otherwise we'll assume a hash and therefore find/add attributes as appropriate
            subject_node = xml.subject(subject['text'])
            if subject["subject_scheme"].present? then
              subject_node['subjectScheme'] = subject["subject_scheme"]
            end

            if subject["scheme_uri"].present? then
              subject_node['schemeURI'] = subject["scheme_uri"]
            end
          end
        end
      end
    end

    def insert_version(xml)
      return xml unless version.present?

      xml.version(version)
    end

    def insert_related_identifiers(xml)
      return xml unless related_identifiers.present?

      xml.relatedIdentifiers do
        related_identifiers.each do |related_identifier|
          attributes = {
            'relatedIdentifierType' => related_identifier["related_identifier_type"],
            'relationType' => related_identifier["relation_type"],
            'resourceTypeGeneral' => related_identifier["resource_type_general"] }.compact
          xml.relatedIdentifier(related_identifier["id"], attributes)
        end
      end
    end

    def insert_rights_list(xml)
      return xml unless rights.present?

      xml.rightsList do
        Array.wrap(rights).each do |lic|
          if lic.is_a?(Hash)
            l = lic
          else
            l = {}
            l["name"] = lic
            l["id"] = normalize_id(lic)
          end

          attributes = { 'rightsURI' => l["id"] }.compact

          xml.rights(l["name"], attributes)
        end
      end
    end

    def insert_descriptions(xml)
      return xml unless description.present? || periodical && periodical["title"].present?

      xml.descriptions do
        if periodical && periodical["title"].present?
          xml.description(periodical["title"], 'descriptionType' => "SeriesInformation")
        end

        Array.wrap(description).each do |des|
          if des.is_a?(Hash)
            d = des
          else
            d = {}
            d["text"] = des
            d["type"] = "Abstract"
          end

          attributes = { 'lang' => d["lang"], 'descriptionType' => d["type"] || "Abstract" }.compact

          xml.description(d["text"], attributes)
        end
      end
    end

    def root_attributes
      { :'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance',
        :'xsi:schemaLocation' => 'http://datacite.org/schema/kernel-4 http://schema.datacite.org/meta/kernel-4/metadata.xsd',
        :'xmlns' => 'http://datacite.org/schema/kernel-4' }
    end
  end
end