asciidoctor-moodle 1.0.0.dev

data/lib/asciidoctor-moodle/converter.rb

@@ -0,0 +1,793 @@
+# frozen_string_literal: true
+require 'asciidoctor' unless defined? ::Asciidoctor::VERSION ##Rajout
+module Asciidoctor
+  ROOT_TAG_NAME = 'quiz'
+  # A built-in {Converter} implementation that generates DocBook 5 output. The output is inspired by the output produced
+  # by the docbook45 backend from AsciiDoc.py, except it has been migrated to the DocBook 5 specification.
+  class Converter::MoodleConverter < Converter::Base
+    register_for 'moodle'
+
+    # default represents variablelist
+    (DLIST_TAGS = {
+      'qanda' => { list: 'qandaset', entry: 'qandaentry', label: 'question', term: 'simpara', item: 'answer' },
+      'glossary' => { list: nil, entry: 'glossentry', term: 'glossterm', item: 'glossdef' },
+    }).default = { list: 'variablelist', entry: 'varlistentry', term: 'term', item: 'listitem' }
+
+    (QUOTE_TAGS = {
+      monospaced: ['<literal>', '</literal>'],
+      emphasis: ['<em>', '</em>', true],
+      strong: ['<strong>','</strong>', true],
+      double: ['<quote role="double">', '</quote>', true],
+      single: ['<quote role="single">', '</quote>', true],
+      mark: ['<emphasis role="marked">', '</emphasis>'],
+      superscript: ['<superscript>', '</superscript>'],
+      subscript: ['<subscript>', '</subscript>'],
+    }).default = ['', '', true]
+
+    MANPAGE_SECTION_TAGS = { 'section' => 'refsection', 'synopsis' => 'refsynopsisdiv' }
+    TABLE_PI_NAMES = %w(dbhtml dbfo dblatex)
+
+    CopyrightRx = /^(#{CC_ANY}+?)(?: ((?:\d{4}-)?\d{4}))?$/
+    ImageMacroRx = /^image::?(\S|\S#{CC_ANY}*?\S)\[(#{CC_ANY}+)?\]$/
+
+    def initialize backend, opts = {}
+      @backend = backend
+      init_backend_traits basebackend: 'docbook', filetype: 'xml', outfilesuffix: '.xml', supports_templates: true
+    end
+
+
+    def convert_document node
+      result = ['<?xml version="1.0" encoding="UTF-8"?> <quiz>']
+
+  
+      result << (node.blocks.map {|block| block.convert }.compact.join LF) if node.blocks?
+      #restore_abstract abstract if abstract
+      unless (docinfo_content = node.docinfo :footer).empty?
+        result << docinfo_content
+      end
+      id, node.id = node.id, nil unless id
+      
+
+     result = result.join LF
+     result << '</quiz>'
+      
+      result
+    end
+
+    def convert_embedded node
+      # NOTE in DocBook 5, the root abstract must be in the info tag and is thus not part of the body
+      if @backend == 'docbook5' && (abstract = find_root_abstract node)
+        abstract = extract_abstract node, abstract
+      end
+      result = node.blocks.map {|block| block.convert }.compact.join LF
+      restore_abstract abstract if abstract
+      result
+    end
+
+    def convert_section node
+      if node.document.doctype == 'manpage'
+        tag_name = MANPAGE_SECTION_TAGS[tag_name = node.sectname] || tag_name
+      else
+        tag_name = node.sectname
+      end
+      title_el = node.special && ((node.option? 'notitle') || (node.option? 'untitled')) ? '' : %(<title>#{node.title}</title>\n)
+      %(<#{tag_name}#{common_attributes node.id, node.role, node.reftext}>
+#{title_el}#{node.content}
+</#{tag_name}>)
+    end
+
+    def convert_admonition node
+      %(<#{tag_name = node.attr 'name'}#{common_attributes node.id, node.role, node.reftext}>
+#{title_tag node}#{enclose_content node}
+</#{tag_name}>)
+    end
+
+    alias convert_audio skip
+
+    def convert_colist node
+      result = []
+      result << %(<calloutlist#{common_attributes node.id, node.role, node.reftext}>)
+      result << %(<title>#{node.title}</title>) if node.title?
+      node.items.each do |item|
+        result << %(<callout arearefs="#{item.attr 'coids'}">)
+        result << %(<para>#{item.text}</para>)
+        result << item.content if item.blocks?
+        result << '</callout>'
+      end
+      result << %(</calloutlist>)
+      result.join LF
+    end
+
+    def convert_dlist node
+      result = []
+      if node.style == 'horizontal'
+        result << %(<#{tag_name = node.title? ? 'table' : 'informaltable'}#{common_attributes node.id, node.role, node.reftext} tabstyle="horizontal" frame="none" colsep="0" rowsep="0">
+#{title_tag node}<tgroup cols="2">
+<colspec colwidth="#{node.attr 'labelwidth', 15}*"/>
+<colspec colwidth="#{node.attr 'itemwidth', 85}*"/>
+<tbody valign="top">)
+        node.items.each do |terms, dd|
+          result << %(<row>
+<entry>)
+          terms.each {|dt| result << %(<simpara>#{dt.text}</simpara>) }
+          result << %(</entry>
+<entry>)
+          if dd
+            result << %(<simpara>#{dd.text}</simpara>) if dd.text?
+            result << dd.content if dd.blocks?
+          end
+          result << %(</entry>
+</row>)
+        end
+        result << %(</tbody>
+</tgroup>
+</#{tag_name}>)
+      else
+        tags = DLIST_TAGS[node.style]
+        list_tag = tags[:list]
+        entry_tag = tags[:entry]
+        label_tag = tags[:label]
+        term_tag = tags[:term]
+        item_tag = tags[:item]
+        if list_tag
+          result << %(<#{list_tag}#{common_attributes node.id, node.role, node.reftext}>)
+          result << %(<title>#{node.title}</title>) if node.title?
+        end
+
+        node.items.each do |terms, dd|
+          result << %(<#{entry_tag}>)
+          result << %(<#{label_tag}>) if label_tag
+          terms.each {|dt| result << %(<#{term_tag}>#{dt.text}</#{term_tag}>) }
+          result << %(</#{label_tag}>) if label_tag
+          result << %(<#{item_tag}>)
+          if dd
+            result << %(<simpara>#{dd.text}</simpara>) if dd.text?
+            result << dd.content if dd.blocks?
+          end
+          result << %(</#{item_tag}>)
+          result << %(</#{entry_tag}>)
+        end
+
+        result << %(</#{list_tag}>) if list_tag
+      end
+
+      result.join LF
+    end
+
+    def convert_example node
+      if node.title?
+        %(<example#{common_attributes node.id, node.role, node.reftext}>
+<title>#{node.title}</title>
+#{enclose_content node}
+</example>)
+      else
+        %(<informalexample#{common_attributes node.id, node.role, node.reftext}>
+#{enclose_content node}
+</informalexample>)
+      end
+    end
+
+    def convert_floating_title node
+      %(<bridgehead#{common_attributes node.id, node.role, node.reftext} renderas="sect#{node.level}">#{node.title}</bridgehead>)
+    end
+
+    def convert_image node
+      align_attribute = (node.attr? 'align') ? %( align="#{node.attr 'align'}") : ''
+
+      mediaobject = %(<mediaobject>
+<imageobject>
+<imagedata fileref="#{node.image_uri node.attr 'target'}"#{image_size_attributes node.attributes}#{align_attribute}/>
+</imageobject>
+<textobject><phrase>#{node.alt}</phrase></textobject>
+</mediaobject>)
+
+      if node.title?
+        %(<figure#{common_attributes node.id, node.role, node.reftext}>
+<title>#{node.title}</title>
+#{mediaobject}
+</figure>)
+      else
+        %(<informalfigure#{common_attributes node.id, node.role, node.reftext}>
+#{mediaobject}
+</informalfigure>)
+      end
+    end
+
+    def convert_listing node
+      informal = !node.title?
+      common_attrs = common_attributes node.id, node.role, node.reftext
+      if node.style == 'source'
+        attrs = node.attributes
+        if node.option? 'linenums'
+          numbering_attrs = (attrs.key? 'start') ? %( linenumbering="numbered" startinglinenumber="#{attrs['start'].to_i}") : ' linenumbering="numbered"'
+        else
+          numbering_attrs = ' linenumbering="unnumbered"'
+        end
+        if attrs.key? 'language'
+          wrapped_content = %(<programlisting#{informal ? common_attrs : ''} language="#{attrs['language']}"#{numbering_attrs}>#{node.content}</programlisting>)
+        else
+          wrapped_content = %(<screen#{informal ? common_attrs : ''}#{numbering_attrs}>#{node.content}</screen>)
+        end
+      else
+        wrapped_content = %(<screen#{informal ? common_attrs : ''}>#{node.content}</screen>)
+      end
+      informal ? wrapped_content : %(<formalpara#{common_attrs}>
+<title>#{node.title}</title>
+<para>
+#{wrapped_content}
+</para>
+</formalpara>)
+    end 
+
+    def convert_literal node
+      if node.title?
+        %(#{node.content}) #J'ai effacé toutes les balises ici pour avoir juste le contenu
+      else
+        %(#{node.content}) #J'ai effacé toutes les balises ici pour avoir juste le contenu
+      end #On rentre ici
+    end
+
+    alias convert_pass content_only
+
+    def convert_stem node
+      if (idx = node.subs.index :specialcharacters)
+        node.subs.delete_at idx
+        equation = node.content
+        idx > 0 ? (node.subs.insert idx, :specialcharacters) : (node.subs.unshift :specialcharacters)
+      else
+        equation = node.content
+      end
+      if node.style == 'asciimath'
+        # NOTE fop requires jeuclid to process mathml markup
+        equation_data = asciimath_available? ? ((::AsciiMath.parse equation).to_mathml 'mml:', 'xmlns:mml' => 'http://www.w3.org/1998/Math/MathML') : %(<mathphrase><![CDATA[#{equation}]]></mathphrase>)
+      else
+        # unhandled math; pass source to alt and required mathphrase element; dblatex will process alt as LaTeX math
+        equation_data = %(<alt><![CDATA[#{equation}]]></alt>
+<mathphrase><![CDATA[#{equation}]]></mathphrase>)
+      end
+      if node.title?
+        %(<equation#{common_attributes node.id, node.role, node.reftext}>
+<title>#{node.title}</title>
+#{equation_data}
+</equation>)
+      else
+        # WARNING dblatex displays the <informalequation> element inline instead of block as documented (except w/ mathml)
+        %(<informalequation#{common_attributes node.id, node.role, node.reftext}>
+#{equation_data}
+</informalequation>)
+      end
+    end
+
+    def convert_olist node
+      puts('#convert_olist')
+
+      result = []
+      num_attribute = node.style ? %( numeration="#{node.style}") : ''
+      start_attribute = (node.attr? 'start') ? %( startingnumber="#{node.attr 'start'}") : ''
+      result << %(<orderedlist#{common_attributes node.id, node.role, node.reftext}#{num_attribute}#{start_attribute}>)
+      result << %(<title>#{node.title}</title>) if node.title?
+      node.items.each do |item|
+        result << %(<listitem#{common_attributes item.id, item.role}>)
+        result << %(<simpara>#{item.text}</simpara>)
+        result << item.content if item.blocks?
+        result << '</listitem>'
+      end
+      result << %(</orderedlist>)
+      result.join LF
+    end
+
+    def convert_open node
+      case node.style
+      when 'abstract'
+        if (parent = node.parent) == node.document && node.document.doctype == 'book'
+          logger.warn 'abstract block cannot be used in a document without a doctitle when doctype is book. Excluding block content.'
+          ''
+        else
+          result = %(<abstract>
+#{title_tag node}#{enclose_content node}
+</abstract>)
+          if @backend == 'docbook5' && !(node.option? 'root') && (parent.context == :open ? parent.style == 'partintro' : parent.context == :section && parent.sectname == 'partintro') && node == parent.blocks[0]
+            result = %(<info>\n#{result}\n</info>)
+          end
+          result
+        end
+      when 'partintro'
+        if node.level == 0 && node.parent.context == :section && node.document.doctype == 'book'
+          %(<partintro#{common_attributes node.id, node.role, node.reftext}>
+        #{title_tag node}#{enclose_content node}
+        </partintro>)
+        else
+          logger.error 'partintro block can only be used when doctype is book and must be a child of a book part. Excluding block content.'
+          ''
+        end
+      else #Par défaut
+        reftext = node.reftext if (id = node.id)
+        role = node.role
+        if node.title?
+          %(<formalpara#{common_attributes id, role, reftext}>
+<title>#{node.title}</title>
+<para>#{content_spacer = node.content_model == :compound ? LF : ''}#{node.content}#{content_spacer}</para>
+</formalpara>)
+        elsif id || role
+          if node.content_model == :compound
+            %(#{common_attributes id, role, reftext} 
+#{node.content} 
+) #ici lesparagraphes 
+          else
+            %(<simpara#{common_attributes id, role, reftext}>#{node.content}</simpara>)
+          end
+        else
+          enclose_content node
+        end
+      end
+    end
+
+    def convert_page_break node
+      '<simpara><?asciidoc-pagebreak?></simpara>'
+    end
+
+    def convert_paragraph node
+      if node.title?
+        %(<formalpara#{common_attributes node.id, node.role, node.reftext}>
+<title>#{node.title}</title>
+<para>#{node.content}</para>
+</formalpara>)
+      else
+        %(#{node.content}) #Rajout : plutot effacelment ici les simpra de paragraphe
+      end
+    end
+
+    def convert_preamble node
+      if node.document.doctype == 'book'
+        %(<preface#{common_attributes node.id, node.role, node.reftext}>
+#{title_tag node, false}#{node.content}
+</preface>)
+      else
+        node.content
+      end
+    end
+
+    def convert_quote node
+      blockquote_tag(node, (node.has_role? 'epigraph') && 'epigraph') { enclose_content node }
+    end
+
+    def convert_thematic_break node
+      '<simpara><?asciidoc-hr?></simpara>'
+    end
+
+    def convert_sidebar node
+      %(<sidebar#{common_attributes node.id, node.role, node.reftext}>
+#{title_tag node}#{enclose_content node}
+</sidebar>)
+    end
+
+    def convert_table node
+      has_body = false
+      result = []
+      pgwide_attribute = (node.option? 'pgwide') ? ' pgwide="1"' : ''
+      frame = 'topbot' if (frame = node.attr 'frame', 'all', 'table-frame') == 'ends'
+      grid = node.attr 'grid', nil, 'table-grid'
+      result << %(<#{tag_name = node.title? ? 'table' : 'informaltable'}#{common_attributes node.id, node.role, node.reftext}#{pgwide_attribute} frame="#{frame}" rowsep="#{(%w(none cols).include? grid) ? 0 : 1}" colsep="#{(%w(none rows).include? grid) ? 0 : 1}"#{(node.attr? 'orientation', 'landscape', 'table-orientation') ? ' orient="land"' : ''}>)
+      if node.option? 'unbreakable'
+        result << '<?dbfo keep-together="always"?>'
+      elsif node.option? 'breakable'
+        result << '<?dbfo keep-together="auto"?>'
+      end
+      result << %(<title>#{node.title}</title>) if tag_name == 'table'
+      if (width = (node.attr? 'width') ? (node.attr 'width') : nil)
+        TABLE_PI_NAMES.each do |pi_name|
+          result << %(<?#{pi_name} table-width="#{width}"?>)
+        end
+        col_width_key = 'colabswidth'
+      else
+        col_width_key = 'colpcwidth'
+      end
+      result << %(<tgroup cols="#{node.attr 'colcount'}">)
+      node.columns.each do |col|
+        result << %(<colspec colname="col_#{col.attr 'colnumber'}" colwidth="#{col.attr col_width_key}*"/>)
+      end
+      node.rows.to_h.each do |tsec, rows|
+        next if rows.empty?
+        has_body = true if tsec == :body
+        result << %(<t#{tsec}>)
+        rows.each do |row|
+          result << '<row>'
+          row.each do |cell|
+            colspan_attribute = cell.colspan ? %( namest="col_#{colnum = cell.column.attr 'colnumber'}" nameend="col_#{colnum + cell.colspan - 1}") : ''
+            rowspan_attribute = cell.rowspan ? %( morerows="#{cell.rowspan - 1}") : ''
+            # NOTE <entry> may not have whitespace (e.g., line breaks) as a direct descendant according to DocBook rules
+            entry_start = %(<entry align="#{cell.attr 'halign'}" valign="#{cell.attr 'valign'}"#{colspan_attribute}#{rowspan_attribute}>)
+            if tsec == :head
+              cell_content = cell.text
+            else
+              case cell.style
+              when :asciidoc
+                cell_content = cell.content
+              when :literal
+                cell_content = %(<literallayout class="monospaced">#{cell.text}</literallayout>)
+              when :header
+                cell_content = (cell_content = cell.content).empty? ? '' : %(<simpara><emphasis role="strong">#{cell_content.join '</emphasis></simpara><simpara><emphasis role="strong">'}</emphasis></simpara>)
+              else
+                cell_content = (cell_content = cell.content).empty? ? '' : %(<simpara>#{cell_content.join '</simpara><simpara>'}</simpara>)
+              end
+            end
+            entry_end = (node.document.attr? 'cellbgcolor') ? %(<?dbfo bgcolor="#{node.document.attr 'cellbgcolor'}"?></entry>) : '</entry>'
+            result << %(#{entry_start}#{cell_content}#{entry_end})
+          end
+          result << '</row>'
+        end
+        result << %(</t#{tsec}>)
+      end
+      result << '</tgroup>'
+      result << %(</#{tag_name}>)
+
+      logger.warn 'tables must have at least one body row' unless has_body
+      result.join LF
+    end
+
+    alias convert_toc skip
+
+    def convert_ulist node
+      puts('#convert_ulist')
+      result = []
+      if node.style == 'bibliography'
+        result << %(<bibliodiv#{common_attributes node.id, node.role, node.reftext}>)
+        result << %(<title>#{node.title}</title>) if node.title?
+        node.items.each do |item|
+          result << '<bibliomixed>'
+          result << %(<bibliomisc>#{item.text}</bibliomisc>)
+          result << item.content if item.blocks?
+          result << '</bibliomixed>'
+        end
+        result << '</bibliodiv>'
+      else
+        mark_type = (checklist = node.option? 'checklist') ? 'none' : node.style
+        mark_attribute = mark_type ? %( mark="#{mark_type}") : ''
+        result << %(<itemizedlist#{common_attributes node.id, node.role, node.reftext}#{mark_attribute}>)
+        result << %(<title>#{node.title}</title>) if node.title?
+        node.items.each do |item|
+          text_marker = (item.attr? 'checked') ? '&#10003; ' : '&#10063; ' if checklist && (item.attr? 'checkbox')
+          result << %(<listitem#{common_attributes item.id, item.role}>)
+          result << %(<simpara>#{text_marker || ''}#{item.text}</simpara>)
+          result << item.content if item.blocks?
+          result << '</listitem>'
+        end
+        result << '</itemizedlist>'
+      end
+      result.join LF
+    end
+
+    def convert_verse node
+      blockquote_tag(node, (node.has_role? 'epigraph') && 'epigraph') { %(<literallayout>#{node.content}</literallayout>) }
+    end
+
+    alias convert_video skip
+
+    def convert_inline_anchor node
+      case node.type
+      when :ref
+        %(<anchor#{common_attributes((id = node.id), nil, node.reftext || %([#{id}]))}/>)
+      when :xref
+        if (path = node.attributes['path'])
+          %(<link xl:href="#{node.target}">#{node.text || path}</link>)
+        else
+          if (linkend = node.attributes['refid']).nil_or_empty?
+            root_doc = get_root_document node
+            # Q: should we warn instead of generating a document ID on demand?
+            linkend = (root_doc.id ||= generate_document_id root_doc)
+          end
+          # NOTE the xref tag in DocBook does not support explicit link text, so the link tag must be used instead
+          # The section at http://www.sagehill.net/docbookxsl/CrossRefs.html#IdrefLinks gives an explanation for this choice
+          # "link - a cross reference where you supply the text of the reference as the content of the link element."
+          (text = node.text) ? %(<link linkend="#{linkend}">#{text}</link>) : %(<xref linkend="#{linkend}"/>)
+        end
+      when :link
+        %(<link xl:href="#{node.target}">#{node.text}</link>)
+      when :bibref
+        %(<anchor#{common_attributes node.id, nil, (text = "[#{node.reftext || node.id}]")}/>#{text})
+      else
+        logger.warn %(unknown anchor type: #{node.type.inspect})
+        nil
+      end
+    end
+
+    def convert_inline_break node
+      %(#{node.text}<?asciidoc-br?>)
+    end
+
+    def convert_inline_button node
+      %(<guibutton>#{node.text}</guibutton>)
+    end
+
+    def convert_inline_callout node
+      %(<co#{common_attributes node.id}/>)
+    end
+
+    def convert_inline_footnote node
+      if node.type == :xref
+        %(<footnoteref linkend="#{node.target}"/>)
+      else
+        %(<footnote#{common_attributes node.id}><simpara>#{node.text}</simpara></footnote>)
+      end
+    end
+
+    def convert_inline_image node
+      %(<inlinemediaobject#{common_attributes nil, node.role}>
+<imageobject>
+<imagedata fileref="#{node.type == 'icon' ? (node.icon_uri node.target) : (node.image_uri node.target)}"#{image_size_attributes node.attributes}/>
+</imageobject>
+<textobject><phrase>#{node.alt}</phrase></textobject>
+</inlinemediaobject>)
+    end
+
+    def convert_inline_indexterm node
+      if (see = node.attr 'see')
+        rel = %(\n<see>#{see}</see>)
+      elsif (see_also_list = node.attr 'see-also')
+        rel = see_also_list.map {|see_also| %(\n<seealso>#{see_also}</seealso>) }.join
+      else
+        rel = ''
+      end
+      if node.type == :visible
+        %(<indexterm>
+<primary>#{node.text}</primary>#{rel}
+</indexterm>#{node.text})
+      elsif (numterms = (terms = node.attr 'terms').size) > 2
+        %(<indexterm>
+<primary>#{terms[0]}</primary><secondary>#{terms[1]}</secondary><tertiary>#{terms[2]}</tertiary>#{rel}
+</indexterm>#{(node.document.option? 'indexterm-promotion') ? %(
+<indexterm>
+<primary>#{terms[1]}</primary><secondary>#{terms[2]}</secondary>
+</indexterm>
+<indexterm>
+<primary>#{terms[2]}</primary>
+</indexterm>) : ''})
+      elsif numterms > 1
+        %(<indexterm>
+<primary>#{terms[0]}</primary><secondary>#{terms[1]}</secondary>#{rel}
+</indexterm>#{(node.document.option? 'indexterm-promotion') ? %(
+<indexterm>
+<primary>#{terms[1]}</primary>
+</indexterm>) : ''})
+      else
+        %(<indexterm>
+<primary>#{terms[0]}</primary>#{rel}
+</indexterm>)
+      end
+    end
+
+    def convert_inline_kbd node
+      if (keys = node.attr 'keys').size == 1
+        %(<keycap>#{keys[0]}</keycap>)
+      else
+        %(<keycombo><keycap>#{keys.join '</keycap><keycap>'}</keycap></keycombo>)
+      end
+    end
+
+    def convert_inline_menu node
+      menu = node.attr 'menu'
+      if (submenus = node.attr 'submenus').empty?
+        if (menuitem = node.attr 'menuitem')
+          %(<menuchoice><guimenu>#{menu}</guimenu> <guimenuitem>#{menuitem}</guimenuitem></menuchoice>)
+        else
+          %(<guimenu>#{menu}</guimenu>)
+        end
+      else
+        %(<menuchoice><guimenu>#{menu}</guimenu> <guisubmenu>#{submenus.join '</guisubmenu> <guisubmenu>'}</guisubmenu> <guimenuitem>#{node.attr 'menuitem'}</guimenuitem></menuchoice>)
+      end
+    end
+
+    def convert_inline_quoted node
+      if (type = node.type) == :asciimath
+        # NOTE fop requires jeuclid to process mathml markup
+        asciimath_available? ? %(<inlineequation>#{(::AsciiMath.parse node.text).to_mathml 'mml:', 'xmlns:mml' => 'http://www.w3.org/1998/Math/MathML'}</inlineequation>) : %(<inlineequation><mathphrase><![CDATA[#{node.text}]]></mathphrase></inlineequation>)
+      elsif type == :latexmath
+        # unhandled math; pass source to alt and required mathphrase element; dblatex will process alt as LaTeX math
+        %(<inlineequation><alt><![CDATA[#{equation = node.text}]]></alt><mathphrase><![CDATA[#{equation}]]></mathphrase></inlineequation>)
+      else
+        open, close, supports_phrase = QUOTE_TAGS[type]
+        text = node.text
+        if node.role
+          if supports_phrase
+            quoted_text = %(#{open}<phrase role="#{node.role}">#{text}</phrase>#{close})
+          else
+            quoted_text = %(#{open.chop} role="#{node.role}">#{text}#{close})
+          end
+        else
+          quoted_text = %(#{open}#{text}#{close})
+        end
+
+        node.id ? %(<anchor#{common_attributes node.id, nil, text}/>#{quoted_text}) : quoted_text
+      end
+    end
+
+    private
+
+    def common_attributes id, role = nil, reftext = nil
+      
+        attrs = ''
+
+    end
+
+    def image_size_attributes attributes
+     
+      if attributes.key? 'scaledwidth'
+        %( width="#{attributes['scaledwidth']}")
+      elsif attributes.key? 'scale'
+       
+        %( scale="#{attributes['scale']}")
+      else
+        width_attribute = (attributes.key? 'width') ? %( contentwidth="#{attributes['width']}") : ''
+        depth_attribute = (attributes.key? 'height') ? %( contentdepth="#{attributes['height']}") : ''
+        %(#{width_attribute}#{depth_attribute})
+      end
+    end
+
+    def author_tag doc, author
+      result = []
+      result << '<author>'
+      result << '<personname>'
+      result << %(<firstname>#{doc.sub_replacements author.firstname}</firstname>) if author.firstname
+      result << %(<othername>#{doc.sub_replacements author.middlename}</othername>) if author.middlename
+      result << %(<surname>#{doc.sub_replacements author.lastname}</surname>) if author.lastname
+      result << '</personname>'
+      result << %(<email>#{author.email}</email>) if author.email
+      result << '</author>'
+      result.join LF
+    end
+
+    def document_info_tag doc, abstract
+      result = ['<info>']
+      unless doc.notitle
+        if (title = doc.doctitle partition: true, use_fallback: true).subtitle?
+          result << %(<title>#{title.main}</title>
+<subtitle>#{title.subtitle}</subtitle>)
+        else
+          result << %(<title>#{title}</title>)
+        end
+      end
+      if (date = (doc.attr? 'revdate') ? (doc.attr 'revdate') : ((doc.attr? 'reproducible') ? nil : (doc.attr 'docdate')))
+        result << %(<date>#{date}</date>)
+      end
+      if doc.attr? 'copyright'
+        CopyrightRx =~ (doc.attr 'copyright')
+        result << '<copyright>'
+        result << %(<holder>#{$1}</holder>)
+        result << %(<year>#{$2}</year>) if $2
+        result << '</copyright>'
+      end
+      if doc.header?
+        unless (authors = doc.authors).empty?
+          if authors.size > 1
+            result << '<authorgroup>'
+            authors.each {|author| result << (author_tag doc, author) }
+            result << '</authorgroup>'
+          else
+            result << (author_tag doc, (author = authors[0]))
+            result << %(<authorinitials>#{author.initials}</authorinitials>) if author.initials
+          end
+        end
+        if (doc.attr? 'revdate') && ((doc.attr? 'revnumber') || (doc.attr? 'revremark'))
+          result << %(<revhistory>
+<revision>)
+          result << %(<revnumber>#{doc.attr 'revnumber'}</revnumber>) if doc.attr? 'revnumber'
+          result << %(<date>#{doc.attr 'revdate'}</date>) if doc.attr? 'revdate'
+          result << %(<authorinitials>#{doc.attr 'authorinitials'}</authorinitials>) if doc.attr? 'authorinitials'
+          result << %(<revremark>#{doc.attr 'revremark'}</revremark>) if doc.attr? 'revremark'
+          result << %(</revision>
+</revhistory>)
+        end
+        if (doc.attr? 'front-cover-image') || (doc.attr? 'back-cover-image')
+          if (back_cover_tag = cover_tag doc, 'back')
+            result << (cover_tag doc, 'front', true)
+            result << back_cover_tag
+          elsif (front_cover_tag = cover_tag doc, 'front')
+            result << front_cover_tag
+          end
+        end
+        result << %(<orgname>#{doc.attr 'orgname'}</orgname>) if doc.attr? 'orgname'
+        unless (docinfo_content = doc.docinfo).empty?
+          result << docinfo_content
+        end
+      end
+      if abstract
+        abstract.set_option 'root'
+        result << (convert abstract, abstract.node_name)
+        abstract.remove_attr 'root-option'
+      end
+      result << '</info>'
+
+      result.join LF
+    end
+
+    def find_root_abstract doc
+      return unless doc.blocks?
+      if (first_block = doc.blocks[0]).context == :preamble
+        return unless (first_block = first_block.blocks[0])
+      elsif first_block.context == :section
+        return first_block if first_block.sectname == 'abstract'
+        return unless first_block.sectname == 'preface' && (first_block = first_block.blocks[0])
+      end
+      return first_block if first_block.style == 'abstract' && first_block.context == :open
+    end
+
+    def extract_abstract document, abstract
+      parent = abstract.parent
+      parent = parent.parent while parent != document && parent.blocks.length == 1
+      parent.blocks.delete_at 0
+    end
+
+    def restore_abstract abstract
+      abstract.parent.blocks.insert 0, abstract
+    end
+
+    def get_root_document node
+      while (node = node.document).nested?
+        node = node.parent_document
+      end
+      node
+    end
+
+    def generate_document_id doc
+      %(__#{doc.doctype}-root__)
+    end
+
+    # FIXME this should be handled through a template mechanism
+    def enclose_content node
+      node.content_model == :compound ? node.content : %(<simpara>#{node.content}</simpara>)
+    end
+
+    def title_tag node, optional = true
+      !optional || node.title? ? %(<title>#{node.title}</title>\n) : ''
+    end
+
+    def cover_tag doc, face, use_placeholder = false
+      if (cover_image = doc.attr %(#{face}-cover-image))
+        if (cover_image.include? ':') && ImageMacroRx =~ cover_image
+          target, attrlist = $1, $2
+          cover_image = doc.image_uri target
+          # NOTE scalefit="1" is the default for a cover image
+          size_attrs = image_size_attributes (AttributeList.new attrlist).parse %w(alt width height) if attrlist
+        else
+          size_attrs = ''
+        end
+        %(<cover role="#{face}">
+<mediaobject>
+<imageobject>
+<imagedata fileref="#{cover_image}"#{size_attrs}/>
+</imageobject>
+</mediaobject>
+</cover>)
+      elsif use_placeholder
+        %(<cover role="#{face}"/>)
+      end
+    end
+
+    def blockquote_tag node, tag_name = nil
+      if tag_name
+        start_tag, end_tag = %(<#{tag_name}), %(</#{tag_name}>)
+      else
+        start_tag, end_tag = '<blockquote', '</blockquote>'
+      end
+      result = [%(#{start_tag}#{common_attributes node.id, node.role, node.reftext}>)]
+      result << %(<title>#{node.title}</title>) if node.title?
+      if (node.attr? 'attribution') || (node.attr? 'citetitle')
+        result << '<attribution>'
+        result << (node.attr 'attribution') if node.attr? 'attribution'
+        result << %(<citetitle>#{node.attr 'citetitle'}</citetitle>) if node.attr? 'citetitle'
+        result << '</attribution>'
+      end
+      result << yield
+      result << end_tag
+      result.join LF
+    end
+
+    def asciimath_available?
+      (@asciimath_status ||= load_asciimath) == :loaded
+    end
+
+    def load_asciimath
+      (defined? ::AsciiMath.parse) ? :loaded : (Helpers.require_library 'asciimath', true, :warn).nil? ? :unavailable : :loaded
+    end
+  end
+end