metanorma/asciidoctor-rfc

module Asciidoctor
  module RFC::V2
    module Lists
      # Syntax:
      #   * A
      #   * B
      def ulist(node)
        noko { |xml| wrap_list :ulist_naked, node, xml }
      end

      OLIST_TYPES = Hash.new("numbers").merge(
        arabic:     "numbers",
        # decimal:    "1", # not supported
        loweralpha: "letters",
        # lowergreek: "lower-greek", # not supported
        lowerroman: "format %i.",
        upperalpha: "format %C.",
        upperroman: "format %I.",
      ).freeze

      # Syntax:
      #   [counter=token] (optional)
      #   . A
      #   . B
      def olist(node)
        noko { |xml| wrap_list :olist_naked, node, xml }
      end

      # Syntax:
      #   [hangIndent=n] (optional)
      #   A:: B
      #   C:: D
      def dlist(node)
        noko { |xml| wrap_list :dlist_naked, node, xml }
      end

      private

      def wrap_list(method_name, node, xml)
        if node.parent.context !~ /paragraph|list_item/
          xml.t do |xml_t|
            send method_name, node, xml_t
          end
        else
          send method_name, node, xml
        end
      end

      def ulist_naked(node, xml)
        style = "symbols"
        style = "empty" if node.attr("style") == "empty"
        style = "empty" if node.option?("empty")
        list_attributes = {
          style: style,
          hangIndent: node.attr("hang-indent"),
        }

        xml.list **attr_code(list_attributes) do |xml_list|
          node.items.each do |item|
            t_attributes = {
              anchor: nil,
            }

            xml_list.t **attr_code(t_attributes) do |xml_t|
              xml_t << item.text
              xml_t << para_to_vspace(item.content) if item.blocks?
            end
          end
        end
      end

      def olist_naked(node, xml)
        style = OLIST_TYPES[node.style.to_sym]
        style = "empty" if node.attr("style") == "empty"
        style = "format #{node.attr('format')}" unless node.attr("format").nil?
        list_attributes = {
          hangIndent: node.attr("hang-indent"),
          counter: node.attr("counter"),
          style: style,
        }

        xml.list **attr_code(list_attributes) do |xml_list|
          node.items.each do |item|
            t_attributes = {
              anchor: item.id,
            }

            xml_list.t **attr_code(t_attributes) do |xml_t|
              xml_t << item.text
              xml_t << para_to_vspace(item.content) if item.blocks?
            end
          end
        end
      end

      def dlist_naked(node, xml)
        style = "hanging"
        style = "empty" if node.attr("style") == "empty"
        list_attributes = {
          hangIndent: node.attr("hang-indent"),
          style: style,
        }

        xml.list **attr_code(list_attributes) do |xml_list|
          node.items.each do |terms, dd|
            # all but last term have empty dd
            terms.each_with_index do |term, idx|
              t_attributes = {
                hangText: flatten_rawtext(term.text).join(" "),
              }

              if idx < terms.size - 1
                xml_list.t **attr_code(t_attributes)
              else
                xml_list.t **attr_code(t_attributes) do |xml_t|
                  if !dd.nil? && dd.text?
                    # This vspace element is extraneous to the RFC XML spec,
                    # but is required by IDNITS
                    xml_t.vspace(blankLines: "1") unless $inline_definition_lists
                    xml_t << dd.text
                  end
                  if !dd.nil? && dd.blocks?
                    # v2 does not support multi paragraph list items;
                    # vspace is used to emulate them
                    xml_t << para_to_vspace(dd.content)
                  end
                end
              end
            end
          end
        end
      end
    end
  end
end