metanorma-iso 1.0.0

data/lib/isodoc/iso/html_convert.rb

@@ -0,0 +1,118 @@
+require "isodoc"
+require_relative "metadata"
+
+module IsoDoc
+  module Iso
+    class HtmlConvert < IsoDoc::HtmlConvert
+      def metadata_init(lang, script, labels)
+        @meta = Metadata.new(lang, script, labels)
+      end
+
+      def initialize(options)
+        @libdir = File.dirname(__FILE__)
+        super
+      end
+
+      def default_fonts(options)
+        {
+          bodyfont: (options[:script] == "Hans" ? '"SimSun",serif' : options[:alt] ? '"Lato",sans-serif' : '"Cambria",serif'),
+          headerfont: (options[:script] == "Hans" ? '"SimHei",sans-serif' : options[:alt] ? '"Lato",sans-serif' : '"Cambria",serif'),
+          monospacefont: (options[:alt] ?  '"Space Mono",monospace' : '"Courier New",monospace'),
+        }
+      end
+
+      def default_file_locations(options)
+        {
+          htmlstylesheet: options[:alt] ? html_doc_path("style-human.scss") : html_doc_path("style-iso.scss"),
+          htmlcoverpage: html_doc_path("html_iso_titlepage.html"),
+          htmlintropage: html_doc_path("html_iso_intro.html"),
+          scripts: html_doc_path("scripts.html"),
+        }
+      end
+
+      def implicit_reference(b)
+        isocode = b.at(ns("./docidentifier")).text
+        isocode == "IEV"
+      end
+
+      def introduction(isoxml, out)
+        f = isoxml.at(ns("//introduction")) || return
+        num = f.at(ns(".//clause")) ? "0" : nil
+        title_attr = { class: "IntroTitle" }
+        page_break(out)
+        out.div **{ class: "Section3", id: f["id"] } do |div|
+          # div.h1 "Introduction", **attr_code(title_attr)
+          clause_name(num, @introduction_lbl, div, title_attr)
+          f.elements.each do |e|
+            if e.name == "patent-notice"
+              e.elements.each { |e1| parse(e1, div) }
+            else
+              parse(e, div) unless e.name == "title"
+            end
+          end
+        end
+      end
+
+      def foreword(isoxml, out)
+        f = isoxml.at(ns("//foreword")) || return
+        page_break(out)
+        out.div **attr_code(id: f["id"]) do |s|
+          s.h1(**{ class: "ForewordTitle" }) { |h1| h1 << @foreword_lbl }
+          f.elements.each { |e| parse(e, s) unless e.name == "title" }
+        end
+      end
+
+      def initial_anchor_names(d)
+        super
+        introduction_names(d.at(ns("//introduction")))
+      end
+
+      # we can reference 0-number clauses in introduction
+      def introduction_names(clause)
+        return if clause.nil?
+        clause.xpath(ns("./clause")).each_with_index do |c, i|
+          section_names1(c, "0.#{i + 1}", 2)
+        end
+      end
+
+      # terms not defined in standoc
+      def error_parse(node, out)
+        case node.name
+        when "appendix" then clause_parse(node, out)
+        else
+          super
+        end
+      end
+
+      def annex_names(clause, num)
+        appendix_names(clause, num)
+        super
+      end
+
+      def appendix_names(clause, num)
+        clause.xpath(ns("./appendix")).each_with_index do |c, i|
+          @anchors[c["id"]] = anchor_struct(i + 1, nil, @appendix_lbl)
+          @anchors[c["id"]][:level] = 2
+          @anchors[c["id"]][:container] = clause["id"]
+        end
+      end
+
+      def section_names1(clause, num, level)
+        @anchors[clause["id"]] =
+          { label: num, level: level, xref: num }
+        # subclauses are not prefixed with "Clause"
+        clause.xpath(ns("./clause | ./terms | ./term | ./definitions")).
+          each_with_index do |c, i|
+          section_names1(c, "#{num}.#{i + 1}", level + 1)
+        end
+      end
+
+      def annex_names1(clause, num, level)
+        @anchors[clause["id"]] = { label: num, xref: num, level: level }
+        clause.xpath(ns(".//clause")).each_with_index do |c, i|
+          annex_names1(c, "#{num}.#{i + 1}", level + 1)
+        end
+      end
+    end
+  end
+end

data/lib/isodoc/iso/metadata.rb

@@ -0,0 +1,107 @@
+require "isodoc"
+
+module IsoDoc
+  module Iso
+    class  Metadata < IsoDoc::Metadata
+      def initialize(lang, script, labels)
+        super
+      end
+
+      STAGE_ABBRS = {
+        "00": "PWI",
+        "10": "NWIP",
+        "20": "WD",
+        "30": "CD",
+        "40": "DIS",
+        "50": "FDIS",
+        "60": "IS",
+        "90": "(Review)",
+        "95": "(Withdrawal)",
+      }.freeze
+
+      def stage_abbrev(stage, iter, draft)
+        stage = STAGE_ABBRS[stage.to_sym] || "??"
+        stage += iter.text if iter
+        stage = "Pre" + stage if draft&.text =~ /^0\./
+        stage
+      end
+
+      def docstatus(isoxml, _out)
+        docstatus = isoxml.at(ns("//status/stage"))
+        if docstatus
+          set(:stage, docstatus.text)
+          set(:stage_int, docstatus.text.to_i)
+          abbr = stage_abbrev(docstatus.text, isoxml.at(ns("//status/iteration")),
+                              isoxml.at(ns("//version/draft")))
+          set(:stageabbr, abbr)
+        end
+      end
+
+      def docid(isoxml, _out)
+        dn = docnumber(isoxml)
+        docstatus = get[:stage]
+        if docstatus
+          abbr = get[:stageabbr]
+          docstatus = get[:stage]
+          (docstatus.to_i < 60) && dn = abbr + " " + dn
+        end
+        set(:docnumber, dn)
+      end
+
+      # we don't leave this to i18n.rb, because we have both English and
+      # French titles in the same document
+      def part_label(lang)
+        case lang
+        when "en" then "Part"
+        when "fr" then "Partie"
+        end
+      end
+
+      def part_title(part, partnum, subpartnum, lang)
+        return "" unless part
+        suffix = @c.encode(part.text, :hexadecimal)
+        partnum = "#{partnum}&ndash;#{subpartnum}" if partnum && subpartnum
+        suffix = "#{part_label(lang)}&nbsp;#{partnum}: " + suffix if partnum
+        suffix
+      end
+
+      def compose_title(main, intro, part, partnum, subpartnum, lang)
+        main = main.nil? ? "" : @c.encode(main.text, :hexadecimal)
+        intro &&
+          main = "#{@c.encode(intro.text, :hexadecimal)}&nbsp;&mdash; #{main}"
+        if part
+          suffix = part_title(part, partnum, subpartnum, lang)
+          main = "#{main}&nbsp;&mdash; #{suffix}"
+        end
+        main
+      end
+
+      def title(isoxml, _out)
+        intro = isoxml.at(ns("//title-intro[@language='en']"))
+        main = isoxml.at(ns("//title-main[@language='en']"))
+        part = isoxml.at(ns("//title-part[@language='en']"))
+        partnumber = isoxml.at(ns("//project-number/@part"))
+        subpartnumber = isoxml.at(ns("//project-number/@subpart"))
+
+        set(:doctitlemain, @c.encode(main ? main.text : "", :hexadecimal))
+        main = compose_title(main, intro, part, partnumber, subpartnumber, "en")
+        set(:doctitle, main)
+        set(:doctitleintro, @c.encode(intro ? intro.text : "", :hexadecimal)) if intro
+        set(:doctitlepart, part_title(part, partnumber, subpartnumber, "en"))
+      end
+
+      def subtitle(isoxml, _out)
+        intro = isoxml.at(ns("//title-intro[@language='fr']"))
+        main = isoxml.at(ns("//title-main[@language='fr']"))
+        part = isoxml.at(ns("//title-part[@language='fr']"))
+        partnumber = isoxml.at(ns("//project-number/@part"))
+        subpartnumber = isoxml.at(ns("//project-number/@subpart"))
+        set(:docsubtitlemain, @c.encode(main ? main.text : "", :hexadecimal))
+        main = compose_title(main, intro, part, partnumber, subpartnumber, "fr")
+        set(:docsubtitle, main)
+        set(:docsubtitleintro, @c.encode(intro ? intro.text : "", :hexadecimal)) if intro
+        set(:docsubtitlepart, part_title(part, partnumber, subpartnumber, "fr"))
+      end
+    end
+  end
+end

data/lib/isodoc/iso/word_convert.rb

@@ -0,0 +1,141 @@
+require "isodoc"
+require_relative "metadata"
+
+module IsoDoc
+  module Iso
+    class WordConvert < IsoDoc::WordConvert
+      def initialize(options)
+        @libdir = File.dirname(__FILE__)
+        super
+      end
+
+      def default_fonts(options)
+        {
+          bodyfont: (options[:script] == "Hans" ? '"SimSun",serif' : '"Cambria",serif'),
+          headerfont: (options[:script] == "Hans" ? '"SimHei",sans-serif' : '"Cambria",serif'),
+          monospacefont: '"Courier New",monospace',
+        }
+      end
+
+      def default_file_locations(options)
+        {
+          htmlstylesheet: options[:alt] ? html_doc_path("style-human.scss") : html_doc_path("style-iso.scss"),
+          htmlcoverpage: html_doc_path("html_iso_titlepage.html"),
+          htmlintropage: html_doc_path("html_iso_intro.html"),
+          scripts: html_doc_path("scripts.html"),
+          wordstylesheet: html_doc_path("wordstyle.scss"),
+          standardstylesheet: html_doc_path("isodoc.scss"),
+          header: html_doc_path("header.html"),
+          wordcoverpage: html_doc_path("word_iso_titlepage.html"),
+          wordintropage: html_doc_path("word_iso_intro.html"),
+          ulstyle: "l3", 
+          olstyle: "l2",
+        }
+      end
+
+      def metadata_init(lang, script, labels)
+        @meta = Metadata.new(lang, script, labels)
+      end
+
+      def implicit_reference(b)
+        isocode = b.at(ns("./docidentifier")).text
+        isocode == "IEV"
+      end
+
+      def make_body(xml, docxml)
+        body_attr = { lang: "EN-US", link: "blue", vlink: "#954F72" }
+        xml.body **body_attr do |body|
+          make_body1(body, docxml)
+          make_body2(body, docxml)
+          make_body3(body, docxml)
+          colophon(body, docxml)
+        end
+      end
+
+      def colophon(body, docxml)
+        body.br **{ clear: "all", style: "page-break-before:left;mso-break-type:section-break" }
+        body.div **{ class: "colophon" } do |div|
+        end
+      end
+
+      def introduction(isoxml, out)
+        f = isoxml.at(ns("//introduction")) || return
+        num = f.at(ns(".//clause")) ? "0" : nil
+        title_attr = { class: "IntroTitle" }
+        page_break(out)
+        out.div **{ class: "Section3", id: f["id"] } do |div|
+          # div.h1 "Introduction", **attr_code(title_attr)
+          clause_name(num, @introduction_lbl, div, title_attr)
+          f.elements.each do |e|
+            if e.name == "patent-notice"
+              e.elements.each { |e1| parse(e1, div) }
+            else
+              parse(e, div) unless e.name == "title"
+            end
+          end
+        end
+      end
+
+      def foreword(isoxml, out)
+        f = isoxml.at(ns("//foreword")) || return
+        page_break(out)
+        out.div **attr_code(id: f["id"]) do |s|
+          s.h1(**{ class: "ForewordTitle" }) { |h1| h1 << @foreword_lbl }
+          f.elements.each { |e| parse(e, s) unless e.name == "title" }
+        end
+      end
+
+      def initial_anchor_names(d)
+        super
+        introduction_names(d.at(ns("//introduction")))
+      end
+
+      # we can reference 0-number clauses in introduction
+      def introduction_names(clause)
+        return if clause.nil?
+        clause.xpath(ns("./clause")).each_with_index do |c, i|
+          section_names1(c, "0.#{i + 1}", 2)
+        end
+      end
+
+      # terms not defined in standoc
+      def error_parse(node, out)
+        case node.name
+        when "appendix" then clause_parse(node, out)
+        else
+          super
+        end
+      end
+
+      def annex_names(clause, num)
+        appendix_names(clause, num)
+        super
+      end
+
+      def appendix_names(clause, num)
+        clause.xpath(ns("./appendix")).each_with_index do |c, i|
+          @anchors[c["id"]] = anchor_struct(i + 1, nil, @appendix_lbl)
+          @anchors[c["id"]][:level] = 2
+          @anchors[c["id"]][:container] = clause["id"]
+        end
+      end
+
+      def section_names1(clause, num, level)
+        @anchors[clause["id"]] =
+          { label: num, level: level, xref: num }
+        # subclauses are not prefixed with "Clause"
+        clause.xpath(ns("./clause | ./terms | ./term | ./definitions")).
+          each_with_index do |c, i|
+          section_names1(c, "#{num}.#{i + 1}", level + 1)
+        end
+      end
+
+      def annex_names1(clause, num, level)
+        @anchors[clause["id"]] = { label: num, xref: num, level: level }
+        clause.xpath(ns(".//clause")).each_with_index do |c, i|
+          annex_names1(c, "#{num}.#{i + 1}", level + 1)
+        end
+      end
+    end
+  end
+end

data/lib/metanorma/iso.rb

@@ -0,0 +1,7 @@
+require_relative "./iso/processor"
+
+module Metanorma
+  module Iso
+
+  end
+end

data/lib/metanorma/iso/processor.rb

@@ -0,0 +1,44 @@
+require "metanorma/processor"
+
+module Metanorma
+  module Iso
+    class Processor < Metanorma::Processor
+
+      def initialize
+        @short = :iso
+        @input_format = :asciidoc
+        @asciidoctor_backend = :iso
+      end
+
+      def output_formats
+        super.merge(
+          html: "html",
+          html_alt: "alt.html",
+          doc: "doc"
+        )
+      end
+
+      def version
+        "Asciidoctor::ISO #{Asciidoctor::ISO::VERSION}/IsoDoc #{IsoDoc::VERSION}"
+      end
+
+      def input_to_isodoc(file)
+        Metanorma::Input::Asciidoc.new.process(file, @asciidoctor_backend)
+      end
+
+      def output(isodoc_node, outname, format, options={})
+        case format
+        when :html
+          IsoDoc::Iso::HtmlConvert.new(options).convert(outname, isodoc_node)
+        when :html_alt
+          IsoDoc::Iso::HtmlConvert.new(options.merge(alt: true)).convert(outname, isodoc_node)
+        when :doc
+          IsoDoc::Iso::WordConvert.new(options).convert(outname, isodoc_node)
+        else
+          super
+        end
+      end
+
+    end
+  end
+end

data/spec/asciidoctor-iso/base_spec.rb

@@ -0,0 +1,350 @@
+require "spec_helper"
+
+RSpec.describe Asciidoctor::ISO do
+  it "has a version number" do
+    expect(Asciidoctor::ISO::VERSION).not_to be nil
+  end
+
+=begin
+  it "generates output for the Rice document" do
+    system "cd spec/examples; rm -f rice.xml; rm -f rice.doc; rm -f rice.html; rm -f rice_alt.html; asciidoctor --trace -b iso -r 'asciidoctor-iso' rice.adoc; cd ../.."
+    expect(File.exist?("spec/examples/rice.xml")).to be true
+    expect(File.exist?("spec/examples/rice.doc")).to be true
+    expect(File.exist?("spec/examples/rice.html")).to be true
+    expect(File.exist?("spec/examples/rice_alt.html")).to be true
+  end
+=end
+
+  it "processes a blank document" do
+    expect(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)).to be_equivalent_to <<~"OUTPUT"
+    #{ASCIIDOC_BLANK_HDR}
+    INPUT
+    #{BLANK_HDR}
+<sections/>
+</iso-standard>
+    OUTPUT
+  end
+
+  it "converts a blank document" do
+    system "rm -f test.doc"
+    expect(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)).to be_equivalent_to <<~"OUTPUT"
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+    INPUT
+    #{BLANK_HDR}
+<sections/>
+</iso-standard>
+    OUTPUT
+    expect(File.exist?("test.doc")).to be true
+    expect(File.exist?("htmlstyle.css")).to be false
+  end
+
+  it "processes default metadata" do
+    expect(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)).to be_equivalent_to <<~'OUTPUT'
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :docnumber: 1000
+      :partnumber: 1
+      :edition: 2
+      :revdate: 2000-01-01
+      :draft: 3.4
+      :technical-committee: TC
+      :technical-committee-number: 1
+      :technical-committee-type: A
+      :subcommittee: SC
+      :subcommittee-number: 2
+      :subcommittee-type: B
+      :workgroup: WG
+      :workgroup-number: 3
+      :workgroup-type: C
+      :secretariat: SECRETARIAT
+      :copyright-year: 2001
+      :docstage: 10
+      :docsubstage: 20
+      :iteration: 3
+      :language: en
+      :title-intro-en: Introduction
+      :title-main-en: Main Title -- Title
+      :title-part-en: Title Part
+      :title-intro-fr: Introduction Française
+      :title-main-fr: Titre Principal
+      :title-part-fr: Part du Titre
+      :library-ics: 1,2,3
+    INPUT
+           <?xml version="1.0" encoding="UTF-8"?>
+       <iso-standard xmlns="http://riboseinc.com/isoxml">
+       <bibdata type="article">
+         <title>
+           <title-intro language="en" format="text/plain">Introduction</title-intro>
+           <title-main language="en" format="text/plain">Main Title — Title</title-main>
+           <title-part language="en" format="text/plain">Title Part</title-part>
+         </title>
+         <title>
+           <title-intro language="fr" format="text/plain">Introduction Française</title-intro>
+           <title-main language="fr" format="text/plain">Titre Principal</title-main>
+           <title-part language="fr" format="text/plain">Part du Titre</title-part>
+         </title>
+         <docidentifier>
+           <project-number part="1">ISO 1000</project-number>
+         </docidentifier>
+         <contributor>
+           <role type="author"/>
+           <organization>
+             <name>International Organization for Standardization</name>
+             <abbreviation>ISO</abbreviation>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>International Organization for Standardization</name>
+             <abbreviation>ISO</abbreviation>
+           </organization>
+         </contributor>
+         <language>en</language>
+         <script>Latn</script>
+         <status>
+           <stage>10</stage>
+           <substage>20</substage>
+           <iteration>3</iteration>
+         </status>
+         <copyright>
+           <from>2001</from>
+           <owner>
+             <organization>
+             <name>International Organization for Standardization</name>
+             <abbreviation>ISO</abbreviation>
+             </organization>
+           </owner>
+         </copyright>
+         <editorialgroup>
+           <technical-committee number="1" type="A">TC</technical-committee>
+           <subcommittee number="2" type="B">SC</subcommittee>
+           <workgroup number="3" type="C">WG</workgroup>
+           <secretariat>SECRETARIAT</secretariat>
+         </editorialgroup>
+         <ics>
+  <code>1</code>
+</ics>
+<ics>
+  <code>2</code>
+</ics>
+<ics>
+  <code>3</code>
+</ics>
+       </bibdata><version>
+         <edition>2</edition>
+         <revision-date>2000-01-01</revision-date>
+         <draft>3.4</draft>
+       </version>
+       <sections/>
+       </iso-standard>
+    OUTPUT
+  end
+
+
+  it "processes complex metadata" do
+    expect(Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)).to be_equivalent_to <<~'OUTPUT'
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :docnumber: 1000
+      :partnumber: 1-1
+      :tc-docnumber: 2000
+      :language: el
+      :script: Grek
+      :publisher: IEC,IETF,ISO
+    INPUT
+           <?xml version="1.0" encoding="UTF-8"?>
+       <iso-standard xmlns="http://riboseinc.com/isoxml">
+       <bibdata type="article">
+         <title>
+
+         </title>
+         <title>
+
+         </title>
+         <docidentifier>
+           <project-number part="1" subpart="1">ISO/IEC/IETF 1000</project-number>
+           <tc-document-number>2000</tc-document-number>
+         </docidentifier>
+         <contributor>
+           <role type="author"/>
+           <organization>
+             <name>International Electrotechnical Commission</name>
+             <abbreviation>IEC</abbreviation>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="author"/>
+           <organization>
+             <name>IETF</name>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="author"/>
+           <organization>
+             <name>International Organization for Standardization</name>
+             <abbreviation>ISO</abbreviation>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>International Electrotechnical Commission</name>
+             <abbreviation>IEC</abbreviation>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>IETF</name>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>International Organization for Standardization</name>
+             <abbreviation>ISO</abbreviation>
+           </organization>
+         </contributor>
+         <language>el</language>
+         <script>Grek</script>
+         <status>
+           <stage>60</stage>
+           <substage>60</substage>
+         </status>
+         <copyright>
+           <from>2018</from>
+           <owner>
+             <organization>
+               <name>International Electrotechnical Commission</name>
+               <abbreviation>IEC</abbreviation>
+             </organization>
+           </owner>
+         </copyright>
+         <copyright>
+           <from>2018</from>
+           <owner>
+             <organization>
+               <name>IETF</name>
+             </organization>
+           </owner>
+         </copyright>
+         <copyright>
+           <from>2018</from>
+           <owner>
+             <organization>
+               <name>International Organization for Standardization</name>
+               <abbreviation>ISO</abbreviation>
+             </organization>
+           </owner>
+         </copyright>
+         <editorialgroup>
+           <technical-committee/>
+           <subcommittee/>
+           <workgroup/>
+         </editorialgroup>
+       </bibdata>
+       <sections/>
+       </iso-standard>
+    OUTPUT
+  end
+
+  it "reads scripts into blank HTML document" do
+    system "rm -f test.html"
+    Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+    INPUT
+    html = File.read("test.html", encoding: "utf-8")
+    expect(html).to match(%r{<script>})
+  end
+
+  it "uses default fonts" do
+    system "rm -f test.html"
+    Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+    INPUT
+    html = File.read("test.html", encoding: "utf-8")
+    expect(html).to match(%r[\.Sourcecode[^{]+\{[^{]+font-family: "Courier New", monospace;]m)
+    expect(html).to match(%r[blockquote[^{]+\{[^{]+font-family: "Cambria", serif;]m)
+    expect(html).to match(%r[\.h2Annex[^{]+\{[^{]+font-family: "Cambria", serif;]m)
+  end
+
+  it "uses default fonts for alt doc" do
+    system "rm -f test_alt.html"
+    Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+    INPUT
+    html = File.read("test_alt.html", encoding: "utf-8")
+    expect(html).to match(%r[\.Sourcecode[^{]+\{[^{]+font-family: "Space Mono", monospace;]m)
+    expect(html).to match(%r[blockquote[^{]+\{[^{]+font-family: "Lato", sans-serif;]m)
+    expect(html).to match(%r[\.h2Annex[^{]+\{[^{]+font-family: "Lato", sans-serif;]m)
+  end
+
+  it "uses Chinese fonts" do
+    system "rm -f test.html"
+    Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+      :script: Hans
+    INPUT
+    html = File.read("test.html", encoding: "utf-8")
+    expect(html).to match(%r[\.Sourcecode[^{]+\{[^{]+font-family: "Courier New", monospace;]m)
+    expect(html).to match(%r[blockquote[^{]+\{[^{]+font-family: "SimSun", serif;]m)
+    expect(html).to match(%r[\.h2Annex[^{]+\{[^{]+font-family: "SimHei", sans-serif;]m)
+  end
+
+  it "uses specified fonts" do
+    system "rm -f test.html"
+    Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+      :script: Hans
+      :body-font: Zapf Chancery
+      :header-font: Comic Sans
+      :monospace-font: Andale Mono
+    INPUT
+    html = File.read("test.html", encoding: "utf-8")
+    expect(html).to match(%r[\.Sourcecode[^{]+\{[^{]+font-family: Andale Mono;]m)
+    expect(html).to match(%r[blockquote[^{]+\{[^{]+font-family: Zapf Chancery;]m)
+    expect(html).to match(%r[\.h2Annex[^{]+\{[^{]+font-family: Comic Sans;]m)
+  end
+
+  it "strips MS-specific CSS" do
+    system "rm -f test.html"
+    system "rm -f test.doc"
+    Asciidoctor.convert(<<~"INPUT", backend: :iso, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+    INPUT
+    word = File.read("test.doc", encoding: "utf-8")
+    html = File.read("test.html", encoding: "utf-8")
+    expect(word).to match(%r[mso-style-name: "Intro Title";]m)
+    expect(html).not_to match(%r[mso-style-name: "Intro Title";]m)
+  end
+
+
+end