coradoc 0.1.0 → 0.3.0

data/lib/coradoc/reverse_adoc/converters/blockquote.rb

@@ -0,0 +1,27 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Blockquote < Base
+      def to_coradoc(node, state = {})
+        node["id"]
+        cite = node["cite"]
+        attributes = if cite.nil?
+                       nil
+                     else
+                       Coradoc::Element::AttributeList.new(
+                         "quote", cite
+                       )
+                     end
+        content = treat_children(node, state).strip
+        content = Coradoc::ReverseAdoc.cleaner.remove_newlines(content)
+        Coradoc::Element::Block::Quote.new(nil, lines: content,
+                                                attributes: attributes)
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :blockquote, Blockquote.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/br.rb

@@ -0,0 +1,15 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Br < Base
+      def to_coradoc(_node, _state = {})
+        Coradoc::Element::Inline::HardLineBreak.new
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :br, Br.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/bypass.rb

@@ -0,0 +1,81 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Bypass < Base
+      def to_coradoc(node, state = {})
+        treat_children_coradoc(node, state)
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :document, Bypass.new
+    register :html,     Bypass.new
+    register :body,     Bypass.new
+    register :span,     Bypass.new
+    register :thead,    Bypass.new
+    register :tbody,    Bypass.new
+    register :tfoot,    Bypass.new
+    register :abbr, Bypass.new
+    register :acronym,    Bypass.new
+    register :address,    Bypass.new
+    register :applet, Bypass.new
+    register :map, Bypass.new
+    register :area, Bypass.new
+    register :bdi,    Bypass.new
+    register :bdo,    Bypass.new
+    register :big,    Bypass.new
+    register :button,    Bypass.new
+    register :canvas,    Bypass.new
+    register :data, Bypass.new
+    register :datalist, Bypass.new
+    register :del,    Bypass.new
+    register :ins,    Bypass.new
+    register :dfn,    Bypass.new
+    register :dialog, Bypass.new
+    register :embed, Bypass.new
+    register :fieldset, Bypass.new
+    register :font, Bypass.new
+    register :footer, Bypass.new
+    register :form, Bypass.new
+    register :frame, Bypass.new
+    register :frameset, Bypass.new
+    register :header,    Bypass.new
+    register :iframe,    Bypass.new
+    register :input,    Bypass.new
+    register :label,    Bypass.new
+    register :legend, Bypass.new
+    register :main,    Bypass.new
+    register :menu,    Bypass.new
+    register :menulist, Bypass.new
+    register :meter, Bypass.new
+    register :nav, Bypass.new
+    register :noframes,    Bypass.new
+    register :noscript,    Bypass.new
+    register :object, Bypass.new
+    register :optgroup, Bypass.new
+    register :option,    Bypass.new
+    register :output,    Bypass.new
+    register :param, Bypass.new
+    register :picture, Bypass.new
+    register :progress, Bypass.new
+    register :ruby, Bypass.new
+    register :rt,    Bypass.new
+    register :rp,    Bypass.new
+    register :s, Bypass.new
+    register :select, Bypass.new
+    register :small, Bypass.new
+    register :span, Bypass.new
+    register :strike, Bypass.new
+    register :details,    Bypass.new
+    register :section,    Bypass.new
+    register :summary,    Bypass.new
+    register :svg, Bypass.new
+    register :template,    Bypass.new
+    register :textarea,    Bypass.new
+    register :track, Bypass.new
+    register :u, Bypass.new
+    register :wbr, Bypass.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/code.rb

@@ -0,0 +1,56 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Code < Base
+      def to_coradoc(node, state = {})
+        content = treat_children_coradoc(node, state)
+
+        if Coradoc::Generator.gen_adoc(content).strip.empty?
+          return ""
+        end
+
+        if node_has_ancestor?(node, ["code", "tt", "kbd", "samp", "var"])
+          return content
+        end
+
+        node.text =~ /^(\s+)/
+        leading_whitespace = $1
+        has_leading_whitespace = !leading_whitespace.nil?
+
+        if has_leading_whitespace
+          first_text = node.at_xpath("./text()[1]")
+          first_text.replace(first_text.text.lstrip)
+          leading_whitespace = " "
+        end
+
+        node.text =~ /(\s+)$/
+        trailing_whitespace = $1
+        has_trailing_whitespace = !trailing_whitespace.nil?
+
+        if has_trailing_whitespace
+          last_text = node.at_xpath("./text()[last()]")
+          last_text.replace(last_text.text.rstrip)
+          trailing_whitespace = " "
+        end
+
+        u_before = unconstrained_before?(node)
+        u_after = unconstrained_after?(node)
+        u = !((!u_before || has_leading_whitespace) && (!u_after || has_trailing_whitespace))
+        e = Coradoc::Element::Inline::Monospace.new(
+          Coradoc::Element::TextElement.new(content), u
+        )
+
+        [leading_whitespace, e, trailing_whitespace]
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :code, Code.new
+    register :tt, Code.new
+    register :kbd, Code.new
+    register :samp, Code.new
+    register :var, Code.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/div.rb

@@ -0,0 +1,18 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Div < Base
+      def to_coradoc(node, state = {})
+        id = node["id"]
+        contents = treat_children_coradoc(node, state)
+        Coradoc::Element::Section.new(nil, id: id, contents: contents)
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :div,     Div.new
+    register :article, Div.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/drop.rb

@@ -0,0 +1,22 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Drop < Base
+      def to_coradoc(node, state = {})
+        convert(node, state)
+      end
+
+      def convert(_node, _state = {})
+        ""
+      end
+    end
+
+    register :caption, Drop.new
+    register :figcaption, Drop.new
+    register :title, Drop.new
+    register :link, Drop.new
+    register :style, Drop.new
+    register :meta, Drop.new
+    register :script, Drop.new
+    register :comment, Drop.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/em.rb

@@ -0,0 +1,55 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Em < Base
+      def to_coradoc(node, state = {})
+        content = treat_children_coradoc(node,
+                                         state.merge(already_italic: true))
+
+        if Coradoc::Generator.gen_adoc(content).strip.empty?
+          return ""
+        end
+
+        if node_has_ancestor?(node, ["em", "i", "cite"])
+          return content
+        end
+
+        node.text =~ /^(\s+)/
+        leading_whitespace = $1
+        has_leading_whitespace = !leading_whitespace.nil?
+
+        if has_leading_whitespace
+          first_text = node.at_xpath("./text()[1]")
+          first_text.replace(first_text.text.lstrip)
+          leading_whitespace = " "
+        end
+
+        node.text =~ /(\s+)$/
+        trailing_whitespace = $1
+        has_trailing_whitespace = !trailing_whitespace.nil?
+
+        if has_trailing_whitespace
+          last_text = node.at_xpath("./text()[last()]")
+          last_text.replace(last_text.text.rstrip)
+          trailing_whitespace = " "
+        end
+
+        u_before = unconstrained_before?(node)
+        u_after = unconstrained_after?(node)
+        u = !((!u_before || has_leading_whitespace) && (!u_after || has_trailing_whitespace))
+        e = Coradoc::Element::Inline::Italic.new(
+          Coradoc::Element::TextElement.new(content), u
+        )
+
+        [leading_whitespace, e, trailing_whitespace]
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :em, Em.new
+    register :i,  Em.new
+    register :cite, Em.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/figure.rb

@@ -0,0 +1,25 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Figure < Base
+      def to_coradoc(node, state = {})
+        id = node["id"]
+        title = extract_title(node)
+        content = treat_children_coradoc(node, state)
+        Coradoc::Element::Block::Example.new(title, lines: content, id: id)
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+
+      def extract_title(node)
+        title = node.at("./figcaption")
+        return "" if title.nil?
+
+        treat_children_coradoc(title, {})
+      end
+    end
+
+    register :figure, Figure.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/h.rb

@@ -0,0 +1,42 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class H < Base
+      def to_coradoc(node, state = {})
+        id = node["id"]
+        internal_anchor = treat_children_anchors(node, state)
+
+        if id.to_s.empty? && internal_anchor.size.positive?
+          id = internal_anchor.first.id
+        end
+
+        level = node.name[/\d/].to_i
+        content = treat_children_no_anchors(node, state)
+
+        Coradoc::Element::Title.new(content, level, id: id)
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+
+      def treat_children_no_anchors(node, state)
+        node.children.reject { |a| a.name == "a" }.inject([]) do |memo, child|
+          memo << treat_coradoc(child, state)
+        end
+      end
+
+      def treat_children_anchors(node, state)
+        node.children.select { |a| a.name == "a" }.inject([]) do |memo, child|
+          memo << treat_coradoc(child, state)
+        end
+      end
+    end
+
+    register :h1, H.new
+    register :h2, H.new
+    register :h3, H.new
+    register :h4, H.new
+    register :h5, H.new
+    register :h6, H.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/head.rb

@@ -0,0 +1,23 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Head < Base
+      def to_coradoc(node, _state = {})
+        title = extract_title(node)
+        Coradoc::Element::Header.new(title)
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+
+      def extract_title(node)
+        title = node.at("./title")
+        return "(???)" if title.nil?
+
+        title.text
+      end
+    end
+
+    register :head, Head.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/hr.rb

@@ -0,0 +1,15 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Hr < Base
+      def to_coradoc(_node, _state = {})
+        Coradoc::Element::Break::ThematicBreak.new
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :hr, Hr.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/ignore.rb

@@ -0,0 +1,16 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Ignore < Base
+      def to_coradoc(node, state = {})
+        convert(node, state)
+      end
+
+      def convert(_node, _state = {})
+        "" # noop
+      end
+    end
+
+    register :colgroup, Ignore.new
+    register :col,      Ignore.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/img.rb

@@ -0,0 +1,93 @@
+require "fileutils"
+require "pathname"
+require "tempfile"
+require "base64"
+require "marcel"
+
+module Coradoc::ReverseAdoc
+  module Converters
+    class Img < Base
+      def image_number
+        sprintf(
+          Coradoc::ReverseAdoc.config.image_counter_pattern,
+          Coradoc::ReverseAdoc.config.image_counter,
+        )
+      end
+
+      def image_number_increment
+        Coradoc::ReverseAdoc.config.image_counter += 1
+      end
+
+      def datauri2file(src)
+        %r{^data:image/(?:[^;]+);base64,(?<imgdata>.+)$} =~ src
+
+        dest_dir = Pathname.new(Coradoc::ReverseAdoc.config.destination).dirname
+        images_dir = dest_dir.join("images")
+        FileUtils.mkdir_p(images_dir)
+
+        ext, image_src_path = determine_image_src_path(src, imgdata)
+        image_dest_path = images_dir + "#{image_number}.#{ext}"
+
+        # puts "image_dest_path: #{image_dest_path.to_s}"
+        # puts "image_src_path: #{image_src_path.to_s}"
+
+        FileUtils.cp(image_src_path, image_dest_path)
+        image_number_increment
+
+        image_dest_path.relative_path_from(dest_dir)
+      end
+
+      def determine_image_src_path(src, imgdata)
+        return copy_temp_file(imgdata) if imgdata
+
+        ext = File.extname(src).strip.downcase[1..-1]
+        [ext, Pathname.new(Coradoc::ReverseAdoc.config.sourcedir).join(src)]
+      end
+
+      def copy_temp_file(imgdata)
+        Tempfile.open(["radoc", ".jpg"]) do |f|
+          f.binmode
+          f.write(Base64.strict_decode64(imgdata))
+          f.rewind
+          ext = Marcel::MimeType.for(f).sub(%r{^[^/]+/}, "")
+          [ext, f.path]
+        end
+      end
+
+      def to_coradoc(node, _state = {})
+        id = node["id"]
+        alt   = node["alt"]
+        src   = node["src"]
+        width = node["width"]
+        height = node["height"]
+
+        title = extract_title(node)
+
+        if Coradoc::ReverseAdoc.config.external_images
+          # puts "external image conversion #{id}, #{src}"
+          src = datauri2file(src)
+        end
+
+        attributes = Coradoc::Element::AttributeList.new
+        # attributes.add_named("id", id) if id
+        if alt # && !alt.to_s.empty?
+          attributes.add_positional(alt)
+        elsif width || height
+          attributes.add_positional("\"\"")
+        end
+        # attributes.add_named("title", title) if title
+        attributes.add_positional(width) if width
+        attributes.add_positional(height) if height
+
+        Coradoc::Element::Image::BlockImage.new(title, id, src,
+                                                attributes: attributes)
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :img, Img.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/li.rb

@@ -0,0 +1,17 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Li < Base
+      def to_coradoc(node, state = {})
+        id = node["id"]
+        content = treat_children_coradoc(node, state)
+        Coradoc::Element::ListItem.new(content, id: id)
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :li, Li.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/mark.rb

@@ -0,0 +1,21 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Mark < Base
+      def to_coradoc(node, state = {})
+        content = treat_children(node, state.merge(already_strong: true))
+
+        if content.strip.empty? || state[:already_strong]
+          return content
+        end
+
+        Coradoc::Element::Inline::Highlight.new(content, constrained?(node))
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :mark, Mark.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/math.rb

@@ -0,0 +1,31 @@
+# Unless run with Coradoc::ReverseAdoc.config.mathml2asciimath,
+# this is cheating: we're injecting MathML into Asciidoctor, but
+# Asciidoctor only understands AsciiMath or LaTeX
+
+require "mathml2asciimath"
+
+module Coradoc::ReverseAdoc
+  module Converters
+    class Math < Base
+      # FIXIT
+      def to_coradoc(node, state = {})
+        convert(node, state)
+      end
+
+      def convert(node, _state = {})
+        stem = node.to_s.gsub(/\n/, " ")
+        stem = MathML2AsciiMath.m2a(stem) if Coradoc::ReverseAdoc.config.mathml2asciimath
+        unless stem.nil?
+          stem = stem.gsub(/\[/, "\\[").gsub(/\]/, "\\]").gsub(
+            /\(\(([^\)]+)\)\)/, "(\\1)"
+          )
+        end
+
+        # TODO: This is to be done in Coradoc
+        " stem:[" << stem << "] "
+      end
+    end
+
+    register :math, Math.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/ol.rb

@@ -0,0 +1,64 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class Ol < Base
+      # FIXIT
+      def to_coradoc(node, state = {})
+        # convert(node, state)
+        id = node["id"]
+        ol_count = state.fetch(:ol_count, 0) + 1
+        attrs = ol_attrs(node)
+        items = treat_children_coradoc(node, state.merge(ol_count: ol_count))
+
+        options = {}.tap do |hash|
+          hash[:id] = id
+          hash[:ol_count] = ol_count
+          hash[:attrs] = attrs
+        end
+
+        case get_list_type(node, state)
+        when :ordered
+          Coradoc::Element::List::Ordered.new(items, options)
+        when :unordered
+          Coradoc::Element::List::Unordered.new(items, options)
+        end
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+
+      def get_list_type(node, _state)
+        case node.name
+        when "ol"
+          :ordered
+        when "ul"
+          :unordered
+        end
+      end
+
+      def number_style(node)
+        case node["style"]
+        when "1" then "arabic"
+        when "A" then "upperalpha"
+        when "a" then "loweralpha"
+        when "I" then "upperroman"
+        when "i" then "lowerroman"
+        end
+      end
+
+      def ol_attrs(node)
+        attrs = Coradoc::Element::AttributeList.new
+        style = number_style(node)
+        attrs.add_positional(style) if style
+        attrs.add_positional("%reversed") if node["reversed"]
+        attrs.add_named("start", node["start"]) if node["start"]
+        attrs.add_named("type", node["type"]) if node["type"]
+        attrs
+      end
+    end
+
+    register :ol, Ol.new
+    register :ul, Ol.new
+    register :dir, Ol.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/p.rb

@@ -0,0 +1,23 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class P < Base
+      def to_coradoc(node, state = {})
+        id = node["id"]
+        content = treat_children_coradoc(node, state)
+
+        options = {}.tap do |hash|
+          hash[:id] = id if id
+          hash[:tdsinglepara] = true if state[:tdsinglepara]
+        end
+
+        Coradoc::Element::Paragraph.new(content, options)
+      end
+
+      def convert(node, state = {})
+        Coradoc::Generator.gen_adoc(to_coradoc(node, state))
+      end
+    end
+
+    register :p, P.new
+  end
+end

data/lib/coradoc/reverse_adoc/converters/pass_through.rb

@@ -0,0 +1,13 @@
+module Coradoc::ReverseAdoc
+  module Converters
+    class PassThrough < Base
+      def to_coradoc(node, _state = {})
+        node.to_s
+      end
+
+      def convert(node, state = {})
+        to_coradoc(node, state)
+      end
+    end
+  end
+end