require_relative "inline_simple"

module IsoDoc
  module Function
    module Inline
      def link_parse(node, out)
        url = node["target"]
        node["update-type"] == "true" and url = suffix_url(url)
        out.a **attr_code(href: url, title: node["alt"]) do |l|
          if node.text.empty?
            l << node["target"].sub(/^mailto:/, "")
          else node.children.each { |n| parse(n, l) }
          end
        end
      end

      def location_parse(node, out); end

      def span_parse(node, out)
        if node["style"] || node["class"]
          out.span **attr_code(style: node["style"],
                               class: node["class"]) do |s|
            node.children.each { |n| parse(n, s) }
          end
        else node.children.each { |n| parse(n, out) }
        end
      end

      def callout_parse(node, out)
        out << " &lt;#{node.text}&gt;"
      end

      def no_locality_parse(node, out)
        node.children.each do |n|
          parse(n, out) unless %w{locality localityStack}.include? n.name
        end
      end

      def xref_parse(node, out)
        target = if /#/.match?(node["target"])
                   node["target"].sub(/#/, ".html#")
                 else
                   "##{node['target']}"
                 end
        out.a(href: target) { |l| no_locality_parse(node, l) }
      end

      def suffix_url(url)
        return url if url.nil? || %r{^https?://|^#}.match?(url)
        return url unless File.extname(url).empty?

        url.sub(/#{File.extname(url)}$/, ".html")
      end

      def eref_target(node)
        url = suffix_url(eref_url(node["bibitemid"]))
        anchor = node&.at(ns(".//locality[@type = 'anchor']"))
        return url if url.nil? || /^#/.match?(url) || !anchor

        "#{url}##{anchor.text.strip}"
      end

      def eref_url(id)
        @bibitems.nil? and return nil

        b = @bibitems[id]
        b.nil? and return nil

        url = b.at(ns("./uri[@type = 'citation'][@language = '#{@lang}']")) and
          return url.text
        url = b.at(ns("./uri[@type = 'citation']")) and return url.text
        b["hidden"] == "true" and return b.at(ns("./uri"))&.text
        "##{id}"
      end

      def eref_parse(node, out)
        if href = eref_target(node)
          if node["type"] == "footnote"
            out.sup do |s|
              s.a(href: href) { |l| no_locality_parse(node, l) }
            end
          else
            out.a(href: href) { |l| no_locality_parse(node, l) }
          end
        else no_locality_parse(node, out)
        end
      end

      def origin_parse(node, out)
        if t = node.at(ns("./termref"))
          termrefelem_parse(t, out)
        else
          eref_parse(node, out)
        end
      end

      def termrefelem_parse(node, out)
        if node.text.strip.empty?
          out << "Termbase #{node['base']}, term ID #{node['target']}"
        else
          node.children.each { |n| parse(n, out) }
        end
      end

      def stem_parse(node, out)
        ooml = case node["type"]
               when "AsciiMath" then asciimath_parse(node)
               when "MathML" then mathml_parse(node)
               when "LaTeX" then latexmath_parse(node)
               else HTMLEntities.new.encode(node.text)
               end
        out.span class: "stem" do |span|
          span.parent.add_child ooml
        end
      end

      MATHML = { "m" => "http://www.w3.org/1998/Math/MathML" }.freeze

      def mathml_parse(node)
        node.at("./m:math", MATHML)&.to_xml
      end

      def asciimath_parse(node)
        a = node.at(ns("./asciimath"))&.text || node.text

        "#{@openmathdelim}#{HTMLEntities.new.encode(a)}" \
          "#{@closemathdelim}"
      end

      def latexmath_parse(node)
        a = node.at(ns("./latexmath"))&.text || node.text
        HTMLEntities.new.encode(a)
      end

      def image_title_parse(out, caption)
        unless caption.nil?
          out.p class: "FigureTitle", style: "text-align:center;" do |p|
            p.b { |b| b << caption.to_s }
          end
        end
      end

      def image_parse(node, out, caption)
        attrs = { src: node["src"],
                  height: node["height"] || "auto",
                  width: node["width"] || "auto",
                  title: node["title"],
                  alt: node["alt"] }
        out.img **attr_code(attrs)
        image_title_parse(out, caption)
      end

      def smallcap_parse(node, xml)
        xml.span style: "font-variant:small-caps;" do |s|
          node.children.each { |n| parse(n, s) }
        end
      end

      def text_parse(node, out)
        return if node.nil? || node.text.nil?

        text = node.to_s
        @sourcecode == "pre" and
          text = text.gsub("\n", "<br/>").gsub("<br/> ", "<br/>&#xa0;")
        @sourcecode and
          text = text.gsub(/ (?= )/, "&#xa0;")
        out << text
      end

      def add_parse(node, out)
        out.span class: "addition" do |e|
          node.children.each { |n| parse(n, e) }
        end
      end

      def del_parse(node, out)
        out.span class: "deletion" do |e|
          node.children.each { |n| parse(n, e) }
        end
      end

      def error_parse(node, out)
        text = node.to_xml.gsub(/</, "&lt;").gsub(/>/, "&gt;")
        out.para do |p|
          p.b(role: "strong") { |e| e << text }
        end
      end
    end
  end
end