sisu 7.0.0

data/lib/sisu/html_concordance.rb

@@ -0,0 +1,391 @@
+# encoding: utf-8
+=begin
+
+* Name: SiSU
+
+** Description: documents, structuring, processing, publishing, search
+*** concordance file (html, wordmap, linked index of words in document)
+
+** Author: Ralph Amissah
+  <ralph@amissah.com>
+  <ralph.amissah@gmail.com>
+
+** Copyright: (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+  2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Ralph Amissah,
+  All Rights Reserved.
+
+** License: GPL 3 or later:
+
+  SiSU, a framework for document structuring, publishing and search
+
+  Copyright (C) Ralph Amissah
+
+  This program is free software: you can redistribute it and/or modify it
+  under the terms of the GNU General Public License as published by the Free
+  Software Foundation, either version 3 of the License, or (at your option)
+  any later version.
+
+  This program is distributed in the hope that it will be useful, but WITHOUT
+  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+  FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
+  more details.
+
+  You should have received a copy of the GNU General Public License along with
+  this program. If not, see <http://www.gnu.org/licenses/>.
+
+  If you have Internet connection, the latest version of the GPL should be
+  available at these locations:
+  <http://www.fsf.org/licensing/licenses/gpl.html>
+  <http://www.gnu.org/licenses/gpl.html>
+
+  <http://www.sisudoc.org/sisu/en/manifest/gpl.fsf.html>
+
+** SiSU uses:
+  * Standard SiSU markup syntax,
+  * Standard SiSU meta-markup syntax, and the
+  * Standard SiSU object citation numbering and system
+
+** Hompages:
+  <http://www.jus.uio.no/sisu>
+  <http://www.sisudoc.org>
+
+** Git
+  <http://git.sisudoc.org/gitweb/?p=code/sisu.git;a=summary>
+  <http://git.sisudoc.org/gitweb/?p=code/sisu.git;a=blob;f=lib/sisu/html_concordance.rb;hb=HEAD>
+
+=end
+module SiSU_Concordance
+  require_relative 'se_hub_particulars'                 # se_hub_particulars.rb
+    include SiSU_Particulars
+  require_relative 'se'                                 # se.rb
+    include SiSU_Env
+  require_relative 'html_format'                        # html_format.rb
+    include SiSU_HTML_Format
+  require_relative 'html_minitoc'                       # html_minitoc.rb
+  class Source
+    def initialize(opt)
+      @opt=opt
+      @particulars=SiSU_Particulars::CombinedSingleton.instance.get_all(opt)
+    end
+    def read
+      begin
+        @env,@md=@particulars.env,@particulars.md
+        @env.url.output_tell
+        unless @md.opt.act[:quiet][:set]==:on
+          tool=(@md.opt.act[:verbose][:set]==:on \
+          || @md.opt.act[:verbose_plus][:set]==:on \
+          || @md.opt.act[:maintenance][:set]==:on) \
+          ? "#{@env.program.web_browser} #{@md.file.output_path.html_concordance.dir}/#{@md.file.base_filename.html_concordance}"
+          : "[#{@opt.f_pth[:lng_is]}] #{@opt.fno}"
+          (@md.opt.act[:verbose][:set]==:on \
+          || @md.opt.act[:verbose_plus][:set]==:on \
+          || @md.opt.act[:maintenance][:set]==:on) \
+          ? SiSU_Screen::Ansi.new(
+              @opt.act[:color_state][:set],
+              "Concordance",
+              tool
+            ).green_hi_blue
+          : SiSU_Screen::Ansi.new(
+              @opt.act[:color_state][:set],
+              'Concordance',
+              tool
+            ).green_title_hi
+        end
+        wordmax=@env.concord_max
+        unless @md.wc_words.nil?
+          if @md.wc_words < wordmax
+            SiSU_Concordance::Source::Words.new(@particulars).songsheet
+          else
+            SiSU_Screen::Ansi.new(
+              @md.opt.act[:color_state][:set],
+              "concordance skipped, large document has over #{wordmax} words (#{@md.wc_words})"
+            ).warn unless @md.opt.act[:quiet][:set]==:on
+          end
+        else
+          SiSU_Screen::Ansi.new(
+            @md.opt.act[:color_state][:set],
+            "wc (word count) is off, concordance will be processed for all files including those over the max set size of: #{wordmax} words"
+          ).warn unless @md.opt.act[:quiet][:set]==:on
+          SiSU_Concordance::Source::Words.new(@particulars).songsheet
+        end
+      rescue
+        SiSU_Errors::Rescued.new($!,$@,@md.opt.selections.str,@md.fns).location do
+          __LINE__.to_s + ':' + __FILE__
+        end
+      ensure
+        SiSU_Env::CreateSite.new(@opt).cp_css
+        Dir.chdir(@opt.f_pth[:pth])
+      end
+    end
+    private
+    class DocTitle
+      #revisit, both requires (html & xml_shared) needed for stand alone operation (sisu -w [filename])
+      require_relative 'xml_shared'                     # xml_shared.rb
+      require_relative 'html'                           # html.rb
+      def initialize(particulars)
+        @particulars,@md=particulars,particulars.md
+        @data=SiSU_HTML::Source::HTML_Environment.new(particulars).tuned_file_instructions
+        @file=SiSU_Env::FileOp.new(@md)
+        @fnb=@md.fnb
+        @lex_button=%{<a href="http://www.jus.uio.no/sisu/" target="_top"><img border="0" height="44" width="144" valign="center" src="#{@file.path_rel_links.html_seg_2}_sisu/image/sisu.png" alt="SiSU home --&gt;"></a>}
+        @doc_details =<<WOK
+<table summary="links to text related to this rudimentary index" width="96%" border="0" cellpadding="0" align="center"><tr><td width="2%" align="right">&nbsp;</td><td width="94%" valign="top" align="justify"><h1 class="small"><a href="#{@md.file.base_filename.html_segtoc}"><b>#{@md.title.full}</b></a></h1><p class="bold">#{@md.author}</p></td></tr></table>
+WOK
+        @make=SiSU_Env::ProcessingSettings.new(@md)
+      end
+      def create
+        head_banner=SiSU_HTML_Format::HeadToc.new(@md)
+        minitoc=SiSU_HTML_MiniToc::TocMini.new(@md,@data).songsheet.join("\n")
+        stylesheet=SiSU_Style::CSS_HeadInfo.new(@md).stylesheet
+        if @make.build.manifest_minitoc?
+          toc='<div class="toc">' + minitoc + '</div>'
+          div_class='content'
+        else
+          toc=''
+          div_class='content0'
+        end
+        top_band=if @make.build.html_top_band?
+          head_banner.concordance_navigation_band
+        else ''
+        end
+        <<WOK
+<!DOCTYPE html>
+<html>
+<head>
+  <meta charset="utf-8">
+  <title>
+    SiSU created WordIndex for: #{@md.title.full}
+  </title>
+  <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
+  <meta name="Description" content="&nbsp;SiSU created">
+  <meta name="keywords" content="word index for #{@md.title.full}">
+  <meta name="generator" content="SiSU (Linux &amp; Ruby!)">
+  <link rel="generator" href="http://www.jus.uio.no/sisu" />
+  <link rel="shortcut icon" href="../_sisu/image/rb7.ico" />
+  #{stylesheet.css_head_seg}
+</head>
+<body>
+  #{top_band}
+  #{toc}
+<div class="#{div_class}">
+ #{@doc_details}
+<p>Word index links are to html versions of the text the segmented version followed by the scroll (single document) version.<br>[For segmented text references [T1], [T2] or [T3] appearing without a link, indicates that the word appears in a title (or subtitle) of the text (that is identifiable by the appended object citation number).]</p>
+<p>(The word listing/index is Case sensitive: Capitalized words appear before lower case)</p>
+  <p>
+    <b>word</b> (number of occurences)<br>linked references to word within document <br>
+    [if number of occurences exceed number of references - word occurs more than once in at least one reference. Footnote/endnotes are either assigned to the paragraph from which they are referenced or ignored, so it is relevant to check the footnotes referenced from within a paragraph as well.]
+  </p>
+  <p>
+    (After the page is fully loaded) you can jump directly to a word by appending a hash (#) and the word to the url for this text, (do not forget that words are case sensitive, and may be listed twice (starting with and without an upper case letter)), #your_word # [&nbsp;http://[web host]/#{@fnb}/concordance.html#your_word&nbsp;]
+  </p>
+WOK
+      end
+    end
+    class Word
+      @@word_previous=''
+      def initialize(word,freq)
+        @word,@freq=word,freq
+      end
+      def html
+        w=if @word.capitalize==@@word_previous
+          %{\n<p class="concordance_word">#{@word}</p><p class="concordance_count">(#{@freq})</p>\n\t<p class="concordance_object"> }
+        else n=@word.strip.gsub(/\s+/,'_') #also need to convert extended character set to html
+          %{\n<p class="concordance_word"><a name="#{n}">#{@word}</a></p><p class="concordance_count">(#{@freq})</p>\n\t<p class="concordance_object"> }
+        end
+        @@word_previous=@word.capitalize
+        w
+      end
+    end
+    class Words
+      require_relative 'i18n'                           # i18n.rb
+        include SiSU_i18n
+      require_relative 'html_format'                    # html_format.rb
+        include SiSU_HTML_Format
+      require_relative 'se'                             # se.rb
+        include SiSU_Screen
+      @@dp=nil
+      def initialize(particulars)
+        @particulars=particulars
+        begin
+          @env,@md,@ao_array=particulars.env,particulars.md,particulars.ao_array
+          @file=SiSU_Env::FileOp.new(@md)
+          @freq=Hash.new(0)
+          @dp=@@dp ||=SiSU_Env::InfoEnv.new.digest.pattern
+          @rxp_lv1=/^#{Mx[:lv_o]}1:/ #fix @rxp_lv #  Mx[:lv_o]
+          @rxp_lv2=/^#{Mx[:lv_o]}2:/ #fix @rxp_lv #  Mx[:lv_o]
+          @rxp_lv3=/^#{Mx[:lv_o]}3:/ #fix @rxp_lv #  Mx[:lv_o]
+          @rxp_title=Regexp.new("^#{Mx[:meta_o]}title#{Mx[:meta_c]}\s*(.+?)\s*$")
+          @rxp_t1=Regexp.new('^T1')
+          @rxp_t2=Regexp.new('^T2')
+          @rxp_t3=Regexp.new('^T3')
+          @rxp_excluded1=/#{Mx[:url_o]}\S+?#{Mx[:url_c]}|#{Mx[:rel_o]}\S+?#{Mx[:rel_c]}/
+          @rxp_excluded0=/^(?:#{Mx[:fa_bold_o]}|#{Mx[:fa_italics_o]})?(?:to\d+|\d+|&nbsp;|#{Mx[:br_endnotes]}|EOF|#{Mx[:br_eof]}|thumb_\S+|snap_\S+|_+|-+|[(]?(?:ii+|iv|vi+|ix|xi+|xiv|xv|xvi+|xix|xx)[).]?|\S+?_\S+|[\d_]+\w\S+|[\w\d]{1,2}|\d{1,3}\w?|#{@dp}|[0-9a-f]{16,64}|\d{2,3}x\d{2,3}|\S{0,2}sha\d|\S{0,3}\d{4}w\d\d|\b\w\d+|\d_all\b|e\.?g\.?)(?:#{Mx[:fa_bold_c]}|#{Mx[:fa_italics_c]})?$/mi #this regex causes and cures a stack dump in ruby 1.9 !!!
+          @rgx_splitlist=%r{[—.,;:#{Mx[:nbsp]}-]}mi
+          @alph=SiSU_i18n::Alphabet.new(@md.opt.lng).hash_arrays
+          @alphlst=SiSU_i18n::Alphabet.new(@md.opt.lng).hash_strings
+          @rgx_scanlist=%r{#{Mx[:fa_italics_o]}[#{@alphlst[:l]}#{@alphlst[:u]}0-9"\s]{2,12}#{Mx[:fa_italics_c]}|#{Mx[:fa_bold_o]}[#{@alphlst[:l]}#{@alphlst[:u]}0-9"\s]{2,12}#{Mx[:fa_bold_c]}|(?:https?|file)://\S+|<\S+?>|[#{@alphlst[:l]}#{@alphlst[:u]}]+|\w+}mi
+        rescue
+          SiSU_Errors::Rescued.new($!,$@,@md.opt.selections.str,@md.fns).location do
+            __LINE__.to_s + ':' + __FILE__
+          end
+        end
+      end
+      def songsheet
+        begin
+          FileUtils::mkdir_p(@file.output_path.html_concordance.dir) \
+            unless FileTest.directory?(@file.output_path.html_concordance.dir)
+          @file_concordance=File.open(@file.place_file.html_concordance.dir,'w')
+          map_para
+        rescue
+          SiSU_Errors::Rescued.new($!,$@,@md.opt.selections.str,@md.fns).location do
+            __LINE__.to_s + ':' + __FILE__
+          end
+        ensure
+          @file_concordance.close
+        end
+      end
+    protected
+      def location_scroll(wordlocation,show)                    # not used
+        %{<a href="doc#{@md.lang_code_insert}#{Sfx[:html]}\##{Mx[:ocn_id_char]}#{wordlocation}">#{wordlocation}</a>;  }
+      end
+      def location_seg(wordlocation,show)
+        unless wordlocation.nil?
+          wl=wordlocation.gsub(/(.+?)\#(\d+)/,
+            "\\1#{@md.lang_code_insert}#{Sfx[:html]}##{Mx[:ocn_id_char]}\\2")     # id="o\d+" always available; a name="\d+" not available if html strict used
+          case wordlocation
+          when /#{@rxp_t1}|@rxp_t2}|#{@rxp_t3}/
+            %{[<a href="doc#{@md.lang_code_insert}#{Sfx[:html]}##{show}">H</a>]#{show},  }
+          when /(.+?)\#(\d+)/
+             %{<a href="#{wl}">#{show}</a>,  }
+          end
+        end
+      end
+      def map_para
+        @seg,ocn=nil,nil
+        @word_map={}
+        @ao_array.each do |line|
+          if defined? line.ocn \
+          and line.ocn.to_s =~/\d/
+            if (line.is ==:heading \
+            || line.is ==:heading_insert) \
+            && line.ln==4
+              @seg=line.name
+            end
+            ocn=line.ocn.to_s
+            if ocn =~/\d+/ \
+            and ocn !~/^0$/
+              line.obj=line.obj.gsub(/#{@rxp_excluded1}/,' ')
+              line.obj=line.obj.split(@rgx_splitlist).join(' ') #%take in word or other match
+              for word in line.obj.scan(@rgx_scanlist) #%take in word or other match
+                if word =~ /^([#{@alphlst[:l]}])/
+                  firstletter=$1
+                  flu=firstletter.tr(@alphlst[:l],@alphlst[:u])
+                  word=word.gsub(/^#{firstletter}/,flu )
+                end
+                word=word.gsub(/#{Mx[:lnk_o]}|#{Mx[:lnk_c]}|#{Mx[:url_o]}|#{Mx[:url_c]}/,'').
+                  gsub(/#{Mx[:fa_o]}\S+?#{Mx[:fa_o_c]}/,'').
+                  gsub(/#{Mx[:fa_c_o]}\S+?#{Mx[:fa_c]}/,'').
+                  gsub(/#{Mx[:gl_o]}#[a-z]+#{Mx[:gl_c]}/,'').
+                  gsub(/#{Mx[:gl_o]}#[0-9]+#{Mx[:gl_c]}/,'')
+                word=word.gsub(/[0-9a-f]{10,}/,' ') if word =~/[0-9]/
+                word=word.gsub(/#{Mx[:br_line]}/,' ').
+                  gsub(/^ +/,'').
+                  gsub(/^\S$/,'')
+                word=nil if word.empty?
+                word=nil if word =~@rxp_excluded0 #watch
+                word=nil if word =~/^\S$/
+                if word
+                  word=word.gsub(/#{Mx[:br_nl]}|#{Mx[:br_line]}/,' ').
+                    gsub(/#{Mx[:fa_o]}[a-z]{1,7}#{Mx[:fa_o_c]}|#{Mx[:fa_c_o]}[a-z]{1,7}#{Mx[:fa_c]}/,'').
+                    gsub(/#{Mx[:en_a_o]}(?:\d|[*+])*|#{Mx[:en_b_o]}(?:\d|[*+])*|#{Mx[:en_a_c]}|#{Mx[:en_b_c]}/mi,'').
+                    gsub(/#{Mx[:fa_o]}\S+?#{Mx[:fa_o_c]}/,'').
+                    gsub(/#{Mx[:fa_c_o]}\S+?#{Mx[:fa_c]}/,'').
+                    gsub(/<\/?\S+?>/,'').
+                    gsub(/^\@+/,'').
+                    strip.
+                    gsub(/#{Mx[:tc_p]}.+/,'').
+                    gsub(/[\.,;:"]$/,'').
+                    gsub(/["]/,'').
+                    gsub(/^\s*[\(]/,'').
+                    gsub(/[\(]\s*$/,'').
+                    gsub(/^(?:See|e\.?g\.?).+/,'').
+                    gsub(/^\s*[.,;:]\s*/,'').
+                    strip.
+                    gsub(/^\(?[a-zA-Z]\)$/,'').
+                    gsub(/^\d+(st|nd|rd|th)$/,'').
+                    gsub(/^(\d+\.?)+$/, '').
+                    gsub(/#{Mx[:mk_o]}|#{Mx[:mk_c]}/,'').
+                    gsub(/:name#\S+/,'').
+                    gsub(/^\S$/,'')
+                  word=nil if word =~/^\S$/
+                  word=nil if word =~/^\s*$/ #watch
+                  if word
+                    unless word =~/[A-Z][A-Z]/ \
+                    or word =~/\w+\s\w+/
+                      word=word.capitalize
+                    end
+                    @freq[word] +=1
+                    @word_map[word] ||= []
+                    if line !~ /#{@rxp_lv1}|#{@rxp_lv2}|#{@rxp_lv3}/
+                      loc_=%{#{location_seg("#{@seg}\##{ocn}",ocn).to_s}}
+                      unless loc_.empty?
+                        @word_map[word] << loc_
+                      end
+                    else
+                      @word_map[word] << case line
+                      when @rxp_lv1 then location_seg('T1',ocn) #fix @rxp_lv #  Mx[:lv_o]
+                      when @rxp_lv2 then location_seg('T2',ocn) #fix @rxp_lv #  Mx[:lv_o]
+                      when @rxp_lv3 then location_seg('T3',ocn) #fix @rxp_lv #  Mx[:lv_o]
+                      end
+                    end
+                  end
+                end
+              end
+            end
+          end
+        end
+        seg=''
+        head=SiSU_Concordance::Source::DocTitle.new(@particulars).create
+        head=head.gsub(/#{Xx[:html_relative2]}/m,@file.path_rel_links.html_seg_2).
+          gsub(/#{Xx[:html_relative1]}/m,@file.path_rel_links.html_seg_1)
+        @file_concordance << head
+        @file_concordance << '<p>'
+        alph=@alph[:u]
+        alph.each {|x| @file_concordance << %{<a href="##{x}">#{x}</a>,&nbsp;}}
+        @file_concordance << '</p>'
+        letter=alph.shift
+        @file_concordance << %{\n<p class="letter"><a name="A">A</a></p>}
+        for word in @freq.keys.sort! {|a,b| a.downcase<=>b.downcase}
+          f=/^(\S)/.match(word)[1]
+          if letter < f.upcase
+            while letter < f.upcase
+              if alph.length > 0
+                letter=alph.shift
+                @file_concordance << %{\n<p class="letter"><a name="#{letter}">#{letter}</a></p>}
+              else break
+              end
+            end
+          end
+          keyword=SiSU_Concordance::Source::Word.new(word,@freq[word]).html
+          if keyword !~ @rxp_excluded0
+            if @word_map[word][0] =~ /\d+/
+              @file_concordance << %{#{keyword}#{seg}#{@word_map[word].uniq.compact.join}}
+            end
+            @file_concordance << '</p>'
+          end
+          # special cases endnotes and header levels 1 - 3
+        end
+        @file_concordance << %{</div></body>\n</html>} # footer
+        if @md.opt.act[:verbose_plus][:set]==:on \
+        || @md.opt.act[:maintenance][:set]==:on
+          SiSU_Screen::Ansi.new(
+            @md.opt.act[:color_state][:set],
+            @md.fns,
+            "#{@md.file.output_path.html_concordance.dir}/#{@md.file.base_filename.html_concordance}"
+          ).flow
+        end
+      end
+    end
+  end
+end
+__END__

data/lib/sisu/html_format.rb

@@ -0,0 +1,1348 @@
+# encoding: utf-8
+=begin
+
+* Name: SiSU
+
+** Description: documents, structuring, processing, publishing, search
+*** html formating, css template
+
+** Author: Ralph Amissah
+  <ralph@amissah.com>
+  <ralph.amissah@gmail.com>
+
+** Copyright: (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+  2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Ralph Amissah,
+  All Rights Reserved.
+
+** License: GPL 3 or later:
+
+  SiSU, a framework for document structuring, publishing and search
+
+  Copyright (C) Ralph Amissah
+
+  This program is free software: you can redistribute it and/or modify it
+  under the terms of the GNU General Public License as published by the Free
+  Software Foundation, either version 3 of the License, or (at your option)
+  any later version.
+
+  This program is distributed in the hope that it will be useful, but WITHOUT
+  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+  FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
+  more details.
+
+  You should have received a copy of the GNU General Public License along with
+  this program. If not, see <http://www.gnu.org/licenses/>.
+
+  If you have Internet connection, the latest version of the GPL should be
+  available at these locations:
+  <http://www.fsf.org/licensing/licenses/gpl.html>
+  <http://www.gnu.org/licenses/gpl.html>
+
+  <http://www.sisudoc.org/sisu/en/manifest/gpl.fsf.html>
+
+** SiSU uses:
+  * Standard SiSU markup syntax,
+  * Standard SiSU meta-markup syntax, and the
+  * Standard SiSU object citation numbering and system
+
+** Hompages:
+  <http://www.jus.uio.no/sisu>
+  <http://www.sisudoc.org>
+
+** Git
+  <http://git.sisudoc.org/gitweb/?p=code/sisu.git;a=summary>
+  <http://git.sisudoc.org/gitweb/?p=code/sisu.git;a=blob;f=lib/sisu/html_format.rb;hb=HEAD>
+
+=end
+module SiSU_HTML_Format
+  require_relative 'html_parts'                         # html_parts.rb
+  class ParagraphNumber
+    def initialize(md,ocn)
+      @md,@ocn=md,ocn.to_s
+      @ocn ||=''
+      @make=SiSU_Env::ProcessingSettings.new(@md)
+    end
+    def ocn_display
+      if @make.build.ocn?
+        if @ocn.to_i==0 \
+        or @ocn.empty?
+          ''
+        else
+          %{<label class="ocn"><a href="##{@ocn}" class="lnkocn">#{@ocn}</a></label>}
+        end
+      else
+        ''
+      end
+    end
+    def name
+      if @make.build.html_strict? \
+      or @ocn==(nil || @ocn.empty?)
+        ''
+      else
+        %{<a name="#{@ocn}"></a>}
+      end
+    end
+    def id #w3c? "tidy" complains about numbers as identifiers ! annoying
+      (@ocn==nil || @ocn.empty?) \
+      ? '' : %{id="#{Mx[:ocn_id_char]}#{@ocn}"}
+    end
+    def goto
+      (@ocn==nil || @ocn.empty?) \
+      ? '' : %{<a href="##{@ocn}">}
+    end
+  end
+  class HeadInformation
+    require_relative 'css'                              # css.rb
+    include SiSU_Parts_HTML
+    require_relative 'xml_shared'                       # xml_shared.rb
+    attr_reader :md,:rdf
+    def initialize(md)
+      @md=md
+      # DublinCore 1 - title
+      @bits=SiSU_Proj_HTML::Bits.new
+      @per=SiSU_HTML_Persist::Persist.new
+      @per.seg_name_x=SiSU_HTML::Seg.new.seg_name_x
+      @per.seg_name_x_tracker=SiSU_HTML::Seg.new.seg_name_x_tracker
+      @tocband_scroll,@tocband_segtoc=nil,nil
+      @stylesheet=SiSU_Style::CSS_HeadInfo.new(md).stylesheet
+      @o_str ||=SiSU_Env::ProcessingSettings.new(md).output_dir_structure
+      @index,@metalink='index','#metadata'
+      @toc=@md.file.base_filename.html_segtoc
+    end
+    def url_path_image_sys
+      (@o_str.dump_or_redirect?) \
+      ? './image'
+      : "#{Xx[:html_relative2]}_sisu/image_sys"
+    end
+    def icon
+      def up
+        'arrow_up_red.png'
+      end
+      def next
+        'arrow_next_red.png'
+      end
+      def previous
+        'arrow_prev_red.png'
+      end
+      def dot_clear
+        'dot_clear.png'
+      end
+      def dot_white
+        'dot_white.png'
+      end
+      def dot
+        dot_white
+      end
+      self
+    end
+    def png_nav
+      def toc
+        %{<img border="0" width="22" height="22" src="#{url_path_image_sys}/#{icon.up}" alt="toc" />}
+      end
+      def pre
+        %{<img border="0" width="22" height="22" src="#{url_path_image_sys}/#{icon.previous}" alt="&lt;&lt;&nbsp;previous" />}
+      end
+      def nxt
+        %{<img border="0" width="22" height="22" src="#{url_path_image_sys}/#{icon.next}" alt="next&nbsp;&gt;&gt;" />}
+      end
+      def dot_toc
+        %{<img border="0" width="100%" height="20" src="#{url_path_image_sys}/#{icon.dot}" alt="&#094;" />}
+      end
+      def dot_pre
+        %{<img border="0" width="100%" height="20" src="#{url_path_image_sys}/#{icon.dot}" alt="&lt;" />}
+      end
+      def dot_nxt
+        %{<img border="0" width="100%" height="20" src="#{url_path_image_sys}/#{icon.dot}" alt="&gt;" />}
+      end
+      self
+    end
+    def doc_types(page=:seg) #used in toc & seg_nav_band
+      wgt=SiSU_HTML_Format::Widget.new(@md)
+      %{
+<table summary="segment navigation available documents types: toc,doc,pdf,concordance" border="0" cellpadding="3" cellspacing="0">
+<tr>
+<td align="center" bgcolor=#{the_color.band2}>
+  #{wgt.manifest(page)}
+  #{wgt.search}
+</tr></table>}
+    end
+    def rdf
+      SiSU_XML_Tags::RDF.new(md)
+    end
+    def button_home(page=:seg)
+      button=%{ <table summary="home button / home information" border="0" cellpadding="3" cellspacing="0">\n <tr><td align="left" bgcolor="#ffffff">\n}
+      if @md.make.home_button_image.is_a?(Hash)
+        image_path=if page==:manifest
+          @md.file.output_path.manifest.rel_image
+        elsif  page==:scroll
+          @md.file.output_path.html_scroll.rel_image
+        else
+          @md.file.output_path.html_seg.rel_image
+        end
+        SiSU_Env::FileOp.new(@md)
+        button +=%{   <p class="tiny_left"><a href="#{@md.make.home_button_image[:link]}" target="_top"><img border="0" src="#{image_path}/#{@md.make.home_button_image[:home_button]}"  width="#{@md.make.home_button_image[:w]}" height="#{@md.make.home_button_image[:h]}" alt="home icon --&gt;" /></a></p>\n}
+      elsif @md.home_button_links.is_a?(Array)
+        @md.home_button_links.each do |links|
+          button +=%{  <p class="tiny_left"><a href="#{links[:url]}" target="_top">\n    #{links[:say]}\n  </a></p>\n}
+        end
+      end
+      button +=%{ </td></tr>\n </table>}
+      button
+    end
+    def html_close #moved
+    %{</body>
+</html>}
+    end
+  end
+  class Widget < HeadInformation
+    include SiSU_Parts_HTML
+    def initialize(md)
+      super(md)
+      @md=md
+      @cf_defaults=SiSU_Env::InfoProcessingFlag.new
+      @env=SiSU_Env::InfoEnv.new(md.fns)
+      @file=SiSU_Env::FileOp.new(md)
+      @o_str ||=SiSU_Env::ProcessingSettings.new(md).output_dir_structure
+      @make=SiSU_Env::ProcessingSettings.new(md)
+    end
+    def home
+      %{<td align="center" bgcolor=#{the_color.band2}>
+  <a href="../index.html" target="_top">
+  #{the_nav.txt_homepage}</a>
+</td>
+}
+    end
+    def scroll(text)
+      if @md.fns =~ /\.(?:-|ssm\.)?sst$/
+        %{<td align="center" bgcolor=#{the_color.band2}>
+  <a href="#{Xx[:html_relative1]}html/#{@file.base_filename.html_scroll}" target="_top">
+    #{text}
+  </a>
+</td>
+}
+      end
+    end
+    def seg(text)
+      %{<td align="center" bgcolor="#99CC66">
+  <a href="#{@md.file.base_filename.html_segtoc}" target="_top">
+    #{text}
+  </a>
+</td>
+}
+    end
+    def search
+      if @make.build.html_search_form?
+        env=SiSU_Env::InfoEnv.new(@md.fns,@md)
+        env.widget.search_form('sisusearch',nil,nil,true)
+      else ''
+      end
+    end
+    def manifest(page=:seg)
+      if @make.build.links_to_manifest? \
+      and not @o_str.dump_or_redirect?
+        manifest_lnk=if @file.output_dir_structure.by_language_code? \
+        or @file.output_dir_structure.by_filetype?
+          "#{Xx[:html_relative1]}manifest/#{@file.base_filename.manifest}"
+        else @file.base_filename.manifest
+        end
+        if page==:manifest
+          manifest_lnk="#{@md.file.output_path.manifest.url}/#{@file.base_filename.manifest}"
+          %{<td align="center" bgcolor=#{the_color.band2}>
+  <font face="#{the_font.set_fonts}" size="2">
+  #{the_url_decoration.xml_open}<a href="#{manifest_lnk}" target="_top">#{@md.file.output_path.manifest.url}/#{@file.base_filename.manifest}</a>#{the_url_decoration.xml_close}
+  </font>
+</td>}
+        else
+          %{<td align="center" bgcolor=#{the_color.band2}>
+  <a href="#{manifest_lnk}" target="_top">
+    #{the_nav.txt_manifest}
+  </a>
+</td>}
+        end
+      else ''
+      end
+    end
+  end
+  class XML
+  end
+  class HeadToc < HeadInformation
+    def initialize(md)
+      super(md)
+      @md=md
+      @o_str ||=SiSU_Env::ProcessingSettings.new(md).output_dir_structure
+      @make=SiSU_Env::ProcessingSettings.new(@md)
+      @file=SiSU_Env::FileOp.new(@md)
+    end
+    def scroll_head_navigation_band
+      if @make.build.html_top_band?
+        <<WOK
+<td align="center" width="60%">
+  #{make_scroll_search_form_and_manifest_link}
+</td>
+WOK
+        %{<table summary="table of contents scroll navigation band" id="toc" width="100%" bgcolor=#{the_color.band1}>
+<tr><td width="20%">
+  #{button_home(:scroll)}
+</td>
+<td width="75%" align="center">
+  #{doc_types}
+</td>
+<td width="20%">
+  &nbsp;
+#{the_table_close}
+<p>}
+      else ''
+      end
+    end
+    def concordance_navigation_band
+      up_button=if @make.build.html_navigation?
+        %{</td>
+<td width="5%" align="right">
+  &nbsp;<a href="toc.html" target="_top" alt="-&gt;">
+      #{png_nav.toc}
+    </a>&nbsp;
+}
+      else ''
+      end
+      if @make.build.html_top_band?
+        %{<table summary="concordance navigation band" id="toc" width="100%" bgcolor=#{the_color.band1}>
+<tr><td width="20%">
+  #{button_home}
+</td>
+<td width="75%" align="center">
+  #{doc_types}
+#{up_button}
+#{the_table_close}
+<p>}
+      else ''
+      end
+    end
+    def seg_head_navigation_band(page=:seg)
+      if @make.build.html_navigation?
+        if page==:manifest
+          nxt=(@file.output_dir_structure.by_language_code? \
+          || @file.output_dir_structure.by_filetype?) \
+          ? "../html/#{@md.fnb}/toc#{@md.lang_code_insert}#{Sfx[:html]}"
+          : "toc#{@md.lang_code_insert}#{Sfx[:html]}"
+          firstseg=%{<a href="#{nxt}" target="_top" alt="-&gt;">
+          #{png_nav.nxt}</a>}
+        elsif @md.firstseg =~/\S+/
+          firstseg=%{<a href="#{@md.firstseg}#{@md.lang_code_insert}#{Sfx[:html]}" target="_top" alt="-&gt;">
+        #{png_nav.nxt}</a>}
+        end
+      else ''
+      end
+      if @make.build.html_top_band?
+        %{<table summary="table of contents segment navigation band" id="toc" width="100%" bgcolor=#{the_color.band1}>
+<tr><td width="20%">
+#{button_home(page)}
+</td>
+<td width="75%" align="center">
+  #{doc_types(page)}
+</td>
+<td width="5%" align="right">
+  &nbsp;#{firstseg}&nbsp;
+#{the_table_close}
+<p>}
+      else ''
+      end
+    end
+    def manifest_link(text)
+#     @file=SiSU_Env::FileOp.new(@md) if @md
+  %{<font size=2>
+    <a href="#{@md.file.base_filename.manifest}" target="_top">#{text}</a>
+  </font>}
+    end
+    def concordance_link(text)
+      if @md.concord_make
+  %{<font size=2>
+    <a href="#{@md.file.base_filename.html_concordance}" target="_top">
+      #{text}
+    </a>
+  </font>}
+      else ''
+      end
+    end
+    def make_scroll_search_form_and_manifest_link
+      wgt=SiSU_HTML_Format::Widget.new(@md)
+      %{<td align="center" bgcolor=#{the_color.band2}>
+  #{the_nav.txt_doc_link}
+</td>
+}
+      %{<table summary="toc segment and scroll with pdf" border="0" cellpadding="3" cellspacing="0">
+<tr>
+  #{wgt.manifest}
+  #{wgt.search}
+</tr></table>}
+    end
+    def make_scroll_seg_pdf
+      seg=''
+      wgt=SiSU_HTML_Format::Widget.new(@md)
+      seg=%{<td align="center" bgcolor=#{the_color.band2}>
+  #{the_nav.txt_toc_link}
+</td>
+}
+      %{<table summary="toc scroll and segment with pdf" border="0" cellpadding="3" cellspacing="0">
+<tr>
+<td align="center" bgcolor=#{the_color.band2}>
+  #{wgt.manifest}
+  #{wgt.search}
+</tr></table>}
+    end
+    def make_concordance
+      wgt=SiSU_HTML_Format::Widget.new(@md)
+      %{<table summary="toc scroll and segment with pdf" border="0" cellpadding="3" cellspacing="0">
+<tr>
+<td align="center" bgcolor=#{the_color.band2}>
+  #{wgt.manifest}
+  #{wgt.search}
+</tr></table>}
+    end
+    def head
+      rdf=SiSU_XML_Tags::RDF.new(@md)
+      %{<!DOCTYPE html>
+<html>
+<head>
+  <meta charset="utf-8">
+  <title>
+    #{@md.title.full}
+  </title>
+<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
+#{rdf.metatag_html}
+#{@stylesheet.css_head}
+</head>
+<body lang="#{@md.opt.lng}">
+<a name="top" id="top"></a>}
+    end
+    def concordance
+      if @md.concord_make
+      %{#{the_margin.css}
+  <h4 class="toc">
+    <a href="./#{@md.file.base_filename.html_concordance}">
+      <i>Concordance</i>
+    </a>
+  </h4>
+#{table_close}}
+      else
+      %{#{the_margin.css}
+#{table_close}}
+      end
+    end
+    def links_guide_vertical_open
+#     @file=SiSU_Env::FileOp.new(@md) if @md
+      %{
+<div id="vertical_links">
+  <ul id="vertical">
+  <li class="refbold">
+    <a href="#{the_url.home}">
+      #{the_text.txt_hp}
+    </a>
+  </li>
+  <li class="ref">
+     Quick Ref.:
+  </li>
+  <li class="ref">
+    <a href="#{@md.file.base_filename.manifest}" alt="Document Manifest" target="_top">
+      Manifest
+    </a>
+  </li>
+<!- quick ref -!>}
+    end
+    def links_guide_horizontal_open
+#     @file=SiSU_Env::FileOp.new(@md) if @md
+      %{
+<div id="horizontal_links">
+  <ul id="horizontal">
+  <li class="refbold">
+    <a href="#{the_url.home}">
+      #{the_text.txt_hp}
+    </a>
+  </li>
+  <li class="ref">
+     Quick Ref.:
+  </li>
+  <li class="ref">
+    <a href="#{@md.file.base_filename.manifest}" alt="Document Manifest" target="_top">
+      Manifest
+    </a>
+  </li>
+<!- quick ref -!>}
+    end
+    def links_guide_open(type='horizontal')
+      (type=='vertical') \
+      ? links_guide_vertical_open
+      : links_guide_horizontal_open
+    end
+    def links_guide_close
+      insert=''
+      insert=if @md.sfx_src =~/s?/
+        link='http://sisudoc.org'                          #get from defaults
+        url='sisudoc.org'
+        name='SiSU electronic documents'                   #get from defaults
+        insert= %{
+  <li class="ref">
+    <a href="#{link}" alt="#{name}" target="_top">
+      #{url}
+    </a>
+  </li>
+  </ul>
+</div>
+}
+      end
+      %{ #{insert}
+<!- quick ref -!>}
+    end
+    def prefix_a
+    end
+    def rights
+      def all
+        rights=SiSU_HTML_Tune::CleanHTML.new(@md.rights.all).clean_for_html
+        rights=rights.gsub(/^\s*Copyright\s+\(C\)/,'Copyright <sup>&copy;</sup>&nbsp;')
+        %{<p class="small_left">Rights: #{rights}</p>
+<p>}
+      end
+      self
+    end
+    def prefix_b
+      %{<p class="small_left">Prefix: #{@md.prefix_b}<p />}
+    end
+    def scroll_head_title_banner_open
+      icon=@md.icon ? %{<center>\n#{@md.icon}\n</center>} : ''
+      %{#{icon}
+#{the_banner.instrument_cover_band_scr}}
+    end
+    def seg_head_title_banner_open
+      icon=@md.icon ? %{<center>\n#{@md.icon}\n</center>} : ''
+      %{#{icon}
+#{the_banner.instrument_cover_band_seg}}
+    end
+    def make_scroll
+      concord=concordance_link(the_nav.txt_concordance)
+      %{<table summary="toc scroll" border="0" cellpadding="3" cellspacing="0">
+<tr><td align="center" bgcolor="white" border="0">
+  #{the_nav.txt_doc_link}
+</td>
+<td align="center" bgcolor="white">
+   #{concord}
+#{the_table_close}}
+    end
+    def make_seg
+      concord=concordance_link(the_nav.txt_concordance)
+      %{<table summary="toc segment" border="0" cellpadding="3" cellspacing="0">
+<tr><td align="center" bgcolor="white">
+  #{the_nav.txt_toc_link}
+</td>
+<td align="center" bgcolor="white">
+  <font size=2>
+   #{concord}
+#{the_table_close}}
+    end
+    def manifest #check structure
+      if not @o_str.dump_or_redirect?
+        manifest=manifest_link(the_nav.txt_manifest)
+        %{#{the_margin.txt_3}
+  #{the_font.paragraph_font_small}
+   #{manifest}
+    </font>
+#{the_table_close}}
+      else ''
+      end
+    end
+    def concordance #check structure
+      concord=concordance_link(the_nav.txt_concordance)
+      %{#{the_margin.txt_3}
+  #{the_font.paragraph_font_small}
+   #{concord}
+    </font>
+#{the_table_close}}
+    end
+    def metadata
+      %{#{the_margin.css}
+  <h4 class="toc">
+    <a href="#{@metalink}">
+      <i>MetaData</i>
+    </a>
+  </h4>
+#{the_table_close}}
+    end
+    def seg_tail
+      %{
+<div class="main_column">
+<p>&nbsp;<p>
+<table summary="toc segment tail" bgcolor=#{the_color.band1}>
+<tr><td width="20%">
+  #{the_banner.banner_band}
+</td>
+<td width="60%">
+  <center>
+    #{@tocband_segtoc}
+  </center>
+</td></tr>
+</table>
+<p>&nbsp;</p>
+#{@bits.credits_sisu}
+<a name="bottom" id="bottom"></a>
+<a name="end" id="end"></a>
+</div>
+</div>
+</div>
+}
+    end
+    def scroll_tail #debug
+      nav=scroll_head_navigation_band
+      %{
+<div class="main_column">
+#{nav}
+#{@bits.credits_sisu}
+<a name="bottom" id="bottom"></a>
+<a name="end" id="end"></a>
+</div>
+}
+    end
+    def seg_navigation_tail #this is a bug area, look up and "tidy"
+      %{
+<div class="main_column">
+<p>&nbsp;</p>
+#{@bits.credits_sisu}
+<a name="bottom" id="bottom"></a>
+<a name="end" id="end"></a>
+</div>
+</div>
+</div>
+}
+    end
+  end
+  class HeadSeg < HeadInformation
+    def initialize(md)
+      super(md)
+    end
+    def dot_control_pre_next
+      pre="#{@per.seg_name_x[@per.seg_name_x_tracker-1]}#{@md.lang_code_insert}#{Sfx[:html]}"
+      up=@toc
+      nxt="#{@per.seg_name_x[@per.seg_name_x_tracker+1]}#{@md.lang_code_insert}#{Sfx[:html]}"
+      if nxt=~/sisu_manifest\.html/
+        @file=SiSU_Env::FileOp.new(@md) if @md
+        if @file.output_dir_structure.by_language_code? \
+        or @file.output_dir_structure.by_filetype?
+          nxt=nxt.gsub(/sisu_manifest\.html/,"../../manifest/#{@file.base_filename.manifest}")
+        end
+      end
+      %{<table summary="segment hidden control pre and next" width="100%" border="0" cellpadding="0" bgcolor=#{the_color.grey_pale} align="center">
+<tr><td align="left">
+  <a href="#{pre}" target="_top">
+    #{png_nav.dot_pre}
+  </a>
+</td>
+<td align="center">
+  <a href="#{up}" target="_top">
+    #{png_nav.dot_toc}
+  </a>
+</td>
+<td align="right">
+  <a href="#{nxt}" target="_top">
+    #{png_nav.dot_nxt}
+  </a>
+#{the_table_close}}
+    end
+    def dot_control_pre
+      pre="#{@per.seg_name_x[@per.seg_name_x_tracker-2]}#{@md.lang_code_insert}#{Sfx[:html]}"
+      up=@toc
+      nxt="#{@md.file.base_filename.html_segtoc}"
+      %{<table summary="segment hidden control pre" width="100%" border="0" cellpadding="0" bgcolor=#{the_color.grey_pale} align="center">
+<tr><td align="left">
+  <a href="#{pre}" target="_top">
+    #{png_nav.dot_pre}
+  </a>
+</td>
+<td align="center">
+  <a href="#{up}" target="_top">
+    #{png_nav.dot_toc}
+  </a>
+</td>
+<td align="right">
+  <a href="#{nxt}" target="_top">
+    #{png_nav.dot_nxt}
+  </a>
+#{the_table_close}}
+    end
+    def toc_nav(f_pre=false,f_nxt=false,use=1)
+      pre=nxt=''
+      toc=%{<td align="center" bgcolor=#{the_color.band1}>
+  <a href="#{@toc}" target="_top">
+    #{png_nav.toc}
+  </a>
+</td>}
+      pre=%{<td align="center" bgcolor=#{the_color.band1}>
+  <a href="#{@per.seg_name_x[@per.seg_name_x_tracker-use]}#{@md.lang_code_insert}#{Sfx[:html]}" target="_top">
+    #{png_nav.pre}
+  </a>
+</td>} if f_pre==true
+      nxt=%{<td align="center" bgcolor=#{the_color.band1}>
+  <a href="#{@per.seg_name_x[@per.seg_name_x_tracker+1]}#{@md.lang_code_insert}#{Sfx[:html]}" target="_top">
+    #{png_nav.nxt}
+  </a>
+</td>} if f_nxt==true
+      if nxt =~/sisu_manifest.html/
+        @file=SiSU_Env::FileOp.new(@md) if @md
+        if @file.output_dir_structure.by_language_code? \
+        or @file.output_dir_structure.by_filetype?
+          nxt=nxt.gsub(/sisu_manifest\.html/,"../../manifest/#{@file.base_filename.manifest}")
+        end
+      end
+      %{<table summary="segment navigation pre/next" border="0" cellpadding="3" cellspacing="0">
+<tr>
+#{pre}
+#{toc}
+#{nxt}
+<td>
+#{the_table_close}}
+    end
+    def toc_next2
+      toc_nav(false,true).dup
+    end
+    def toc_pre_next2
+      toc_nav(true,true).dup
+    end
+    def toc_pre2
+      toc_nav(true,false,2).dup
+    end
+    def manifest_link(text)
+  %{<font size=2>
+    <a href="#{@md.file.base_filename.manifest}" target="_top">
+      #{text}
+    </a>
+  </font>}
+    end
+    def concordance_link(text)
+      if @md.concord_make
+  %{<font size=2>
+    <a href="#{@md.file.base_filename.html_concordance}" target="_top">
+      #{text}
+    </a>
+  </font>}
+      else ''
+      end
+    end
+    def credit
+      %{
+<div class="main_column">
+#{@bits.credits_sisu}
+<a name="bottom" id="bottom"></a>
+<a name="end" id="end"></a>
+</div></div>
+}
+    end
+    def navigation_band(segtocband,seg_table_top_control) #change name to navigation_band_banner
+      %{<table summary="segment navigation band with banner" bgcolor=#{the_color.band1} width="100%"><tr>
+<td width="20%" align="left">
+#{button_home}
+</td>
+<td width="75%" align="center">
+  #{doc_types}
+</td>
+<td width="5%" align="right">
+  #{segtocband}
+</td></tr>
+</table>
+#{seg_table_top_control}}
+    end
+    def navigation_band_bottom(segtocband,seg_table_top_control) #change name to navigation_band_bannerless
+      %{
+<div class="main_column">
+  <table summary="segment navigation band" bgcolor=#{the_color.band1} width="100%"><tr>
+  <td width="70%" align="center">
+    #{doc_types}
+  </td>
+  <td width="5%" align="right">
+    #{segtocband}
+  </td></tr>
+  </table>
+  #{seg_table_top_control}
+</div>
+}
+    end
+    def endnote_mark
+%{
+<p class="center" id="endnotes">
+  <hr class="endnote" />
+</p>}
+    end
+    def endnote_section_open
+%{
+<div class="endnote">
+}
+    end
+    def endnote_section_close
+%{
+</div>
+} #revisit
+    end
+    def head_seg
+      rdf=SiSU_XML_Tags::RDF.new(@md)
+      %{<!DOCTYPE html>
+<html>
+<head>
+  <meta charset="utf-8">
+  <title>
+    #{@per.seg_name_x[@per.seg_name_x_tracker]} -
+    #{@md.title.main}
+  </title>
+<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
+#{rdf.metatag_html}
+#{@stylesheet.css_head_seg}
+</head>
+<body lang="#{@md.opt.lng}">
+<a name="top" id="top"></a>}
+    end
+    def title_banner(title,subtitle,creator)
+      %{
+<div class="summary">
+  <p class="tiny">
+    #{title}
+  </p>
+  <p class="tiny">
+    #{subtitle}
+  </p>
+  <p class="tiny">
+    #{creator}
+  </p>
+  <p class="tiny">
+    copy @
+    <a href="#{the_url.home}">
+      #{the_text.txt_home}
+    </a>
+  </p>
+</div>
+}
+    end
+  end
+  class HeadScroll < HeadToc
+    def initialize(md)
+      super(md)
+    end
+    def toc_owner_details
+      %{#{the_margin.txt_3}
+#{the_font.paragraph_font_small}
+  <a href="#owner.details">
+    Owner Details
+    <font size="1" color="#777777">
+      &nbsp;&nbsp;&nbsp;
+    </font>
+  </a>
+  </font>
+#{the_table_close}}
+    end
+  end
+  class FormatTextObject
+    include SiSU_Parts_HTML
+    attr_accessor :md,:t_o,:txt,:ocn,:format,:table,:link,:linkname,:paranum,:p_num,:headname,:banner,:url
+    def initialize(md,t_o)
+      @md,@t_o=md,t_o
+      @make=SiSU_Env::ProcessingSettings.new(@md)
+      if t_o.is_a?(Hash)
+        @txt            =t_o[:txt]            || nil
+        @ocn            =t_o[:ocn]            || nil
+        @ocn_display    =t_o[:ocn_display]    || nil
+        @headname       =t_o[:headname]       || nil
+        @trailer        =t_o[:trailer]        || nil
+        @endnote_part_a =t_o[:endnote_part_a] || nil
+        @endnote_part_b =t_o[:endnote_part_b] || nil
+        @lnk_url        =t_o[:lnk_url]        || nil
+        @lnk_txt        =t_o[:lnk_txt]        || nil
+        @format         =t_o[:format]         || nil
+      elsif t_o.class.inspect =~/^(?:#<)?SiSU_AO_DocumentStructure/
+        @dob=t_o if defined? t_o.is
+        @named=nametags_seg(@dob)
+        @txt=((defined? t_o.obj) ? t_o.obj : nil)
+        @ocn=((defined? t_o.ocn) ? t_o.ocn.to_s : nil)
+        @headname=((t_o.is==:heading and defined? t_o.name) ? t_o.name : nil)
+      else
+        if @md.opt.act[:maintenance][:set]==:on
+          p t_o.class
+          p caller
+        end
+      end
+      @headnamed=(@headname ? %{<a id="h#{@headname}"></a>} : nil)
+      if @txt and not @txt.empty?
+        @txt=@txt.gsub(/#{Mx[:mk_o]}[-~]##{Mx[:mk_c]}/,'')
+      end
+      @p_num=ParagraphNumber.new(@md,@ocn)
+    end
+    def nametags_scroll(dob)
+      tags=''
+      if defined? dob.tags \
+      and dob.tags.length > 0 # insert tags "hypertargets"
+        dob.tags.each do |t|
+          t=t.gsub(/[^a-z0-9._-]/,'') #use for all html tags? consider limiting to strict? or implementing earlier
+          tags=tags << %{<named id="#{t}" />}
+        end
+      end
+      tags
+    end
+    def nametags_seg(dob) #FIX
+      tags=''
+      if defined? dob.tags \
+      and dob.tags.length > 0 # insert tags "hypertargets"
+        dob.tags.each do |t|
+          t=t.gsub(/[^a-z0-9._-]/,'') #use for all html tags? consider limiting to strict? or implementing earlier
+          tags=(t =~/^[0-9.]+$/) \
+          ? tags             #check what can be sorted in ao
+          : (tags << %{<a name="#{t}" ></a>})
+        end
+      end
+      tags
+    end
+    def headname #check whether used
+      hn=if @t_o.is ==:heading \
+      and not @t_o.name.empty? #determine use
+        hn=(@t_o.is ==:heading) \
+        ? (%{<a id="h#{@t_o.name}"></a>})
+        : (%{<a id="#{@t_o.name}"></a>})
+      else nil
+      end
+      hn
+    end
+    def endnote_body
+      %{
+<p class="endnote">
+  #{@txt}
+</p>
+}
+    end
+    def endnote_body_indent
+      %{
+  <p class="endnote_indent">
+    #{@txt}
+  </p>
+}
+    end
+    def no_paranum
+      %{
+<div class="substance">
+  <label class="ocn">&nbsp;</label>
+  <p class="norm">
+    #{@txt}
+  </p>
+</div>
+}
+    end
+    def para_form_css(tag,attrib)                                                    # regular paragraphs shaped here
+      ul=ulc=''
+      if tag =~/li/
+        ul,ulc="<ul>\n  ","\n  </ul>"
+      end
+      %{
+<div class="substance">
+  #{@p_num.ocn_display}
+  #{ul}<#{tag} class="#{attrib}" #{@p_num.id}>
+    #{@named}#{@txt}
+  </#{tag}>#{ulc}
+</div>
+}
+    end
+    def para
+      para_form_css('p','norm')
+    end
+    def block
+      para_form_css('p','block')
+    end
+    def group
+      para_form_css('p','group')
+    end
+    def alt
+      para_form_css('p','alt')
+    end
+    def verse
+      para_form_css('p','verse')
+    end
+    def code
+      para_form_css('p','code')
+    end
+    def center
+      para_form_css('p','center')
+    end
+    def bold
+      para_form_css('p','bold')
+    end
+    def bullet
+      para_form_css('li','bullet')
+    end
+    def table
+      @txt=if @t_o.obj !~/^<table\s/
+        table=SiSU_HTML_Shared::TableHTML.new(@t_o) #move, make happen earlier
+        @txt=table.table.obj
+      else @txt
+      end
+      para_form_css('p','norm')
+    end
+    def format(tag,attrib)
+      para_form_css(tag,attrib)
+    end
+    def heading_normal(tag,attrib)
+      section_break=(tag=~/h[1-5]/) \
+      ? '<br><hr width=90% /><br>'
+      : ''
+      %{#{section_break}
+<div class="substance">
+  #{@p_num.ocn_display}
+  <#{tag} class="#{attrib}" #{@p_num.id}>#{@p_num.name}
+    #{@named}#{@txt}
+  </#{tag}>
+</div>
+}
+    end
+    def heading_body
+      heading_normal('p','norm')
+    end
+    def heading_body0
+      heading_normal('h1','norm')
+    end
+    def heading_body1
+      heading_normal('h1','norm')
+    end
+    def heading_body2
+      heading_normal('h2','norm')
+    end
+    def heading_body3
+      heading_normal('h3','norm')
+    end
+    def heading_body4
+      heading_normal('h4','norm')
+    end
+    def heading_body5
+      heading_normal('h5','norm')
+    end
+    def heading_body6
+      heading_normal('h6','norm')
+    end
+    def heading_body7
+      heading_normal('h7','norm')
+    end
+    def title_heading(tag,attrib)
+      cl=(@make.build.html_minitoc?) \
+      ? 'content'
+      : 'content0'
+      %{
+<div class="#{cl}">
+<#{tag} class="#{attrib}">
+    #{@named}#{@txt}
+  </#{tag}>
+</div>
+}
+    end
+    def title_heading0
+      title_heading('h1','tiny')
+    end
+    def title_heading1
+      title_heading('h1','tiny')
+    end
+    def title_heading2
+      title_heading('h2','tiny')
+    end
+    def title_heading3
+      title_heading('h3','tiny')
+    end
+    def title_heading4
+      ''
+    end
+    def seg_heading_sub(tag,attrib)
+      @txt=@txt.gsub(/(?:#{Mx[:en_a_o]}.+?#{Mx[:en_a_c]}|#{Mx[:en_b_o]}.+?#{Mx[:en_b_c]})\s*/m,' ')
+      %{
+<div class="substance">
+  #{@p_num.ocn_display}
+  <#{tag} class="#{attrib}" #{@p_num.id}>#{@p_num.name} #{@headnamed}
+    #{@named}#{@txt}
+  </#{tag}>
+</div>
+}
+    end
+    def seg_heading4
+      %{
+<div class="substance">
+  #{@p_num.ocn_display}
+  <h1 class="norm" #{@p_num.id}>#{@p_num.name}
+    #{@txt}
+  </h1>
+</div>
+}
+    end
+    def seg_heading5
+      seg_heading_sub('p','bold')
+    end
+    def seg_heading6
+      seg_heading_sub('p','bold')
+    end
+    def dl #check :trailer
+      "<dl><b>#{@txt}</b> #{@trailer}</dl>"
+    end
+    def table_css_end
+      '</table>
+    </p>
+  </div>'
+    end
+    def gsub_body #fix
+      @txt=case @txt
+      when /^\((i+|iv|v|vi+|ix|x|xi+)\)/
+        @txt.gsub(/^\((i+|iv|v|vi+|ix|x|xi+)\)/,'<b>(\1)</b>')
+      when /^\(?(\d|[a-z])+\)/
+        @txt.gsub(/^\((\d+|[a-z])+\)/,'<b>(\1)</b>')
+      when /^\s*\d{1,3}\.\s/
+        @txt.gsub(/^\s*(\d+\.)/,'<b>\1</b>')
+      when /^\s*[A-Z]\.\s/
+        @txt.gsub(/^\s*([A-Z]\.)/,'<b>\1</b>')
+      else @txt
+      end
+    end
+    def bold_para
+      %{#{the_margin.txt_0}
+  <p class="bold">
+    #{@txt}
+  </p>
+#{the_margin.num_css}
+  &nbsp;&nbsp;&nbsp;
+#{the_table_close}}
+    end
+    def bold_heading
+      %{<p class="bold">
+    #{@txt}
+  </p>
+#{the_margin.num_css}
+  &nbsp;&nbsp;&nbsp;
+#{the_table_close}}
+    end
+    def toc_head_copy_at
+      %{<p class="center">#{@txt}</p>\n}
+    end
+    def center
+      %{<p class="center">#{@txt}</p>\n}
+    end
+    def bold
+      %{<p class="bold">#{@txt}</p>\n}
+    end
+    def center_bold
+      %{<p class="centerbold">#{@txt}</p>\n}
+    end
+  end
+  class FormatScroll < FormatTextObject
+    def initialize(md,txt)
+      super(md,txt)
+    end
+  end
+  class FormatSeg < FormatTextObject
+    def initialize(md,txt)
+      super(md,txt)
+    end
+    def endnote_seg_body(fn='')
+      fn="../#{@md.fnb}" if fn.to_s.empty?
+      %{
+  <p class="endnote">
+    #{@endnote_part_a}#{fn}#{@md.lang_code_insert}#{Sfx[:html]}#{@endnote_part_b}
+  </p>
+}
+    end
+    def clean(txt)
+      txt=txt.gsub(/#{Mx[:en_a_o]}.+?#{Mx[:en_a_c]}/,'').
+        gsub(/#{Mx[:en_b_o]}.+?#{Mx[:en_b_c]}/,'')
+    end
+    def subtoc_lev(tag,attrib)
+      @txt=clean(@txt)
+      txt=if @txt \
+      and @txt =~/<\/?i>|<a\s+name="\S+?">/mi
+        @txt.gsub(/<\/?i>|<a\s+name="\S+?">/mi,'') #removes name markers from subtoc, go directly to substantive text
+      else @txt
+      end
+      note=''
+      if txt =~/(#{Mx[:en_a_o]}.+?#{Mx[:en_a_c]}|#{Mx[:en_b_o]}.+?#{Mx[:en_b_c]})/m # had \s* at end
+        note=$1
+        note=note.gsub(/[\s]+/m,' ')
+        txt=txt.gsub(/(?:#{Mx[:en_a_o]}.+?#{Mx[:en_a_c]}|#{Mx[:en_b_o]}.+?#{Mx[:en_b_c]})\s*/m,' ').
+          gsub(/<a[\s]+name="-\d+"[\s]+href="#_\d+">&nbsp;<sup>\d+<\/sup>&nbsp;/m,'')
+      end
+      %{<#{tag} class="#{attrib}">
+    <a href="##{@ocn}"><i>#{txt}</i></a> #{note}
+  </#{tag}>}
+    end
+    def subtoc_lev5
+      subtoc_lev('h5','subtoc') if @txt
+    end
+    def subtoc_lev6
+      subtoc_lev('h6','subtoc') if @txt
+    end
+    def subtoc_lev7
+      subtoc_lev('h7','subtoc') if @txt
+    end
+    def heading_sub(tag,attrib)
+      @txt=@txt.gsub(/(?:#{Mx[:en_a_o]}.+?#{Mx[:en_a_c]}|#{Mx[:en_b_o]}.+?#{Mx[:en_b_c]})\s*/m,' ')
+      %{
+<div class="substance">
+  #{@p_num.ocn_display}
+  <#{tag} class="#{attrib}" #{@p_num.id}>#{@p_num.name} #{@headnamed}
+    #{@txt}
+  </#{tag}>
+</div>
+}
+    end
+    def heading5
+      heading_sub('p','bold')
+    end
+    def heading6
+      heading_sub('p','bold')
+    end
+    def heading4
+      %{
+<div class="substance">
+  #{@p_num.ocn_display}
+  <h1 class="norm" #{@p_num.id}>#{@p_num.name}
+    #{@t_o[:format]}
+    #{@txt}
+  </h1>
+</div>
+}
+    end
+    def navigation_heading4
+      %{<table summary="navigation segment heading 4" width=100% bgcolor="#08163f" border="0">
+<tr><td align="center">
+<p class="bold">
+  #{@txt}
+</p>
+#{the_table_close}}
+    end
+    def navigation_heading5
+      %{<p class="bold">
+  #{@txt}
+</p>}
+    end
+    def navigation_heading6
+      %{<p class="bold">
+  #{@txt}
+</p>}
+    end
+    def navigation_center
+      "<center>#{@txt}</center>"
+    end
+  end
+  class FormatToc < FormatTextObject
+    def initialize(md,txt)
+      super(md,txt)
+    end
+    def links_guide
+      %{  <li class="doc">
+    <a href="#{@lnk_url}" target="_top">
+      #{@lnk_txt}
+    </a>
+  </li>
+}
+    end
+    def lev(tag,attrib)
+      if @txt
+        %{<#{tag} class="#{attrib}">
+    #{@txt}
+  </#{tag}>
+}
+      else ''
+      end
+    end
+    def lev0 #docinfo
+      lev('h1','toc')
+    end
+    def lev1
+      lev('h1','toc')
+    end
+    def lev2
+      lev('h2','toc')
+    end
+    def lev3
+      lev('h3','toc')
+    end
+    def lev4
+      lev('h4','toc')
+    end
+    def lev5
+      lev('h5','toc')
+    end
+    def lev6
+      lev('h6','toc')
+    end
+    def lev7
+      lev('h7','toc')
+    end
+    def strip_endnotes(txt)
+      txt=txt.gsub(/(?:#{Mx[:en_a_o]}.+?#{Mx[:en_a_c]}|#{Mx[:en_b_o]}.+?#{Mx[:en_b_c]})\s*/m,' ')
+      txt
+    end
+    def mini_lev0
+      @txt=strip_endnotes(@txt)
+      lev('h1','minitoc')
+    end
+    def mini_lev1
+      @txt=strip_endnotes(@txt)
+      lev('h1','minitoc')
+    end
+    def mini_lev2
+      @txt=strip_endnotes(@txt)
+      lev('h2','minitoc')
+    end
+    def mini_lev3
+      @txt=strip_endnotes(@txt)
+      lev('h3','minitoc')
+    end
+    def mini_lev4
+      @txt=strip_endnotes(@txt)
+      lev('h4','minitoc')
+    end
+    def mini_lev5
+      @txt=strip_endnotes(@txt)
+      lev('h5','minitoc')
+    end
+    def mini_lev6
+      @txt=strip_endnotes(@txt)
+      lev('h6','minitoc')
+    end
+    def mini_lev7
+      @txt=strip_endnotes(@txt)
+      lev('h7','minitoc')
+    end
+    def mini_lev0 #docinfo
+      lev('h1','minitoc')
+    end
+    def mini_tail
+  %{
+  <h4 class="minitoc">
+    <a href="sisu_manifest.html">Manifest (alternative outputs)</a>
+  </h4>
+}
+    end
+    def mini_concord_tail
+  %{
+  <h4 class="minitoc">
+    <a href="concordance.html">Concordance (wordlist)</a>
+  </h4>
+  <h4 class="minitoc">
+    <a href="sisu_manifest.html">Manifest (alternative outputs)</a>
+  </h4>
+}
+    end
+  end
+  class FormatStr
+    def initialize(md,str)
+      @str=str
+    end
+    def center
+      %{<p class="center">#{@str}</p>\n}
+    end
+    def bold
+      %{<p class="bold">#{@str}</p>\n}
+    end
+    def center_bold
+      %{<p class="centerbold">#{@str}</p>\n}
+    end
+    def endnote_body
+      %{
+<p class="endnote">
+  #{@str}
+</p>
+}
+    end
+  end
+end
+__END__