ebps 1.0.2

data/lib/ebps/conversion/fachinfo_xml.rb

@@ -0,0 +1,170 @@
+require 'ebps/config'
+require 'ebps/text/document'
+require 'open-uri'
+require 'rexml/document'
+require 'rexml/streamlistener'
+
+module EBPS
+  module Conversion
+    module FachinfoXml
+      class StreamListener
+        include REXML::StreamListener
+        attr_reader :current_chapter, :current_document, :current_target,
+                    :documents
+        def initialize
+          @documents = []
+          @stack = []
+        end
+        def end_fi
+          @current_document = nil
+        end
+        def end_i
+          @stack.delete 'i'
+          if @current_target.respond_to?(:set_format)
+            @current_target.set_format *@stack
+          end
+        end
+        def end_image
+          # nothing to be done
+        end
+        def end_monographies
+          # outermost tag, we can safely ignore this.
+        end
+        def end_p
+          @current_chapter.add_paragraph(@current_target) if @current_target
+          @current_target = nil
+        end
+        def end_paragraph
+          @current_chapter = nil
+        end
+        alias end_paragraphSubtitle end_p
+        def end_paragraphTitle
+          @current_target = nil
+        end
+        def end_owner
+          end_paragraphTitle
+          end_paragraph
+        end
+        def end_table
+          end_p
+        end
+        def end_tb
+          # end of table body. Ignored for now.
+        end
+        def end_td
+          @in_td = false
+        end
+        def end_th
+          # end of table head. Ignored for now.
+        end
+        def end_title
+          @current_target = nil
+        end
+        def end_tr
+          @current_target << "\n"
+        end
+        def start_fi attrs
+          @documents.push(@current_document = Text::Document.new)
+          @current_document
+        end
+        def start_i attrs
+          @stack.push 'i'
+          if @current_target.respond_to?(:set_format)
+            @current_target.set_format *@stack.uniq
+          end
+        end
+        def start_image attrs
+          config = EBPS.config
+          raise <<-EOS unless config.image_prefix && config.image_suffix
+This monography contains images.
+Please configure both image_prefix and image_suffix
+          EOS
+          file = attrs["src"] + config.image_suffix
+          src = File.join config.image_prefix, file
+          handle = nil
+          begin
+            handle = open src
+            picture = Text::Picture.new
+            picture << handle.read
+            @current_target = picture
+          rescue
+            @current_target = nil
+          end
+        ensure
+          handle.close if handle
+        end
+        def start_monographies attrs
+          # outermost tag, we can safely ignore this.
+        end
+        def start_owner attrs
+          start_paragraph attrs
+          start_paragraphTitle attrs
+        end
+        def start_p attrs
+          @current_target = Text::Paragraph.new
+        end
+        def start_paragraph attrs
+          @current_chapter = Text::Chapter.new
+          @current_document.add_chapter @current_chapter
+          @current_chapter
+        end
+        def start_paragraphSubtitle attrs
+          @current_target = Text::Subheading.new
+        end
+        def start_paragraphTitle attrs
+          @current_target = @current_chapter.heading
+        end
+        def start_table attrs
+          paragraph = start_p attrs
+          paragraph.set_format('pre')
+          paragraph
+        end
+        def start_tb attrs
+          # start of table body. Ignored for now.
+        end
+        def start_td attrs
+          @in_td = true
+        end
+        def start_th attrs
+          # start of table head. Ignored for now.
+        end
+        def start_title attrs
+          @current_target = @current_document.title
+        end
+        def start_tr attrs
+          # ignore. end_tr will add a newline character
+        end
+        def tag_end name
+          method = "end_#{name}"
+          if respond_to?(method)
+            send method
+          else
+            raise "unhandled end tag '#{name}'"
+          end
+        end
+        def tag_start name, attrs
+          method = "start_#{name}"
+          if respond_to?(method)
+            send method, attrs
+          else
+            raise "unhandled start tag '#{name}'"
+          end
+        end
+        def text data
+          if @current_target && data
+            data = data.strip unless @in_td
+            @current_target << data
+          end
+        end
+      end
+      def self.import string_or_io, path=''
+        listener = StreamListener.new
+        REXML::Document.parse_stream string_or_io, listener
+        listener.documents
+      rescue ArgumentError => e
+        warn "#{e.message} while importing #{path}, ignoring input file"
+        []
+      end
+    end
+  end
+end

data/lib/ebps/conversion/fachinfo_yaml.rb

@@ -0,0 +1,113 @@
+require 'ebps/text/document'
+require 'yaml'
+
+module EBPS
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Fachinfo' do |type, val|
+    if descr = val.delete('descriptions')
+      doc = descr[EBPS.config.language]
+      begin
+      doc.metadata.update val
+      rescue NoMethodError => err
+        comment = "Probably '#{EBPS.config.language}' data is missing in the following data:\n"
+        err.message << "\n\n" << comment << val.to_a.to_s << "\n"
+        raise err
+      end
+      doc
+    end
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::FachinfoDocument' do |type, val|
+    chapters = %w{galenic_form composition effects kinetic indications usage
+                  restrictions unwanted_effects interactions overdose
+                  other_advice delivery distribution fabrication iksnrs
+                  packages date}
+    Conversion::FachinfoYaml.assemble_document chapters, val
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::FachinfoDocument2001' do |type, val|
+    chapters = %w{amzv composition galenic_form indications usage
+                  contra_indications restrictions interactions pregnancy
+                  driving_ability unwanted_effects overdose effects kinetic
+                  preclinic other_advice iksnrs packages registration_owner
+                  date}
+    Conversion::FachinfoYaml.assemble_document chapters, val
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Text::Chapter' do |type, val|
+    chp = Text::Chapter.new
+    chp.heading << val['heading']
+    Conversion::FachinfoYaml.encode chp.heading
+    chp.paragraphs.concat val['sections'].flatten.compact
+    chp
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Text::Section' do |type, val|
+    paragraphs = []
+    if (txt = val['subheading']) && !txt.empty?
+      sh = Text::Subheading.new
+      sh << txt
+      Conversion::FachinfoYaml.encode sh.text
+      paragraphs << sh
+    end
+    paragraphs.concat val['paragraphs']
+    paragraphs
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Text::Paragraph' do |type, val|
+    par = Text::Paragraph.new
+    par << val['text']
+    Conversion::FachinfoYaml.encode par.text
+    par.formats.replace val['formats']
+    if val['preformatted']
+      par.formats.each do |fmt|
+        fmt.values << 'pre'
+      end
+    end
+    par
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Text::ImageLink' do |type, val|
+    src = File.join EBPS.config.image_prefix, val['src']
+    file = File.basename src
+    handle = nil
+    begin
+      handle = open src
+      picture = Text::Picture.new
+      picture << handle.read
+      picture
+    rescue
+    end
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Text::Format' do |type, val|
+    fmt = Text::Format.new
+    fmt.values = val['values']
+    fmt.start = val['start']
+    fmt.end = val['end']
+    fmt
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::SimpleLanguage::Descriptions' do |type, val|
+    val
+  end
+  module Conversion
+    module FachinfoYaml
+      def self.import string_or_io, path=nil
+        collection = {}
+        YAML.each_document string_or_io do |doc|
+          if doc
+            collection.store Digest::MD5.hexdigest(doc.to_s), doc
+          end
+        end
+        ## apparently we have some nil-values here (?)
+        collection.values.compact
+      end
+      def self.assemble_document chapters, yaml_value
+        doc = Text::Document.new
+        doc.title = Conversion::FachinfoYaml.encode(yaml_value['name'])
+        chapters.each do |name|
+          if chapter = yaml_value[name]
+            doc.add_chapter chapter
+          end
+        end
+        doc
+      end
+      def self.encode txt
+        txt.force_encoding 'UTF-8'
+        txt
+      end
+    end
+  end
+end

data/lib/ebps/conversion/import_module_sample.rb

@@ -0,0 +1,86 @@
+require 'ebps/text/document'
+require 'yaml'
+
+module EBPS
+
+  YAML.add_domain_type 'ywesee,2010', 'CompanyInfo' do |type, val|
+    if descr = val.delete('descriptions')
+      doc = descr[EBPS.config.language]
+      doc.metadata.update val
+      doc
+    end
+  end
+  YAML.add_domain_type 'ywesee,2010', 'CompanyInfo2010' do |type, val|
+    chapters = %w{short_description general_information address_form}
+    Conversion::ImportModuleSample.assemble_document chapters, val
+  end
+  YAML.add_domain_type 'ywesee,2010', 'Text::Chapter' do |type, val|
+    chp = Text::Chapter.new
+    chp.heading << val['heading']
+    Conversion::ImportModuleSample.encode chp.heading
+    chp.paragraphs.concat val['sections'].flatten.compact
+    chp
+  end
+  YAML.add_domain_type 'ywesee,2010', 'Text::Section' do |type, val|
+    paragraphs = []
+    if (txt = val['subheading']) && !txt.empty?
+      sh = Text::Subheading.new
+      sh << txt
+      Conversion::ImportModuleSample.encode sh.text
+      paragraphs << sh
+    end
+    paragraphs.concat val['paragraphs']
+    paragraphs
+  end
+  YAML.add_domain_type 'ywesee,2010', 'Text::Paragraph' do |type, val|
+    par = Text::Paragraph.new
+    par << val['text']
+    Conversion::ImportModuleSample.encode par.text
+    par.formats.replace val['formats']
+    if val['preformatted']
+      par.formats.each do |fmt|
+        fmt.values << 'pre'
+      end
+    end
+    par
+  end
+  YAML.add_domain_type 'ywesee,2010', 'Text::Format' do |type, val|
+    fmt = Text::Format.new
+    fmt.values = val['values']
+    fmt.start = val['start']
+    fmt.end = val['end']
+    fmt
+  end
+  YAML.add_domain_type 'ywesee,2010', 'SimpleLanguage::Descriptions' do |type, val|
+    val
+  end
+
+  module Conversion
+    module ImportModuleSample
+      def self.import string_or_io, path=nil
+        collection = {}
+        YAML.each_document string_or_io do |doc|
+          if doc
+            collection.store Digest::MD5.hexdigest(doc.to_s), doc
+          end
+        end
+        ## apparently we have some nil-values here (?)
+        collection.values.compact
+      end
+      def self.assemble_document chapters, yaml_value
+        doc = Text::Document.new
+        doc.title = Conversion::ImportModuleSample.encode(yaml_value['name'])
+        chapters.each do |name|
+          if chapter = yaml_value[name]
+            doc.add_chapter chapter
+          end
+        end
+        doc
+      end
+      def self.encode txt
+        txt.force_encoding 'UTF-8'
+        txt
+      end
+    end
+  end
+end

data/lib/ebps/conversion/mobi_pocket.rb

@@ -0,0 +1,30 @@
+# - encoding: utf-8
+require 'ebps/config'
+require 'ebps/conversion/oebps'
+
+module EBPS
+  module Conversion
+    module MobiPocket
+      def self.compile_azw target, tmpdir, opf
+        current_dir = Dir.pwd
+        Dir.chdir tmpdir
+        opfpath = File.join tmpdir, opf
+        config = EBPS.config
+        command = "#{config.kindlegen_path} #{opfpath} #{config.kindlegen_args} -o mobipocket.azw"
+        # kindlegen returns status -1 if a warning has been issued, so system's
+        # return value is no indication of success.
+        system command
+        FileUtils.cp File.join(tmpdir, 'mobipocket.azw'), target
+      ensure
+        Dir.chdir current_dir
+      end
+      def self.export docs, target, override_tmpdir=nil
+        ## kindlegen depends on the somewhat obscure kindle_quirks options. 
+        EBPS.config.kindle_quirks = true
+        Oebps.export docs, target, override_tmpdir do |tmpdir, name|
+          compile_azw target, tmpdir, name
+        end
+      end
+    end
+  end
+end

data/lib/ebps/conversion/oebps.rb

@@ -0,0 +1,537 @@
+# - encoding: utf-8
+require 'builder'
+require 'ebps/config'
+require 'ebps/text/document'
+require 'tmpdir'
+
+class String
+  UMLAUT_SUB = {
+    'Ä' => 'ae',
+    'ä' => 'ae',
+    'Ö' => 'oe',
+    'ö' => 'oe',
+    'Ü' => 'ue',
+    'ü' => 'ue',
+  }
+  def sortable
+    dupl = dup
+    dupl.sortable!
+    dupl
+  end
+  def sortable!
+    res = downcase!
+    UMLAUT_SUB.each do |ptrn, repl|
+      tmp = gsub! Regexp.new(ptrn, 'U'), repl
+      res ||= tmp
+    end
+    res
+  end
+  ## overwrite Builder's to_xs
+  def to_xs
+    gsub('&', '&amp;').gsub('<', '&lt;').gsub('>', '&gt;')
+  end
+end
+module EBPS
+  module Conversion
+    module Oebps
+      class Factory
+        attr_reader :uid
+        def initialize subject, ids, tmpdir
+          @ids = ids
+          @indent = EBPS.config.xml_indent
+          @builder = Builder::XmlMarkup.new :indent => @indent
+          @builder.instruct! :xml, :version=>"1.0", :encoding=>"UTF-8"
+          @subject = subject
+          @tmpdir = tmpdir
+          @link_drug_brand_name = EBPS.config.link_drug_brand_name
+        end
+      end
+      class HtmlFactory < Factory
+        DEPRECATED_TAGS = {
+          'u' => 'text-decoration: underline;'
+        }
+        def initialize *args
+          super
+          @builder.declare! :DOCTYPE, :html, :PUBLIC,
+                            "-//W3C//DTD XHTML 1.0 Strict//EN",
+                            "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"
+          @uid = "id" << Digest::MD5.hexdigest(@subject.to_s)
+          @current_chapter_id = 0
+        end
+        def body
+          if @link_drug_brand_name
+            search_url = ["http://just-medical.oddb.org/de/just-medical/search/zone/drugs/search_query/",
+                          @subject.title.delete('®').gsub(/ [0-9,]+%.*/,''),
+                          "/search_type/st_sequence#best_result"].join
+            @builder.h1 'id' => @uid do |xml|
+              xml.a @subject.title, 'href' => search_url
+            end
+          else
+            @builder.h1 @subject.title, 'id' => @uid
+          end
+          if EBPS.config.html_index \
+            && @subject.chapters.any? do |chp| !chp.partial? end
+            table_of_contents
+          end
+          chapters
+        end
+        def chapters
+          @subject.chapters.each_with_index do |chapter, idx|
+            unless chapter.heading.empty?
+              @current_chapter_id = idx.next
+              id = "chapter-#{@current_chapter_id}-#@uid"
+              @ids.push [id, chapter.heading, []] unless chapter.partial?
+              @builder.h3 chapter.heading, 'id' => id
+            end
+            paragraphs chapter
+          end
+        end
+        def format paragraph
+          return unless paragraph
+          paragraph.formats.each do |format|
+            if txt = paragraph.text[format.range]
+              reduce_formats format.values, txt
+            end
+          end
+        end
+        def format_table table
+          @builder.table 'class' => 'ebps' do |xml|
+            xml.tbody do
+              table.each_normalized do |row|
+                xml.tr do
+                  row.each do |cell|
+                    xml.td do format cell end
+                  end
+                end
+              end
+            end
+          end
+        end
+        def paragraphs chapter
+          sections = 0
+          chapter.paragraphs.each do |paragraph|
+            case paragraph
+            when Text::Picture
+              name = paragraph.filename
+              path = File.join @tmpdir, name
+              paragraph.image.write path
+              @builder.p 'class' => 'ebps' do |xml|
+                xml.img 'src' => name, 'alt' => ''
+              end
+            when Text::Subheading
+              attrs = {}
+              _, _, ids = @ids.last
+              if ids
+                sections += 1
+                id = "section-#{@current_chapter_id}.#{sections}-#@uid"
+                ids.push [id, paragraph.to_s]
+                attrs.store 'id', id
+              end
+              @builder.h4 attrs do format(paragraph) end
+            when Text::Table
+              format_table paragraph
+            when Text::LinkedParagraph
+              @builder.p 'class' => 'ebps' do |xml|
+                xml.a 'href' => paragraph.url do format paragraph end
+              end
+            else
+              @builder.p 'class' => 'ebps' do format(paragraph) end
+            end
+          end
+        end
+        def reduce_formats formats, text
+          if formats.empty?
+            @builder.send(:_indent)
+            @builder.text! text
+            @builder << "\n" if @indent
+          elsif style = DEPRECATED_TAGS[formats.first]
+            @builder.span 'style' => style do
+              reduce_formats formats[1..-1], text
+            end
+          else
+            @builder.tag! formats.first do
+              reduce_formats formats[1..-1], text
+            end
+          end
+        end
+        def table_of_contents
+          if title = EBPS.config.content_title
+            id = "toc-#@uid"
+            @ids.push [id, title]
+            @builder.h2(title, :id => id)
+          end
+          @builder.p 'class' => 'ebps' do |xml|
+            @subject.chapters.each_with_index do |chapter, idx|
+              unless chapter.partial?
+                xml.a chapter.heading, 'href' => "#chapter-#{idx.next}-#@uid"
+                xml.br
+              end
+            end
+          end
+        end
+        def to_html
+          @builder.html "xmlns" => "http://www.w3.org/1999/xhtml" do |xml|
+            xml.head do
+              xml.meta 'http-equiv' => 'Content-Type',
+                       'content' => 'text/html;charset=utf-8'
+              xml.title @subject.title
+              xml.link 'type' => 'text/css', 'rel' => 'stylesheet',
+                       'href' => File.basename(EBPS.config.stylesheet)
+            end
+            xml.body do
+              body
+            end
+          end
+        end
+      end
+      class IndexFactory < Factory
+        def initialize uid, subject, ids, tmpdir
+          super subject, ids, tmpdir
+          @builder.declare! :DOCTYPE, :html, :PUBLIC,
+                            "-//W3C//DTD XHTML 1.0 Strict//EN",
+                            "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"
+          @uid = uid
+        end
+        def to_html
+          @builder.html "xmlns" => "http://www.w3.org/1999/xhtml" do |xml|
+            xml.head do
+              xml.meta 'http-equiv' => 'Content-Type',
+                       'content' => 'text/html;charset=utf-8'
+              xml.title @uid
+              xml.link 'type' => 'text/css', 'rel' => 'stylesheet',
+                       'href' => File.basename(EBPS.config.stylesheet)
+            end
+            xml.body 'id' => @uid do
+              xml.p 'class' => 'ebps' do |xml|
+                @subject.each do |name, id, content, _|
+                  if id
+                    xml.a content, 'href' => name
+                    xml.br
+                  else
+                    xml.a 'id' => name, 'name' => name
+                  end
+                end
+              end
+              if EBPS.config.kindle_quirks
+                xml.mbp :pagebreak
+              end
+            end
+          end
+        end
+      end
+      class XmlFactory < Factory
+        def initialize *args
+          super
+          @uid = "id" << Digest::MD5.hexdigest(@subject.join("\n"))
+        end
+      end
+      class NcxFactory < XmlFactory
+        def initialize *args
+          super
+          @builder.declare! :DOCTYPE, :ncx, :PUBLIC,
+                            "-//NISO//DTD ncx 2005-1//EN",
+                            "http://www.daisy.org/z3986/2005/ncx-2005-1.dtd"
+          @depth = EBPS.config.max_depth
+          @page_count = @ids.size
+          @sections = 0
+        end
+        def doc_title
+          @builder.docTitle do |xml|
+            xml.text EBPS.config.title || @subject.first.title
+          end
+        end
+        def head
+          @builder.head do |xml|
+            xml.meta 'name' => 'dtb:uid', 'content' => @uid
+            xml.meta 'name' => 'dtb:depth', 'content' => @depth
+            xml.meta 'name' => 'dtb:generator', 'content' => self.class.name
+            xml.meta 'name' => 'dtb:totalPageCount', 'content' => @page_count
+            xml.meta 'name' => 'dtb:maxPageNumber', 'content' => @page_count
+          end
+        end
+        def nav_map
+          play_order = 0
+          @builder.navMap do |xml|
+            @ids.each do |id|
+              if id.is_a?(Array)
+                @append_id = false
+                play_order = nav_point play_order, 1, *id
+              end
+            end
+          end
+        end
+        def nav_point play_order, depth, file, id, txt, local_ids=nil, joker=nil
+          ## discard duplicate filenames
+          if joker
+            _, file, id, txt, local_ids = file, id, txt, local_ids, joker
+          end
+          play_order += 1
+          @builder.navPoint 'id' => id, 'playOrder' => play_order do |xml|
+            xml.navLabel do
+              xml.text txt
+            end
+            src = @append_id ? sprintf("%s#%s", file, id) : file
+            xml.content 'src' => src
+            @append_id = true
+            if local_ids && depth < @depth
+              local_ids.each do |local_id|
+                play_order = nav_point play_order, depth + 1, file, *local_id
+              end
+            end
+          end
+          play_order
+        end
+        def to_ncx
+          @builder.ncx 'xmlns'    => "http://www.daisy.org/z3986/2005/ncx/",
+                       'xml:lang' => EBPS.config.language,
+                       'version'  => "2005-1" do |xml|
+            head
+            doc_title
+            # xml.docAuthor could follow here
+            nav_map
+            # possibly we need a page_list
+            # and maybe even a nav_list
+          end
+        end
+      end
+      class OpfFactory < XmlFactory
+        def guide
+          @builder.guide do |xml|
+            xml.reference 'type' => 'toc', 'title' => EBPS.config.guide_index,
+                          'href' => 'toc.html'
+          end
+        end
+        def manifest
+          docs = imgs = 0
+          table = Hash[@ids.collect do |id| id[0,2] end]
+          cover = File.basename EBPS.config.cover
+          css = File.basename EBPS.config.stylesheet
+          @builder.manifest do |xml|
+            Dir.foreach @tmpdir do |file|
+              if match = /\.([^\.]+)$/.match(file)
+                type = match[1]
+                case type
+                when /html?/
+                  docs += 1
+                  id = table[file] or raise "Unidentified Html-File '#{file}'"
+                  xml.item 'id' => id, 'href' => file,
+                           'media-type' => 'application/xhtml+xml'
+                when 'ncx'
+                  xml.item 'id' => 'toc', 'href' => file,
+                           'media-type' => 'application/x-dtbncx+xml'
+                when 'css'
+                  xml.item 'id' => 'css', 'href' => file,
+                           'media-type' => 'text/css'
+                else
+                  id = case file
+                       when cover
+                         'cover'
+                       when css
+                         'css'
+                       else
+                         imgs += 1
+                         "image#{imgs}"
+                       end
+                  xml.item 'id' => id, 'href' => file,
+                           'media-type' => "image/#{type.sub('jpg', 'jpeg')}"
+                end
+              end
+            end
+          end
+        end
+        def metadata
+          @builder.metadata 'xmlns:dc' => 'http://purl.org/dc/elements/1.1/',
+                            'xmlns:opf'=> 'http://www.idpf.org/2007/opf' do |xml|
+            xml.dc :title, EBPS.config.title || @subject.first.title
+            xml.dc :language, EBPS.config.language
+            xml.dc :identifier, @uid, 'id' => 'uid'
+            xml.dc :date, Date.today.strftime('%Y-%m-%d')
+            if author = EBPS.config.author
+              xml.dc :creator, author
+            end
+            xml.meta 'name' => 'cover', 'content' => 'cover'
+          end
+        end
+        def spine
+          @builder.spine 'toc' => 'toc' do |xml|
+            @ids.each do |file, id|
+              xml.itemref 'idref' => id if id
+            end
+          end
+        end
+        def to_opf
+          @builder.package 'version' => '2.0',
+                           'xmlns' => 'http://www.idpf.org/2007/opf',
+                           'unique-identifier' => 'uid' do |xml|
+            metadata
+            manifest
+            spine
+            guide
+          end
+        end
+      end
+      def self.add_appendix appendix, ids, tmpdir
+        pic = Text::Picture.new
+        pic << File.read(appendix)
+        chp = Text::Chapter.new
+        chp.add_paragraph pic
+        doc = Text::Document.new
+        doc.add_chapter chp
+        local_ids = []
+        html, id = document_to_html doc, local_ids, tmpdir
+        name = 'appendix.html'
+        write tmpdir, name, html
+        ids.push [name, id, '', local_ids]
+      end
+      def self.compile_azw tmpdir, opf
+        current_dir = Dir.pwd
+        Dir.chdir tmpdir
+        opfpath = File.join tmpdir, opf
+        config = EBPS.config
+        command = "#{config.kindlegen_path} #{opfpath} #{config.kindlegen_args} -o mobipocket.azw"
+        # kindlegen returns status -1 if a warning has been issued, so system's
+        # return value is no indication of success.
+        system command
+      ensure
+        Dir.chdir current_dir
+      end
+      def self.compile_epub tmpdir, name
+        Zip::ZipOutputStream.open('/tmp/test.epub') do |zh|
+          zh.put_next_entry('mimetype')
+          zh << 'application/epub+zip'
+          zh.put_next_entry('META-INF/container.xml')
+          zh << <<-EOS
+<?xml version="1.0" encoding="UTF-8" ?>
+<container version="1.0" xmlns="urn:oasis:names:tc:opendocument:xmlns:container">
+  <rootfiles>
+    <rootfile full-path="OPS/#{name}" media-type="application/oebps-package+xml"/>
+  </rootfiles>
+</container>
+          EOS
+          Dir.foreach(tmpdir) do |entry|
+            path = File.join tmpdir, entry
+            if File.ftype(path) == 'file'
+              zh.put_next_entry("OPS/#{entry}")
+              zh << File.read(path)
+            end
+          end
+        end
+      end
+      def self.document_filename doc, count
+        title = doc.title.dup
+        title = 'part' if title.empty?
+        filename sprintf("%i %s.html", count, title[0,32])
+      end
+      def self.document_to_html doc, ids, tmpdir
+        factory = HtmlFactory.new(doc, ids, tmpdir)
+        [factory.to_html, factory.uid]
+      end
+      def self.export docs, target, override_tmpdir=nil
+        ids = []
+        with_tmpdir do |tmpdir|
+          tmpdir = override_tmpdir || tmpdir
+          # HTML
+          if EBPS.config.sort
+            docs = docs.sort_by do |doc|
+              doc.title.sortable
+            end
+          end
+          docs.each_with_index do |doc, idx|
+            count = idx.next
+            local_ids = []
+            html, id = document_to_html doc, local_ids, tmpdir
+            name = document_filename doc, count
+            write tmpdir, name, html
+            ids.push [name, id, doc.title, local_ids]
+          end
+          # Indices
+          ncx_ids = write_index ids, tmpdir
+          # NCX
+          xml = to_ncx docs, ncx_ids, tmpdir
+          write tmpdir, 'toc.ncx', xml
+          # Copy the Cover
+          cover = EBPS.config.cover
+          FileUtils.cp cover, File.join(tmpdir, File.basename(cover))
+          # Copy the stylesheet
+          style = EBPS.config.stylesheet
+          FileUtils.cp style, File.join(tmpdir, File.basename(style))
+          # Appendix
+          if appendix = EBPS.config.appendix
+            add_appendix appendix, ids, tmpdir
+          end
+          # OPF
+          title = EBPS.config.title || docs.first.title
+          name = filename("%s.opf" % title)
+          xml = to_opf docs, ids, tmpdir
+          write tmpdir, name, xml
+          yield tmpdir, name
+        end
+      end
+      def self.filename name
+        name.gsub(/\s+/u, '_').gsub(/[^0-9a-z_.]/iu, '')
+      end
+      def self.to_index key, keys, ids, tmpdir
+        IndexFactory.new(key, keys, ids, tmpdir).to_html
+      end
+      def self.to_ncx docs, ids, tmpdir
+        NcxFactory.new(docs, ids, tmpdir).to_ncx
+      end
+      def self.to_opf docs, ids, tmpdir
+        OpfFactory.new(docs, ids, tmpdir).to_opf
+      end
+      def self.with_tmpdir &block
+        tmpdir = Dir.mktmpdir
+        block.call tmpdir
+      ensure
+        FileUtils.rm_r tmpdir unless EBPS.config.keep_tmpfiles
+      end
+      def self.write tmpdir, name, data
+        FileUtils.mkdir_p tmpdir
+        path = File.join tmpdir, name
+        File.open path, 'wb' do |fh| fh.puts data end
+        path
+      end
+      def self.write_index ids, tmpdir
+        tbl = {}
+        ids.each do |data|
+          name, id, title, local_ids = data
+          (tbl[title.sortable[0,1]] ||= []).push data
+        end
+        ncx_ids = []
+        waypoints = []
+        tbl.sort_by do |key, key_ids|
+          /[a-z]/.match(key) ? key : "{#{key}"
+        end.each do |key, key_ids|
+          name = nil
+          if EBPS.config.html_index
+            name = "#{key}.html"
+            html = to_index key, key_ids, ids, tmpdir
+            write tmpdir, name, html
+          else
+            name, = key_ids.first
+          end
+          descr = "#{key.upcase} (#{key_ids.size})"
+          nav_point = [ name, key, descr ]
+          ncx_ids.push nav_point
+          ## Kindle does not like nested nav_points for content that is not
+          #  contained in the same file.
+          if EBPS.config.kindle_quirks
+            waypoints.concat key_ids
+          else
+            nav_point.push key_ids
+          end
+        end
+        if EBPS.config.html_index
+          html = to_index 'toc-html', ncx_ids, ids, tmpdir
+          write tmpdir, 'toc.html', html
+          ids.replace(ncx_ids + ids)
+          ids.unshift [ 'toc.html', 'toc-html', EBPS.config.index_name ]
+        end
+        if EBPS.config.kindle_quirks
+          ncx_ids.concat waypoints
+        end
+        ncx_ids
+      end
+    end
+  end
+end