v4: 4.0.0 new branch & version & changelog "opened"

1 files changed, 0 insertions, 1377 deletions

diff --git a/lib/sisu/v2/texpdf_format.rb b/lib/sisu/v2/texpdf_format.rb
deleted file mode 100644
index 018232ac..00000000
--- a/lib/sisu/v2/texpdf_format.rb
+++ /dev/null
@@ -1,1377 +0,0 @@
-# coding: utf-8
-=begin
-
- * Name: SiSU
-
- * Description: a framework for document structuring, publishing and search
-
- * Author: Ralph Amissah
-
- * Copyright: (C) 1997 - 2011, 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.jus.uio.no/sisu/gpl.fsf/toc.html>
-   <http://www.jus.uio.no/sisu/gpl.fsf/doc.html>
-   <http://www.jus.uio.no/sisu/gpl.fsf/plain.txt>
-
- * 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>
-
- * Download:
-   <http://www.jus.uio.no/sisu/SiSU/download.html>
-
- * Ralph Amissah
-   <ralph@amissah.com>
-   <ralph.amissah@gmail.com>
-
- ** Description: LaTeX formatting template, unicode utf-8 version, used for pdf
-
-=end
-module SiSU_TeX_Pdf
-  @@table_pg_break_counter=1
-  include SiSU_Viz
-  class Bare_urls
-    def initialize(md,dob=nil)
-      @md,@dob=md,dob
-      @brace_url=SiSU_Viz::Skin.new.url_decoration
-    end
-    def bare_urls
-      @dob.obj.gsub!(/#{Mx[:url_o]}([a-zA-Z0-9._-]+\@\S+?\.[a-zA-Z0-9._-]+)#{Mx[:url_c]}/,
-        "#{@brace_url.tex_open}\\1</a>#{@brace_url.tex_close}")
-      @dob.tmp.gsub!(/(^|[^\\])_/m,'\1\_') #watch may not work
-      @dob.tmp.gsub!(/(^|[^#{Mx[:lnk_c]}])#{Mx[:url_o]}_?(?:\\?_)?(\S+?)#{Mx[:url_c]}/m,
-        "\\1#{@brace_url.tex_open}\\begin{scriptsize}\\url{\\2}\\end{scriptsize}#{@brace_url.tex_close}")
-      @dob
-    end
-    def bare_urls_in_code
-      @dob.tmp.gsub!(/(^|[^\\])_/m,'\1\_') #watch may not work
-      @dob.tmp.gsub!(/(https?:\/\/\S+?)([{]|[.,;)\]]?(?: |$))/m,
-        '\begin{scriptsize}\url{\1}\end{scriptsize}\2')
-      @dob
-    end
-  end
-  class Format_text_object
-    require 'iconv'
-    require "#{SiSU_lib}/defaults"                         # defaults.rb
-    attr_accessor :string,:string1,:orientation,:url,:dir,:tex
-    @@sys=SiSU_Env::System_call.new
-    @@tex_pattern_margin_number=/\\begin\{tiny\}\\hspace\{0mm\}\\end\{tiny\}\{\\marginpar.+?\}\}\}/
-    @@tableheader={
-      'a4' => { :p => 0, :l => 0 },
-      'a5' => { :p => 0, :l => 0 },
-      'b5' => { :p => 0, :l => 0 },
-      'letter' => { :p => 0, :l => 0 },
-      'legal' => { :p => 0, :l => 0 }
-    }
-    @@sys=SiSU_Env::System_call.new
-    def initialize(md,dob=nil)
-      @md,@dob=md,dob
-      if defined? @md.image \
-      and @md.image =~/center/
-        @center_begin,@center_end='\begin{center}','\end{center}'
-      else @center_begin,@center_end='',''
-      end
-      @start_table=''
-      @tx=SiSU_Env::Get_init.instance.tex
-      @brace_rel=SiSU_Viz::Skin.new.rel_decoration
-      @env ||=SiSU_Env::Info_env.new(@md.fns)
-      @tex2pdf=@@tex3pdf ||=SiSU_Env::System_call.new.tex2pdf_engine
-    end
-    def ocn_display(dob)
-      "\\begin{tiny}\\hspace{0mm}\\end{tiny}{\\marginpar{\\begin{tiny}\\hspace{0mm}\\hypertarget{#{dob.ocn}}{#{dob.ocn}}\\end{tiny}}}" #ocn object citation numbering
-    end
-    def table_special_characters(r)
-      r.gsub!(/#{Mx[:tc_p]}|$/u,'&')
-      r.gsub!(/%/,'\%')
-      r.gsub!(/#{Mx[:fa_bold_o]}(.+?)#{Mx[:fa_bold_c]}/,'\begin{bfseries}\1 \end{bfseries}')
-      r.gsub!(/#{Mx[:fa_italics_o]}(.+?)#{Mx[:fa_italics_c]}/,'\emph{\1}')
-      r.gsub!(/#{Mx[:fa_underscore_o]}(.+?)#{Mx[:fa_underscore_c]}/,'\uline{\1}') # ulem
-      r.gsub!(/#{Mx[:fa_cite_o]}(.+?)#{Mx[:fa_cite_c]}/,"``\\1''") # quote #CHECK
-      r.gsub!(/#{Mx[:fa_insert_o]}(.+?)#{Mx[:fa_insert_c]}/,'\uline{\1}') # ulem
-      r.gsub!(/#{Mx[:fa_strike_o]}(.+?)#{Mx[:fa_strike_c]}/,'\sout{\1}') # ulem
-      r.gsub!(/#{Mx[:fa_superscript_o]}(.+?)#{Mx[:fa_superscript_c]}/,"\$^{\\textrm{\\1}}\$")
-      r.gsub!(/#{Mx[:fa_subscript_o]}(.+?)#{Mx[:fa_subscript_c]}/,"\$_{\\textrm{\\1}}\$")
-      r
-    end
-    def longtable_landscape
-      end_table='\end{longtable}'
-      row_break='\\\\\\'
-      txt=if @dob.is=='table'
-        tw=case @dob.tmp[:paper_size]
-        when /a4/i;      @tx.a4.landscape.w     #European default, SiSU default
-        when /letter/i;  @tx.letter.landscape.w #U.S. default
-        when /legal/i;   @tx.legal.landscape.w  #U.S. alternative
-        when /book|b5/i; @tx.b5.landscape.w     #book default - larger
-        when /a5/i;      @tx.a5.landscape.w
-        else             @tx.a4.landscape.w     #default currently A4
-        end
-        textwidth=(tw.to_i/2) - 24
-        colW=[]
-        colW << '{'
-        @dob.widths.each  do |x|
-          x=(x.to_i * textwidth)/100
-          col_w=x.to_s # x.gsub(/.+/,'l\|') #unless x.nil?
-          colW << "p{#{col_w}mm}" if col_w
-        end
-        colW << '}'
-        colW=colW.join
-        start_table="\n\\setlength{\\LTleft}{0pt}\n\\setlength{\\LTright}{\\fill}\n" +
-          "\\begin{tiny}\n\\begin{longtable}#{colW}\n"
-        rows=@dob.obj.split(/#{Mx[:br_nl]}/)
-        if @dob.head_ #result imperfect, check on
-          rows[0].gsub!(/(^|.+?)(?:#{Mx[:tc_p]}|$)/u,'\bfseries \1&')
-          rows[0].gsub!(/&\s*$/," #{row_break} \\hline\\endhead #{row_break}")
-        end
-        rows.each do |r|
-          r=table_special_characters(r)
-          r.gsub!(/$/," #{row_break}\n") unless r =~/#{row_break*2}$/
-          if r=~/\<!f(.+?)!\>/ # not tested table footer if any
-            tablefoot=$1
-            r.gsub!(/\<!f(.+?)!\>/,'')
-            r="#{r} \\multicolumn{#{@dob.cols}}{l}{\\tiny #{tablefoot}} \\\\ \\hline\n\\endfoot\n\\hline\n"
-          end
-        end
-        table=rows.join #@dob[:dal].obj=rows.join
-        ocn_display(@dob) + start_table + table + " #{end_table}\n\\end{tiny}"
-      else ''
-      end
-    end
-    def longtable_portrait
-      end_table='\end{longtable}'
-      row_break='\\\\\\'
-      txt=if @dob.is=='table'
-        tw=case @dob.tmp[:paper_size]
-        when /a4/i;      @tx.a4.portrait.w     #European default, SiSU default
-        when /letter/i;  @tx.letter.portrait.w #U.S. default
-        when /legal/i;   @tx.legal.portrait.w  #U.S. alternative
-        when /book|b5/i; @tx.b5.portrait.w     #book default - larger
-        when /a5/i;      @tx.a5.portrait.w
-        else             @tx.a4.portrait.w     #default currently A4
-        end
-        textwidth=tw.to_i - 20
-        colW=[]
-        colW << '{'
-        @dob.widths.each  do |x|
-          x=(x.to_i * textwidth)/100 #x=(x.to_i/100.0 * 160)
-          col_w=x.to_s # x.gsub(/.+/,'l\|') #unless x.nil?
-          colW << "p{#{col_w}mm}" if col_w
-        end
-        colW << '}'
-        colW=colW.join
-        start_table="\n\\setlength{\\LTleft}{0pt}\n\\setlength{\\LTright}{\\fill}\n" +
-          "\\begin{tiny}\n\\begin{longtable}#{colW}\n"
-        rows=@dob.obj.split(/#{Mx[:br_nl]}/)
-        if @dob.head_
-          rows[0].gsub!(/(^|.+?)(?:#{Mx[:tc_p]}|$)/u,'\bfseries \1&')
-          rows[0].gsub!(/&\s*$/," #{row_break} \\hline\\endhead #{row_break}")
-        end
-        rows.each do |r|
-          r=table_special_characters(r)
-          r.gsub!(/$/," #{row_break}\n") unless r =~/#{row_break*2}$/
-          if r=~/\<!f(.+?)!\>/ # not tested table footer if any
-            tablefoot=$1
-            r.gsub!(/\<!f(.+?)!\>/,'')
-            r="#{r} \\multicolumn{#{@dob.cols}}{l}{\\tiny #{tablefoot}} \\\\ \\hline\n\\endfoot\n\\hline\n"
-          end
-        end
-        table=rows.join #@dob[:dal].obj=rows.join
-        ocn_display(@dob) + start_table + table + " #{end_table}\n\\end{tiny}"
-      else ''
-      end
-    end
-    def heading_major
-      dob=@dob
-      title=@md.title.full
-      dob.tmp.strip! if dob.tmp
-      dob.tmp.gsub!(/\\begin\{(bfseries|itshape)\}(.+?)\\end\{\1\}/m,'\2')
-      cont_ln=dob.tmp.dup
-      cont_ln.gsub!(/\\begin\{(monosp)\}(.+?)\\end\{\1\}/m,'\2')
-      cont_ln.gsub!(@@tex_pattern_margin_number,'')
-      clearp=(dob.lv =~/B/ && dob.obj =='Metadata') ? "\\clearpage\n" : ''
-      if dob.tmp =~/\\[Ff]ootnote/ #and dob =~/^[1-6]#{Tex[:tilde]}/ # removing footnotes from headings!
-        cont_ln.gsub!(/\s*\\footnote\[\d+\]\{%\n .+? \}\s*/,' ')
-        cont_ln.gsub!(/\s*\\Footnote[A]\{[*+]+\d*\}\{%\n .+? \}\s*/,' ')
-      end
-      dob.tmp.gsub!(/^(.*)\n?$/m,
-        "#{clearp}\\part*{\\1}
-\\addcontentsline{toc}{section}{#{cont_ln}}
-\\markboth{#{title}}\n")
-      dob
-    end
-    def level4
-      dob=@dob
-      dob.tmp.strip! if dob.tmp
-      dob.tmp.gsub!(/\\begin\{(bfseries|itshape)\}(.+?)\\end\{\1\}/m,'\2')
-      cont_ln=dob.tmp.dup
-      cont_ln.gsub!(/\\begin\{(monosp)\}(.+?)\\end\{\1\}/m,'\2')
-      cont_ln.gsub!(@@tex_pattern_margin_number,'')
-      cont_ln.gsub!(/#{Tex[:backslash]*2}/,"#{Tex[:backslash]*4}") # added w42
-      cont_ln.gsub!(/\\footnote\[\d+\]\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
-      cont_ln.gsub!(/\\Footnote[A]\{[*+]+\d*\}\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
-      title=@md.title.full
-      if dob.name =~/endnotes/
-        dob.tmp.gsub!(/.+/m,'')
-      end
-      if dob.tmp =~/\\footnote/ #and dob =~/^[1-6]#{Tex[:tilde]}/ # removing footnotes from headings!
-        cont_ln.gsub!(/\s*\\footnote\[\d+\]\{%\n .+? \}\s*/,' ')
-        cont_ln.gsub!(/\s*\\Footnote[A]\{[*+]+\d*\}\{%\n .+? \}\s*/,' ')
-      end
-      dob.tmp.gsub!(/^(.*)?\n?$/m,"\\subsubsection*{\\1}
-\\addcontentsline{toc}{subsection}{#{cont_ln}}
-\\markright{#{title}}")
-      dob
-    end
-    def level5
-      dob=@dob
-      # there is a problem here with creation of headers does not do what you would want it to header starts with a * and is not in bold work on \\@txt*, same for next section 2002w46
-      dob.tmp.strip! if dob.tmp
-      dob.tmp.gsub!(/\\begin\{(bfseries|itshape)\}(.+?)\\end\{\1\}/m,'\2')
-      cont_ln=dob.tmp.dup
-      cont_ln.gsub!(/\\begin\{(monosp)\}(.+?)\\end\{\1\}/m,'\2')
-      cont_ln.gsub!(@@tex_pattern_margin_number,'')
-      cont_ln.gsub!(/\\footnote\[\d+\]\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
-      cont_ln.gsub!(/\\Footnote[A]\{[*+]+\d*\}\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
-      cont_ln.gsub!(/\\\&/,' and ') #revisit: tmp bugfix 200507, substitutes & with 'and' in toc, needed e.g. for AT&T, see ffa
-      if dob.tmp =~/\\footnote/ #and dob =~/^[1-6]#{Tex[:tilde]}/ # removing footnotes from headings!
-        cont_ln.gsub!(/\s*\\footnote\[\d+\]\{%\n .+? \}\s*/,' ')
-        cont_ln.gsub!(/\s*\\Footnote[A]\{[*+]+\d*\}\{%\n .+? \}\s*/,' ')
-      end
-      dob.tmp.gsub!(/^(.*)?\n?$/m,
-        "\\subsubsection*{\\1}
-\\addcontentsline{toc}{subsubsection}{#{cont_ln} \\\\
-}")
-      dob
-    end
-    def level6
-      dob=@dob
-      # there is a problem here with creation of headers does not do what you would want it to header starts with a * and is not in bold work on \\sub@txt*, same for previous section 2002w46
-      dob.tmp.strip! if dob.tmp
-      dob.tmp.gsub!(/\\begin\{(bfseries|itshape)\}(.+?)\\end\{\1\}/m,'\2')
-      cont_ln=dob.tmp.dup
-      cont_ln.gsub!(/\\begin\{(monosp)\}(.+?)\\end\{\1\}/m,'\2')
-      cont_ln.gsub!(@@tex_pattern_margin_number,'')
-      cont_ln.gsub!(/\\footnote\[\d+\]\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
-      cont_ln.gsub!(/\\Footnote[A]\{[*+]+\d*\}\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
-      if dob.tmp =~/\\footnote/ #and dob =~/^[1-6]#{Tex[:tilde]}/ # removing footnotes from headings!
-        cont_ln.gsub!(/\s*\\footnote\[\d+\]\{%\n .+? \}\s*/,' ')
-        cont_ln.gsub!(/\s*\\Footnote[A]\{[*+]+\d*\}\{%\n .+? \}\s*/,' ')
-      end
-      dob.tmp.gsub!(/^(.*)?\n?$/m,
-        "\\subsubsection*{\\1}
-\\addcontentsline{toc}{subsubsection}{~~~~#{cont_ln} \\\\
-}")
-      dob
-    end
-    def indent
-      indent=case @dob.indent
-      when /1/; '0mm'
-      when /2/; '10mm'
-      when /3/; '20mm'
-      when /4/; '30mm'
-      when /5/; '40mm'
-      when /6/; '50mm'
-      when /7/; '60mm'
-      when /8/; '70mm'
-      when /9/; '80mm'
-      end
-      "\\begin{ParagraphIndent}{#{indent}}#{@dob.tmp} \\end{ParagraphIndent}}"
-    end
-    def bullet
-      blt=if @dob.indent
-        indent=case @dob.indent
-        when /1/; '0em'
-        when /2/; '1.0em'
-        when /3/; '2.0em'
-        when /4/; '3.0em'
-        when /5/; '4.0em'
-        when /6/; '5.0em'
-        when /7/; '6.0em'
-        when /8/; '7.0em'
-        when /9/; '8.0em'
-        else      '-1.0em'
-        end
-        "\\begin{Bullet}{#{indent}}$\\txtbullet$\\hspace{\\enspace}#{@dob.tmp}\\end{Bullet}"
-      else
-        "\\begin{Bullet}{-5mm}$\\txtbullet$\\hspace{\\enspace}#{@dob.tmp}\\end{Bullet}"
-      end
-      blt
-    end
-    def symbol_graphic
-      dir=SiSU_Env::Info_env.new(@md.fns)
-      image='c_' + /<:=\s*(\S+?)\s*>/m.match(@txt).captures.join + '.png' #watch
-      if FileTest.file?("#{dir.path.image_source_tex}/#{image}")
-        @txt.gsub!(/<:=\s*(\S+?)\s*>/,
-          "\\includegraphics*[width=11pt]{#{dir.path.image_source_tex}/c_\\1.png}")
-      else
-        SiSU_Screen::Ansi.new(@md.cmd,"ERROR - image:",%{"#{image}" missing},"search path: #{dir.path.image_source_tex}").error2 unless @md.cmd =~/q/
-        @txt.gsub!(/#{Mx[:lnk_o]}\S+\.(png|jpg|gif).+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/,'') # fragile match operator\\ fragile !
-      end
-    end
-    def image
-      dir=SiSU_Env::Info_env.new(@md.fns)
-      image,m=/#{Mx[:lnk_o]}\s*(\S+)\s+.+?width=``(\d+)''.+?#{Mx[:lnk_c]}/m.match(@txt).captures
-      width=m[1] || '100'
-      width=width.to_i*0.4
-      image_source=if @md.fns =~/\.(?:ssm\.)?sst$/ \
-      and FileTest.file?("#{dir.path.image_source_local_tex}/#{image}")
-        dir.path.image_source_local_tex
-      elsif @md.fns =~/\.-ss[tm]$/ \
-      and FileTest.file?("#{dir.path.image_source_remote_tex}/#{image}")
-        dir.path.image_source_remote_tex
-      elsif FileTest.file?("#{dir.path.image_source_tex}/#{image}")
-        dir.path.image_source_tex
-      else
-        SiSU_Screen::Ansi.new(@md.cmd,"ERROR - image:",%{"#{image}" missing},"search locations: #{dir.path.image_source_local_tex},#{dir.path.image_source_remote_tex} and #{dir.path.image_source_tex}").error2 unless @md.cmd =~/q/
-        nil
-      end
-      if image_source #CHECK
-        @txt.gsub!(/#{Mx[:lnk_o]}\s*(\S+)\s+.+?#{Mx[:lnk_c]}/,
-          @center_begin + "\\includegraphics*[width=#{width}pt]{#{image_source}/\\1}" + @center_end )
-      else @txt.gsub!(/#{Mx[:lnk_o]}\s*(\S+)\s+.+?#{Mx[:lnk_c]}/,'\1}')
-      end
-    end
-    def png(ps='') #fc missing image check
-      dir=SiSU_Env::Info_env.new(@md.fns)
-      # messy clean up
-      z=@txt[/#{Mx[:lnk_o]}(\S.+?)#{Mx[:lnk_c]}(?:image|png)/,1].strip if @txt =~ /#{Mx[:lnk_o]}\S.+?#{Mx[:lnk_c]}(?:image|png)/ # match operator for z \\ fragile !
-      if z #debug 2004w14
-        image=z[/(\S+?\.(?:png|jpg|gif)\b)/m]
-        image.gsub!(/\\/,'')
-        width=if z =~ /\d+x\d*/
-          w=(z[/\s(\d+)x\d*/,1]).to_i
-          w*0.8
-        else '100' #revisit, is bug for small images/icons
-        end
-        width='380' if width.to_i > 380
-        c=z[/``(.+?)''/m]
-      end
-      hsp="\n{\\color{mywhite} .}&~\n" # ~ character for hardspace
-      caption="{\\\\\\\ \n\\begin{scriptsize}#{hsp*3}#{c}\\end{scriptsize}&}" if c
-      image_source=if @md.fns =~/\.(?:ssm\.)?sst$/ \
-      and FileTest.file?("#{dir.path.image_source_local_tex}/#{image}")
-        dir.path.image_source_local_tex
-      elsif @md.fns =~/\.-ss[tm]$/ \
-      and FileTest.file?("#{dir.path.image_source_remote_tex}/#{image}")
-        dir.path.image_source_remote_tex
-      elsif FileTest.file?("#{dir.path.image_source_tex}/#{image}")
-        dir.path.image_source_tex
-      else
-        unless image.nil? \
-        or image.length < 2
-          SiSU_Screen::Ansi.new(@md.cmd,"ERROR - image:",%{"#{image}" missing},"search locations: #{dir.path.image_source_local_tex},#{dir.path.image_source_remote_tex} and #{dir.path.image_source_tex}").error2 unless @md.cmd =~/q/
-        end
-        nil
-      end
-      if image_source
-        @txt.gsub!(/#{Mx[:lnk_o]}\S+\.(png|jpg|gif).+?#{Mx[:lnk_c]}(image|png)/, # fragile match operator\\ fragile !
-          "#{@center_begin}\n\\includegraphics*[width=#{width}pt]{#{image_source}/#{image}}#{caption}#{@center_end}")
-      else @txt.gsub!(/#{Mx[:lnk_o]}\S+\.(png|jpg|gif).+?#{Mx[:lnk_c]}(image|png)/,'')
-      end
-    end
-    def url_str_internal(str,idx=nil)
-      map_nametags=SiSU_Particulars::Combined_singleton.instance.get_map_nametags(@md).nametags_map #p map_nametags
-      rgx_url_generic=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:rel_o]}\S+?#{Mx[:rel_c]}/m
-      rgx_url_relative=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:rel_o]}:\S+?#{Mx[:rel_c]}/m
-      rgx_url_internal=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:rel_o]}#?\S+?#{Mx[:rel_c]}/m
-      while str =~/#{Mx[:lnk_o]}([^#{Mx[:lnk_o]}#{Mx[:lnk_c]}]+)#{Mx[:lnk_c]}#{Mx[:rel_o]}:(\S+?)#{Mx[:rel_c]}/m
-        link,url=$1,$2
-        link,url=link.strip,url.strip
-        link.gsub!(/&/,"#{Xx[:protect]}&")
-        url="#{@env.url.root}/" + url
-        str.sub!(/#{Mx[:lnk_o]}[^#{Mx[:lnk_o]}#{Mx[:lnk_c]}]+#{Mx[:lnk_c]}#{Mx[:rel_o]}:\S+?#{Mx[:rel_c]}/m,"#{@brace_rel.tex_open}\\href{#{url}}{#{link}}#{@brace_rel.tex_close}")
-      end
-      while str =~/#{Mx[:lnk_o]}([^#{Mx[:lnk_o]}#{Mx[:lnk_c]}]+)#{Mx[:lnk_c]}#{Mx[:rel_o]}#?(\S+?)#{Mx[:rel_c]}/m
-        link,url=$1,$2
-        link,url=link.strip,url.strip
-        link.gsub!(/&/,"#{Xx[:protect]}&")
-        url.gsub!(/\\_/,'_')
-        ocn_lnk=if map_nametags[url] \
-        and map_nametags[url][:ocn]
-          map_nametags[url][:ocn]
-        else nil
-        end
-        ocn_lnk=(url=~/^\d+$/ ?  url : ocn_lnk)
-        if ocn_lnk and not ocn_lnk.empty?
-          idx \
-          ? (str.sub!(rgx_url_internal,"\\hyperlink{#{ocn_lnk}}{#{link}}")) \
-          : (str.sub!(rgx_url_internal,"#{@brace_rel.tex_open}\\hyperlink{#{ocn_lnk}}{#{link}}#{@brace_rel.tex_close}"))
-        else
-          puts %{name tag: "#{url}" not found}
-          str.sub!(rgx_url_internal,"#{link}")
-        end
-        #[keep] code that follows uses nametags directly, currently nametags converted to their ocn, related code: |texpdf.rb|@|hypertargets|
-        #idx \
-        #? (str.sub!(rgx_url_internal,"\\hyperlink{#{url}}{#{link}}")) \
-        #: (str.sub!(rgx_url_internal,"#{@brace_rel.tex_open}\\hyperlink{#{url}}{#{link}}#{@brace_rel.tex_close}"))
-      end
-      str.gsub!(/#{Xx[:protect]}/,'')
-      str
-    end
-    def url_str(str)
-      rgx_url_generic=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
-      while str =~rgx_url_generic
-        if str=~rgx_url_generic
-          regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/m
-          z,url=regx_url.match(str).captures if str =~regx_url
-          url=url.strip
-          link=z.strip
-          link.gsub!(/&/,"#{Xx[:protect]}&")
-          str.sub!(rgx_url_generic,"#{@brace_rel.tex_open}\\href{#{url}}{#{link}}#{@brace_rel.tex_close}")
-          str.gsub!(/#{Xx[:protect]}/,'')
-          str
-        else str
-        end
-        str
-      end
-      str
-    end
-    def url_with_txt(dob)
-      rgx_url_generic=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
-      while dob.tmp =~rgx_url_generic
-        if dob.tmp=~rgx_url_generic
-          if dob.tmp =~/#{Mx[:lnk_o]}(?:.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
-            regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/m
-            punctuate=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m.match(dob.tmp).captures.join
-          else
-            regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/m
-            punctuate=''
-          end
-          z,url=regx_url.match(dob.tmp).captures if dob.tmp =~regx_url
-          url=url.strip
-          link=z.strip
-          link.gsub!(/&/,"#{Xx[:protect]}&")
-          dob.tmp.sub!(rgx_url_generic,"#{@brace_rel.tex_open}\\href{#{url}}{#{link}}#{@brace_rel.tex_close}#{punctuate}")
-          dob.tmp.gsub!(/#{Xx[:protect]}/,'')
-          dob
-        else dob
-        end
-        dob
-      end
-      dob
-    end
-    def urls_txt_and_images
-      dob=@dob
-      dir=SiSU_Env::Info_env.new(@md.fns)
-      @dm={
-        'a4'=>     @tx.a4.landscape.img_px,
-        'letter'=> @tx.letter.landscape.img_px,
-        'legal'=>  @tx.legal.landscape.img_px,
-        'b5'=>     @tx.b5.landscape.img_px,
-        'a5'=>     @tx.a5.landscape.img_px
-      }
-      images_hash={ }
-      generic_rgx=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}(?:#{Mx[:url_o]}\S+?#{Mx[:url_c]}|image\b)/m
-      rgx_url_generic=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
-      url_bare_rgx=/#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
-      url_image_rgx=/#{Mx[:lnk_o]}[a-zA-Z0-9_\\-]+\.(?:png|jpg|gif).+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
-      image_rgx=/#{Mx[:lnk_o]}[a-zA-Z0-9_\\-]+\.(?:png|jpg|gif).+?#{Mx[:lnk_c]}image/m
-      @md.papersize_array.each do |ps|
-        images_hash[ps] = dob.tmp
-        while images_hash[ps] =~generic_rgx
-          if dob.tmp =~rgx_url_generic \
-          and dob.tmp !~/\.(?:png|jpg|gif)|#{Mx[:lnk_c]}image\b/m
-            dob=url_with_txt(dob)
-          elsif images_hash[ps]=~generic_rgx
-            if dob.tmp=~rgx_url_generic
-              if images_hash[ps] =~/#{Mx[:lnk_o]}(?:.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
-                regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/m
-                punctuate=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m.match(images_hash[ps]).captures.join
-              else
-                regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/m
-                punctuate=''
-              end
-              z,url=regx_url.match(images_hash[ps]).captures if images_hash[ps] =~regx_url
-              url=url.strip
-            else
-              if images_hash[ps] =~/#{Mx[:lnk_o]}(?:.+?)#{Mx[:lnk_c]}image\.[^'"\s]+?(?:[;.,]?(?:\s|$)|(?:\s|$))/m
-                regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}image\.[^'"\s]+?(?:[;.,]?(?:\s|$)|(?:\s|$))/m
-                punctuate=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}image\.[^'"\s]+?([;.,]?(?:\s|$))/m.match(images_hash[ps]).captures.join
-              else
-                regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}image/m
-                punctuate=''
-              end
-              z=regx_url.match(images_hash[ps])[1] if images_hash[ps] =~regx_url
-              url=''
-            end
-            if images_hash[ps] =~/#{Mx[:lnk_o]}\s*\S+\.?(?:png|jpg|gif)/m \
-            and images_hash[ps]=~/\s+\d+x\d+(\s+|\s*#{Mx[:lnk_c]})/m
-              image,x,y=z.scan(/\S+/)
-              image.gsub!(/\\/,'')
-              w=((z =~/\s(\d+)x\d*/) ? z[/\s(\d+)x\d*/,1] : 200)
-              width={}
-              width['a4'] =     ((w.to_i > @dm['a4'])     ? @dm['a4'] :     w)
-              width['letter'] = ((w.to_i > @dm['letter']) ? @dm['letter'] : w)
-              width['legal'] =  ((w.to_i > @dm['legal'])  ? @dm['legal'] :  w)
-              width['a5'] =     ((w.to_i > @dm['a5'])     ? @dm['a5'] :     w)
-              width['b5'] =     ((w.to_i > @dm['b5'])     ? @dm['b5'] :     w)
-              c=z[/``(.+?)''/m,1]
-              hsp="\n{\\color{mywhite} .}&~\n" # ~ character for hardspace
-              caption=(c ?  "{\\\\\ \n\\begin{scriptsize}#{hsp*3}#{c}\\end{scriptsize}&}" : '')
-            elsif images_hash[ps] =~/#{Mx[:lnk_o]}\s*(\S+\.?\.(?:png|jpg|gif))/m
-              SiSU_Screen::Ansi.new(@md.cmd,%{document built without image: "#{$1}" as image dimensions not provided (either image not found or neither imagemagick nor graphicsmagick is installed)?\n}).print_grey #unless @opt.cmd =~/q/
-              images_hash[ps].gsub!(/#{Mx[:lnk_o]}\s*(\S+\.?\.(?:png|jpg|gif))/,'[image]')
-            end
-            if image #most images fc etc. #% clean up !
-              if @md.fns =~/\.(?:ssm\.)?sst$/ \
-              and FileTest.file?("#{dir.path.image_source_local_tex}/#{image}")
-                case images_hash[ps]
-                when url_image_rgx
-                  images_hash[ps].sub!(url_image_rgx,
-                    "#{@center_begin}\\\n\\href{#{url}}{\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_local_tex}/#{image}}}#{caption} #{@center_end}")
-                when image_rgx
-                  images_hash[ps].sub!(image_rgx,
-                    "#{@center_begin}\\\n\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_local_tex}/#{image}}#{caption} #{@center_end}")
-                end
-                images_hash[ps]
-              elsif @md.fns =~/\.-ss[tm]$/ \
-              and FileTest.file?("#{dir.path.image_source_remote_tex}/#{image}")
-                case images_hash[ps]
-                when url_image_rgx
-                  images_hash[ps].sub!(url_image_rgx,
-                    "#{@center_begin}\\\n\\href{#{url}}{\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_remote_tex}/#{image}}}#{caption}#{@center_end}")
-                when image_rgx
-                  images_hash[ps].sub!(image_rgx,
-                    "#{@center_begin}\\\n\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_remote_tex}/#{image}}#{caption}#{@center_end}")
-                end
-                images_hash[ps]
-              elsif FileTest.file?("#{dir.path.image_source_tex}/#{image}")
-                case images_hash[ps]
-                when url_image_rgx
-                  images_hash[ps].sub!(url_image_rgx,
-                    "#{@center_begin}\\\n\\href{#{url}}\n{\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_tex}/#{image}}}#{caption}#{@center_end}")
-                when image_rgx
-                  images_hash[ps].sub!(image_rgx,
-                    "#{@center_begin}\\\n\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_tex}/#{image}}#{caption}#{@center_end}")
-                end
-                images_hash[ps]
-              else
-                SiSU_Screen::Ansi.new(@md.cmd,"ERROR - image:",%{"#{image}" missing},"search locations: #{dir.path.image_source_local_tex},#{dir.path.image_source_remote_tex} and #{dir.path.image_source_tex}").error2 unless @md.cmd =~/q/
-                if images_hash[ps] =~url_image_rgx \
-                or images_hash[ps] =~image_rgx
-                  images_hash[ps]=''
-                end
-                images_hash[ps]
-              end
-            else
-              link=z.strip #[/(.+?)\\/m,1]
-              images_hash[ps]="\\href{#{url}}{#{link}}#{punctuate}" if images_hash[ps] =~/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/
-              images_hash[ps]
-            end
-          else images_hash[ps]
-          end
-          images_hash[ps] #=ocn_display(dob) + images_hash[ps]
-        end #while loop
-        images_hash
-      end
-      images_hash
-      use_images_hash={}
-      images_hash.each do |k,t|
-        use_images_hash[k]={ :l =>t, :p =>t}
-      end
-      dob.tmp=use_images_hash
-      dob
-    end
-    def title
-      title=SiSU_TeX_Pdf::Special_characters.new(@md,@md.title.full).special_characters_safe
-      "\n\\title{#{title}}"
-    end
-    def title_landscape
-      title
-    end
-    def title_portrait
-      title
-    end
-  end
-  class Format_head
-    require "#{SiSU_lib}/i18n"                         # defaults.rb
-    def initialize(md,t_o)
-      @md,@t_o=md,t_o
-      @env=SiSU_Env::Info_env.new(@md.fns)
-      if t_o.class==Hash
-        @txt =t_o[:txt]            || nil
-        @subtitle=t_o[:subtitle]   || nil
-        @ps=t_o[:paper_size]       || nil
-        @ocn=t_o[:ocn]             || nil
-        @layout=t_o[:orientation]  || nil
-      else
-        p t_o.class
-        p caller
-      end
-      @tx=SiSU_Env::Get_init.instance.tex
-      @brace_url=SiSU_Viz::Skin.new.url_decoration
-      @tex2pdf=@@tex3pdf ||=SiSU_Env::System_call.new.tex2pdf_engine
-      @ps=@txt if @txt=~/(?:a4|letter|legal|book|a5|b5)/i
-      @lang ||=SiSU_i18n::Language.new(@md)
-    end
-    def tex_head_lang #babel 18n
-      lang_char_arr=@md.i18n
-      mainlang_char=lang_char_arr.slice(0)
-      mainlang=@lang.tex_name(mainlang_char)
-      otherlang=[]
-      lang_char_arr.slice(1..9).each { |ch| otherlang << @lang.tex_name(ch) }
-      otherlang=otherlang.join(',')
-      { :mainlang=>mainlang, :otherlang=>otherlang }
-    end
-    def tex_head_encode
-      texpdf_font=if defined? @md.make.texpdf_font \
-      and not @md.make.texpdf_font.nil? \
-      and @md.make.texpdf_font=~/\S{3,}/
-        @md.make.texpdf_font
-      else @env.font.texpdf
-      end
-      case @tex2pdf
-      when /xe/
-        <<WOK
-\\usepackage{polyglossia, ucs, fontspec, xltxtra, xunicode}
-\\setmainlanguage{#{tex_head_lang[:mainlang]}}
-\\setotherlanguage{#{tex_head_lang[:otherlang]}}
-\\setmainfont{#{texpdf_font}}
-WOK
-      when /pdf/
-        if @md.file_encoding =~ /iso-?8859/i                                   #% iso8859
-        <<WOK
-% \\usepackage[latin1]{inputenc}
-\\usepackage{fontspec}
-WOK
-        else                                                                   #% utf-8 assumed
-        <<WOK
-\\usepackage{babel}
-\\usepackage{ucs}
-\\usepackage[utf8x]{inputenc}
-WOK
-        end
-      end
-    end
-    def tex_head_info
-      generator="Generated by: #{@md.sisu_version[:project]} #{@md.sisu_version[:version]} of #{@md.sisu_version[:date_stamp]} (#{@md.sisu_version[:date]})"  if @md.sisu_version[:version]
-      lastdone="Last Generated on: #{Time.now}"
-      rubyv="Ruby version: #{@md.ruby_version}"
-      <<WOK
-%% SiSU (Linux & Ruby - \"better ways\") LaTeX output
-%% #{generator}
-%% #{rubyv}
-%% LaTeX output
-%% #{lastdone}
-%% SiSU http://www.jus.uio.no/sisu
-WOK
-    end
-    def tex_head_paper_portrait(d)
-      multicol=(@md.book_idx ? '\usepackage{multicol}' : '')
-      <<WOK
-#{tex_head_info}
-\\documentclass[#{d[:fontsize]},#{d[:papertype]},titlepage]{scrartcl}        %with titlepage
-\\setlength{\\textheight}{#{d[:textheight]}mm}  \\setlength{\\textwidth}{#{d[:textwidth]}mm}
-\\setlength{\\oddsidemargin}{#{d[:oddsidemargin]}}  \\setlength{\\evensidemargin}{#{d[:evensidemargin]}}
-\\setlength{\\topmargin}{#{d[:topmargin]}}  \\setlength{\\headheight}{#{d[:headheight]}}
-\\setlength{\\headsep}{#{d[:headsep]}}
-\\setlength{\\marginparsep}{#{d[:marginparsep]}}
-\\setlength{\\marginparwidth}{#{d[:marginparwidth]}}
-#{multicol}
-WOK
-    end
-    def tex_head_paper_landscape(d)
-      <<WOK
-#{tex_head_info}
-\\documentclass[#{d[:fontsize]},#{d[:papertype]},landscape,titlepage,twocolumn]{scrartcl}        %with titlepage
-\\setlength{\\textheight}{#{d[:textheight]}mm}  \\setlength{\\textwidth}{#{d[:textwidth]}mm}
-\\setlength{\\oddsidemargin}{#{d[:oddsidemargin]}}  \\setlength{\\evensidemargin}{#{d[:evensidemargin]}}
-\\setlength{\\topmargin}{#{d[:topmargin]}}  \\setlength{\\headheight}{#{d[:headheight]}}
-\\setlength{\\headsep}{#{d[:headsep]}}
-\\setlength{\\columnsep}{#{d[:columnsep]}}
-\\setlength{\\marginparsep}{#{d[:marginparsep]}}
-\\setlength{\\marginparwidth}{#{d[:marginparwidth]}}
-WOK
-    end
-    def tex_head_paper_portrait_dvi(d)
-      <<WOK
-#{tex_head_info}
-\\documentclass[#{d[:fontsize]},#{d[:papertype]},titlepage]{scrartcl}      %with titlepage
-\\setlength{\\textheight}{#{d[:textheight]}mm}  \\setlength{\\textwidth}{#{d[:textwidth]}mm}
-\\setlength{\\oddsidemargin}{#{d[:oddsidemargin]}}  \\setlength{\\evensidemargin}{#{d[:evensidemargin]}}
-\\setlength{\\topmargin}{#{d[:topmargin]}}  \\setlength{\\headheight}{#{d[:headheight]}}
-\\setlength{\\headsep}{#{d[:headsep]}}
-\\setlength{\\marginparsep}{#{d[:marginparsep]}}
-\\setlength{\\marginparwidth}{#{d[:marginparwidth]}}
-WOK
-    end
-    def tex_head_paper_dimensions
-      d={}
-      case @layout
-      when /portrait/
-        d[:papertype],d[:fontsize]='a4paper','11pt'
-        d[:oddsidemargin],d[:evensidemargin],d[:topmargin]='0mm','0mm','-12pt'
-        d[:headheight],d[:headsep],d[:columnsep]='12pt','35pt',''
-        d[:marginparsep],d[:marginparwidth]='4mm','8mm'
-        case @ps #@md.papersize
-        when /a4/i           #European default, SiSU default
-          d[:papertype],d[:fontsize]='a4paper','12pt'
-          d[:textheight],d[:textwidth]=@tx.a4.portrait.h,@tx.a4.portrait.w
-        when /letter/i   #U.S. default
-          d[:papertype],d[:fontsize]='letterpaper','12pt'
-          d[:textheight],d[:textwidth]=@tx.letter.portrait.h,@tx.letter.portrait.w
-        when /legal/i     #U.S. alternative
-          d[:papertype],d[:fontsize]='legalpaper','12pt'
-          d[:textheight],d[:textwidth]=@tx.legal.portrait.h,@tx.legal.portrait.w
-        when /book|b5/i   #book default - larger
-          d[:papertype],d[:fontsize]='b5paper','11pt'
-          d[:oddsidemargin],d[:evensidemargin],d[:topmargin]='-4mm','-4mm','-36pt'
-          d[:headheight],d[:headsep],d[:columnsep]='12pt','20pt',''
-          d[:textheight],d[:textwidth]=@tx.b5.portrait.h,@tx.b5.portrait.w
-        when /a5/i
-          d[:papertype],d[:fontsize]='a5paper','11pt'
-          d[:oddsidemargin],d[:evensidemargin],d[:topmargin]='-4mm','-4mm','-36pt'
-          d[:headheight],d[:headsep],d[:columnsep]='11pt','12pt',''
-          d[:marginparsep],d[:marginparwidth]='4mm','6mm'
-          d[:textheight],d[:textwidth]=@tx.a5.portrait.h,@tx.a5.portrait.w
-        else           #default currently A4
-          d[:papertype],d[:fontsize]='a4paper','12pt'
-          d[:textheight],d[:textwidth]=@tx.a4.portrait.h,@tx.a4.portrait.w
-        end
-      when /landscape/
-        d[:papertype],d[:fontsize]='a4paper','11pt'
-        d[:oddsidemargin],d[:evensidemargin],d[:topmargin]='6mm','6mm','-12mm'
-        d[:headheight],d[:headsep],d[:columnsep]='12pt','20pt','40pt'
-        d[:marginparsep],d[:marginparwidth]='4mm','8mm'
-        case @ps #@md.papersize
-        when /a4/i                            #European default, SiSU default
-          d[:papertype],d[:fontsize]='a4paper','11pt'
-          d[:textheight],d[:textwidth]=@tx.a4.landscape.h,@tx.a4.landscape.w
-        when /letter/i                    #U.S. default
-          d[:papertype],d[:fontsize]='letterpaper','11pt'
-          d[:textheight],d[:textwidth]=@tx.letter.landscape.h,@tx.letter.landscape.w
-        when /legal/i #U.S. alternative
-          d[:papertype],d[:fontsize],d[:columnsep]='legalpaper','11pt','48pt'
-          d[:textheight],d[:textwidth]=@tx.legal.landscape.h,@tx.legal.landscape.w
-        when /book|b5/i       #book default - larger
-          d[:papertype],d[:fontsize],d[:columnsep]='b5paper','11pt','35pt'
-          d[:textheight],d[:textwidth]=@tx.b5.landscape.h,@tx.b5.landscape.w
-        when /a5/i
-          d[:papertype],d[:fontsize],d[:columnsep]='a5paper','10pt','32pt'
-          d[:textheight],d[:textwidth]=@tx.a5.landscape.h,@tx.a5.landscape.w
-        else                            #default currently A4
-          d[:papertype],d[:fontsize]='a4paper','12pt'
-          d[:textheight],d[:textwidth]=@tx.a4.landscape.h,@tx.a4.landscape.w
-        end
-      end
-      d
-    end
-    def tex_head_paper
-      case @layout
-      when /portrait/
-        tex_head_paper_portrait(tex_head_paper_dimensions)
-      when /landscape/
-        tex_head_paper_landscape(tex_head_paper_dimensions)
-      end
-    end
-    def tex_head_pdftex_dvi
-      color=case @layout
-      when /portrait/
-      <<WOK
-  colorlinks=true,
-  urlcolor=myblack,
-  filecolor=myblack,
-  linkcolor=myblack,
-WOK
-      when /landscape/
-      <<WOK
-  colorlinks=true,
-  urlcolor=myblue,    % \\href{...}{...}   external url
-  filecolor=mygreen,  % \\href{...}     local file
-  linkcolor=myred,    % \\href{...} and \\pageref{...}
-WOK
-      end
-      if @layout =~/portrait|landscape/
-      <<WOK
-\\usepackage{alltt}
-\\usepackage{thumbpdf}
-\\usepackage[#{@tex2pdf},
-  #{color.strip}
-  pdftitle={#{@txt}},
-%  pdftitle={Untitled},
-  pdfauthor={LM-sisu-scribe},
-  pdfsubject={law},
-  pdfkeywords={law},
-  pageanchor=true,
-  plainpages=true,
-  pdfpagelabels=true,
-  pagebackref,
-  bookmarks=true,
-  bookmarksopen=true,
-  pdfmenubar=true,
-  pdfpagemode=UseOutline,
-  pdffitwindow=true,
-  pdfwindowui=true,
-  plainpages=false,
-%  pdfusetitle=true,
-%  pdfpagelayout=SinglePage,
-%  pdfpagelayout=TwoColumnRight,
-%  pdfpagelayout=TwoColumnLeft,
-%  pdfstartpage=3,
-  pdfstartview=FitH
-]
-{hyperref}
-%% trace lost characters
-% \\tracinglostchars = 1
-% \\tracingonline = 1
-\\usepackage[usenames]{color}
-\\definecolor{myblack}{rgb}{0,0,0}
-\\definecolor{myred}{rgb}{0.75,0,0}
-\\definecolor{mygreen}{rgb}{0,0.5,0}
-\\definecolor{myblue}{rgb}{0,0,0.5}
-\\definecolor{mywhite}{rgb}{1,1,1}
-\\usepackage{url}
-%\\usepackage{breakurl}
-WOK
-      elsif @txt =~/dvi/
-      <<WOK
-\\usepackage{alltt}
-  #{color.strip}
-  pageanchor=true,
-  plainpages=true,
-  pagebackref,
-  bookmarks=true,
-  bookmarksopen=true,
-  plainpages=false,
-]
-{hyperref}
-\\usepackage[usenames]{color}
-\\definecolor{myblack}{rgb}{0,0,0}
-\\definecolor{myred}{rgb}{0.75,0,0}
-\\definecolor{mygreen}{rgb}{0,0.5,0}
-\\definecolor{myblue}{rgb}{0,0,0.5}
-\\definecolor{mywhite}{rgb}{1,1,1}
-\\usepackage{url}
-%\\usepackage{breakurl}
-WOK
-      end
-    end
-    def tex_head_misc
-      <<WOK
-\\usepackage{textcomp}
-\\usepackage[parfill]{parskip}
-\\usepackage[normalem]{ulem}
-\\usepackage{soul}
-\\usepackage{longtable}
-\\usepackage{graphicx}
-\\makeatletter
-\\parindent0pt
-%\\usepackage{mathptmx}
-\\usepackage{amssymb}
-% amssymb used for backslash
-WOK
-    end
-    def document_head_with_orientation
-      endnotes=("\\usepackage{endnotes}" if @txt =~/endnotes?/)||'' #not implemented see also def endnotes
-      @lang.tex_name(@md.i18n[0])
-      <<WOK
-#{tex_head_paper}
-#{tex_head_encode}
-#{tex_head_pdftex_dvi}
-#{tex_head_misc}
-\\setcounter{secnumdepth}{2}
-\\setcounter{tocdepth}{4}
-\\makeatletter
-#{endnotes}
-\\usepackage[multiple,ragged]{footmisc}
-\\setlength\\footnotemargin{12pt}
-\\usepackage[para]{manyfoot}
-\\DeclareNewFootnote{A}
-%\\DeclareNewFootnote[para]{A}
-\\newenvironment{ParagraphIndent}[1]%
-{
-\\begin{list}{}{%
-\\setlength\\topsep{0pt}%
-\\addtolength{\\leftmargin}{#1}
-\\setlength\\parsep{0pt plus 1pt}%
-}
-\\item[]
-}
-{\\end{list}}
-\\newenvironment{Bullet}[1]%
-{
-\\begin{list}{}{%
-\\setlength\\topsep{0pt}%
-\\addtolength{\\leftmargin}{#1}
-\\itemindent=-1em
-\\setlength\\parsep{0pt plus 1pt}%
-}
-\\item[]
-}
-{\\end{list}}
-\\usepackage{fancyhdr}
-\\lhead{}
-\\renewcommand{\\part}{\\\@startsection
-  {part}{1}{-2mm}%
-  {-\\baselineskip}{0.5\\baselineskip}%
-  {\\bfseries\\large\\upshape\\raggedright}}
-\\renewcommand{\\section}{\\\@startsection
-  {section}{2}{-2mm}%
-  {-\\baselineskip}{0.5\\baselineskip}%
-  {\\bfseries\\large\\upshape\\raggedright}}
-\\renewcommand{\\subsection}{\\\@startsection
-  {subsection}{3}{-2mm}%
-  {-\\baselineskip}{0.5\\baselineskip}%
-  {\\bfseries\\large\\upshape\\raggedright}}
-\\renewcommand{\\subsubsection}{\\\@startsection
-  {subsubsection}{4}{-2mm}%
-  {-\\baselineskip}{0.5\\baselineskip}%
-  {\\normalfont\\normalsize\\bfseries\\raggedright}}
-\\renewcommand{\\paragraph}{\\\@startsection
-  {paragraph}{5}{-2mm}%
-  {-\\baselineskip}{0.5\\baselineskip}%
-  {\\normalfont\\normalsize\\itshape\\raggedright}}
-\\renewcommand{\\subparagraph}{\\\@startsection
-  {subparagraph}%{6}%{-2mm}%
-  {-\\baselineskip}{0.5\\baselineskip}%
-  {\\normalfont\\normalsize\\itshape\\raggedright}}
-% \\makeatother
-\\selectlanguage{#{@lang.tex_name(@md.i18n[0])}}
-WOK
-    end
-    def a4generic
-    end
-  end
-  class Special_characters
-    def initialize(md,str,is='')
-      @md,@txt,@is=md,str,is
-      @brace_url=SiSU_Viz::Skin.new.url_decoration
-      @tex2pdf=@@tex3pdf ||=SiSU_Env::System_call.new.tex2pdf_engine
-    end
-    def xetex_special_characters_1(str,is='')                                  # ~ ^ $ & % _ { }  #LaTeX special characters - KEEP list
-      #str=Iconv.conv('ISO-8859-1', 'UTF-8', @txt)
-      word=str.scan(/\S+|\n/) #unless line =~/^(?:@\S|%+\s)/
-      para_array=[]
-      str=if word
-        word.each do |w| # _ - / # | : ! ^ ~
-          if w !~/https?:/ \
-          and w=~/\/\S+?\// \
-          and w.length > 6
-            w.gsub!(/([_.\/])/,'\1\-')
-          end
-          w.gsub!(/#{Mx[:gl_o]}#lt#{Mx[:gl_c]}/,'<'); w.gsub!(/#{Mx[:gl_o]}#gt#{Mx[:gl_c]}/,'>')
-          w.gsub!(/[\\]?~/,'<=tilde>')
-          w.gsub!(/[#{Mx[:br_line]}#{Mx[:br_paragraph]}]/,' \newline ') #watch
-          w.gsub!(/#{Mx[:gl_o]}#(?:126|152)#{Mx[:gl_c]}/,'<=tilde>') #126 usual
-          w.gsub!(/\\?\||#{Mx[:gl_o]}#124#{Mx[:gl_c]}/,'<=pipe>') #unless is=='code' #unless w=~/<~\d+;(?:[ohmu]|[0-6]:)\d+;\w\d+>/ # | SiSU not really special sisu character but done, also LaTeX
-          if w !~/#{Mx[:rel_o]}/ \
-          and w !~/#{Mx[:gl_o]}#/
-            w.gsub!(/\#/,'<=hash>')
-          end
-          para_array << w
-        end
-        str=para_array.join(' ')
-        str=str.strip unless is=='code'
-        str
-      else ''
-      end
-      str.gsub(/\s*#{Mx[:mk_o]}:name#\S+?#{Mx[:mk_c]}\s*/,' ')
-      str.gsub!(/.+?<-#>/,'')
-      str.gsub!(/#{Mx[:br_eof]}/,'')
-      str.gsub!(/#{Mx[:br_endnotes]}/,'')
-      #problem sequence ->
-      str.gsub!(/&(?:nbsp);|#{Mx[:nbsp]}/,'<=hardspace>') unless is=='code' # < SiSU special character also LaTeX
-      str.gsub!(/&(?:lt|#060);/,'<=lt>')                                     # < SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#(?:gt|062)#{Mx[:gl_c]}/,'<=gt>')                                     # > SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#123#{Mx[:gl_c]}/,'<=curlyopen>')                                     # { SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#125#{Mx[:gl_c]}/,'<=curlyclose>')                                    # } SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#(?:126|152)#{Mx[:gl_c]}/,'<=tilde>')                                 # ~ SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#035#{Mx[:gl_c]}/,'\#')                                               # # SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#033#{Mx[:gl_c]}/,'!')                                                # ! SiSU not really special sisu character but done, also LaTeX
-      str.gsub!(/(^|\s)\*\s/,'\1\asterisk ')                                                       # * should you wish to escape astrisk e.g. describing \*{bold}*
-      str.gsub!(/#{Mx[:gl_o]}#042#{Mx[:gl_c]}/,'\*')                                               # * should you wish to escape astrisk e.g. describing \*{bold}*
-      str.gsub!(/#{Mx[:gl_o]}#045#{Mx[:gl_c]}/,'-')                                                # - SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#043#{Mx[:gl_c]}/,'+')                                                # + SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#044#{Mx[:gl_c]}/,',')                                                # + SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#038#{Mx[:gl_c]}/,'<=amp>') #unless @txt=~/<:code>/                   # / SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#047#{Mx[:gl_c]}/,'<=slash>')                                         # / SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#092#{Mx[:gl_c]}/,'<=backslash>')                                     # \ SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#095#{Mx[:gl_c]}/,'<=underscore>')                                    # _ SiSU special character also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#124#{Mx[:gl_c]}/,'|')                                                # | SiSU not really special sisu character but done, also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#058#{Mx[:gl_c]}/,':')                                                # : SiSU not really special sisu character but done, also LaTeX
-      str.gsub!(/#{Mx[:gl_o]}#094#{Mx[:gl_c]}|\^/,'<=caret>')                                      # ^ SiSU not really special sisu character but done, also LaTeX
-      ##watch placement, problem sequence ^
-      str.gsub!(/<sup><font face=symbol>&atild;<\/font><\/sup>/,' ')
-      str.gsub!(/\\copy(right|mark)?/,'<=copymark>') # ok problem with superscript
-      str
-    end
-    def xetex_special_characters_2(str,is='')
-      str.gsub!(/#{Mx[:gl_o]}#156#{Mx[:gl_c]}/,'\oe ')
-      str.gsub!(/\$/,'\$')
-      str.gsub!(/\#/,'\#')
-      str.gsub!(/\%/,'\%')
-      str.gsub!(/\~/,'\~') #revist, should not be necessary to mark remaining tildes
-      if str !~/^\s*#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}image\s/
-        str.gsub!(/_/,'\_')
-      end
-      str.gsub!(/\{/,'\{')
-      str.gsub!(/\}/,'\}')
-      if is=='code'
-        str.gsub!(/&/,'{\\\&}')
-        str.gsub!(/\\~(\\\{)/,'{$\tilde$}\1')
-        str.gsub!(/(\\\})\\~/,'\1{$\tilde$}')
-        str.gsub!(/\\~(\[)/,'{$\tilde$}\1')
-        str.gsub!(/(\])\\~/,'\1{$\tilde$}')
-        str.gsub!(/<=tilde>/,'{$\tilde$}')
-        str.gsub!(/<=pipe>/,'{\textbar}')
-        str.gsub!(/<=caret>/,'{\^{~}}')
-        str.gsub!(/<=hash>/,'{\#}')
-      else
-        str.gsub!(/&nbsp;|#{Mx[:nbsp]}/,'~') # ~ character for hardspace
-        str.gsub!(/&/,'<=amp>')
-      end
-      str.gsub!(/&\S+?;/,' ')
-      str.gsub!(/§/u,'\S') #latex: space between next character not preserved? #str.gsub!(/§ /,'\S ')
-      str.gsub!(/£/u,'\pounds')
-      str.gsub!(/<a href=".+?">/,' ')
-      str.gsub!(/<\/a>/,' ')
-      str.gsub!(/((?:^|\s)#{Mx[:lnk_c]})#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/,
-        '\1\begin{scriptsize}\url{\2}\end{scriptsize}\3') #special case \{ e.g. \}http://url
-      str.gsub!(/#{Mx[:url_o]}\\_(\S+?)#{Mx[:url_c]}/,
-        '\begin{scriptsize}\url{\1}\end{scriptsize}') #special case \{ e.g. \}http://url
-      str.gsub!(/#{Mx[:url_o]}_(\S+?)#{Mx[:url_c]}/,
-        '\begin{scriptsize}\\url{\1}\end{scriptsize}') #specially escaped url no decoration
-      unless is=='code'
-        str.gsub!(/(^|#{Mx[:gl_c]}|\s)((?:https?|file|ftp):\/\/\S+?\.[^'"\s]+?)([;.,]?(?=\s|$))/,
-          "\\1#{@brace_url.tex_open}\\begin{scriptsize}\\url{\\2}\\end{scriptsize}#{@brace_url.tex_close}\\3") #url matching with decoration <url> positive lookahead, sequence issue with { linked }http://url cannot use \b at start
-      else #code-block: angle brackets special characters, note _ already escaped
-        str.gsub!(/\\_</m,'{\UseTextSymbol{OML}{<}}')
-        str.gsub!(/\\_>/m,'{\UseTextSymbol{OML}{>}}')
-      end
-      str.gsub!(/<:ee>/,'')
-      str.gsub!(/<!>/,' ')
-      #proposed change, insert, but may be redundant
-      str.gsub!(/<(br|p)>|<\/\s*(br|p)>|<(br|p)\s*\/>/," #{Tex[:backslash]*2} ") # Work Area
-      str.gsub!(/#{Mx[:fa_bold_o]}(.+?)#{Mx[:fa_bold_c]}/,'\begin{bfseries}\1 \end{bfseries}')
-      str.gsub!(/<h\d+>(.+?)<\/h\d+>/,'\begin{bfseries}\1 \end{bfseries}')
-      str.gsub!(/#{Mx[:fa_italics_o]}(.+?)#{Mx[:fa_italics_c]}/,'\emph{\1}')
-      str.gsub!(/#{Mx[:fa_underscore_o]}(.+?)#{Mx[:fa_underscore_c]}/,'\uline{\1}') # ulem
-      str.gsub!(/#{Mx[:fa_cite_o]}(.+?)#{Mx[:fa_cite_c]}/,"``\\1''") # quote #CHECK
-      str.gsub!(/#{Mx[:fa_insert_o]}(.+?)#{Mx[:fa_insert_c]}/,'\uline{\1}') # ulem
-      str.gsub!(/#{Mx[:fa_strike_o]}(.+?)#{Mx[:fa_strike_c]}/,'\sout{\1}') # ulem
-      str.gsub!(/#{Mx[:fa_superscript_o]}(.+?)#{Mx[:fa_superscript_c]}/,"\$^{\\textrm{\\1}}\$")
-      str.gsub!(/#{Mx[:fa_subscript_o]}(.+?)#{Mx[:fa_subscript_c]}/,"\$_{\\textrm{\\1}}\$")
-      str.gsub!(/#{Mx[:fa_monospace_o]}(.+?)#{Mx[:fa_monospace_c]}/,'\begin{monosp}\1\end{monosp}')
-      unless is=='code'
-        str.gsub!(/"(.+?)"/,'“\1”')  # quote marks / quotations open & close " need condition exclude for code
-        str.gsub!(/\s+"/,' “')                                # open "
-        str.gsub!(/^(#{Mx[:lv_o]}[1-6-]:\S*?#{Mx[:lv_c]}|<.+?>)?\s*"/,'\1“') #fix Mx[:lv_o] # open "
-        str.gsub!(/"(\s|\.|,|:|;)/,'”\1')                     # close "
-        str.gsub!(/"(#{Mx[:lv_o]}[1-6-]:\S*?#{Mx[:lv_c]}|<.+?>)?\s*$/,'”\1') #fix Mx[:lv_o] # close "
-        str.gsub!(/"(\.|,)/,'”')                              # close "
-        str.gsub!(/\s+'/,' `')                                # open '
-        str.gsub!(/^(#{Mx[:lv_o]}[1-6-]:\S*?#{Mx[:lv_c]}|<.+?>)?\s*'/,'\1`') #fix Mx[:lv_o] # open '
-      end
-      str.gsub!(/(<font.*?>|<\/font>)/,'')
-      str.gsub!(/\s*#{Mx[:fa_superscript_o]}(\S+?)#{Mx[:fa_superscript_c]}/,'^\1')
-      str
-    end
-    def xetex_special_characters_3(str)
-      str.gsub!(/<br(\s*[^\/][^>])/,'\1') # clean up, incredibly messy :-( footnote indents, problems if match exists in ordinary paragraphs? check! Work Area 200501 a bit tricky as must be able to match multiple times, and to clean remainder
-      str.gsub!(/([^<][^b][^r]\s+)\/>/,'\1') # clean up, incredibly messy :-( footnote indents, problems if match exists in ordinary paragraphs? check! Work Area 200501 a bit tricky as must be able to match multiple times, and to clean remainder
-      #problem sequence (another kludge) ->
-      str.gsub!(/<=lt>/m,'{\UseTextSymbol{OML}{<}}')
-      str.gsub!(/<=gt>/m,'{\UseTextSymbol{OML}{>}}')
-      str.gsub!(/<=underscore>/,'\_')
-      while str =~/(https?:\/\/\S+?)(?:<=tilde>\S+)+/ #tilde in urls \href treated differently from text #FIX
-        str.gsub!(/(https?:\/\/\S+?)(?:<=tilde>(\S+))+/,'\1~\2')
-      end
-      str.gsub!(/<=tilde>/,'{$\tilde$}')
-      str.gsub!(/<=pipe>/,'{\textbar}')
-      str.gsub!(/<=caret>/,'{\^{~}}')
-      str.gsub!(/<=exclaim>/,'\Verbatim{!}')
-      str.gsub!(/(https?:\/\/\S+?)(?:(?:<=hash>)(\S+))+/,'\1#\2') #hash in urls \href treated differently from text #FIX
-      str.gsub!(/<=hash>/,'{\#}')
-      str.gsub!(/<=hardspace>/,'{~}') #changed ... 2005
-      while str =~/(https?:\/\/\S+?)(?:<=amp>\S+)+/ #amp in urls \href treated differently from text #FIX
-        str.gsub!(/(https?:\/\/\S+?)(?:<=amp>(\S+))+/,'\1&\2')
-      end
-      str.gsub!(/<=amp>/,'{\\\&}') #changed ... 2005
-      str.gsub!(/<=slash>/,'{/}')
-      str.gsub!(/<=backslash>/,'{\textbackslash}')
-      str.gsub!(/<=copymark>\s*(.+)/,
-        '^\copyright \textnormal{\1} \2') # watch likely to be problematic
-      str
-    end
-    def special_characters_curly(str)
-      str.gsub!(/<=curlyopen>/,'\{')
-      str.gsub!(/<=curlyclose>/,'\}')
-      str
-    end
-    def special_characters_code_fix(str)
-      str.gsub!(/<=hardspace>/,'{~}')
-      str.gsub!(/<=pipe>/,'{\textbar}')
-      str.gsub!(/<=tilde>/,'{$\tilde$}')
-      str
-    end
-    def special_characters_unsafe_1(str) #depreciated, make obsolete
-      # some substitutions are sequence sensitive, rearrange with care.
-      str.gsub!(/\\backslash (copyright|clearpage|newpage)/,"\\\\\\1")  #kludge bad solution, find out where tail is sent through specChar !
-      str
-    end
-    def special_characters                                                     #special characters - some substitutions are sequence sensitive, rearrange with care.
-      str,is=@txt,@is
-      str=xetex_special_characters_1(str,is) unless str.nil?
-      str=special_characters_unsafe_1(str) unless str.nil? #xetex_special_characters_unsafe_1(@txt)
-      str=xetex_special_characters_2(str,is) unless str.nil? #issues with xetex
-      str=xetex_special_characters_3(str) unless str.nil?
-      @txt=str
-    end
-    def special_word_break_points
-      str=@txt
-      str.gsub!(/([_,.;:\/|=])/,'\1\-')
-      str.gsub!(/(--)(\S{4,})/,'\1\-\2')
-      @txt=str
-    end
-    def special_number_break_points
-      str=@txt
-      str=str.gsub(/([0-9a-f]{8})/i,'\1\-')
-      @txt=str
-    end
-    def special_characters_safe                                                #special characters - some substitutions are sequence sensitive, rearrange with care.
-      str,is=@txt,@is
-      str=xetex_special_characters_1(str,is) unless str.nil?
-      str=xetex_special_characters_2(str,is) unless str.nil? # remove this to start with, causes issues
-      @txt=str
-    end
-    def special_characters_code
-      str=@txt
-      str.gsub!(/ \\\\([ #{Mx[:br_nl]}]+|$)/,' \textbackslash\textbackslash\hardspace\1')
-      str
-    end
-  end
-  class Use_TeX
-    attr_accessor :url,:txt,:date
-    def initialize(md)
-      @md=md
-      @vz=SiSU_Env::Get_init.instance.skin
-      @date=SiSU_Env::Info_date.new # #{@date.year}
-      @copymark='{\\begin{footnotesize}\\raisebox{1ex}{\\copyright}\\end{footnotesize}}'
-      @brace_url=SiSU_Viz::Skin.new.url_decoration
-    end
-    def skip
-      "\n\\vspace*{\\smallskipamount} \n"
-    end
-    def paraskip_normal
-      '\setlength{\parskip}{1ex plus0.5ex minus0.2ex}'
-    end
-    def paraskip_small
-      '\setlength{\parskip}{0.5ex plus0.2ex minus0.1ex}'
-    end
-    def paraskip_tiny
-      '\setlength{\parskip}{0.1ex plus0.1ex minus0.1ex}'
-    end
-    def skip_small
-      "\\smallskip{}"
-    end
-    def skip_small_vspace
-      "\n\\vspace*{\\smallskipamount} \n"
-    end
-    def skip_small_footnote
-    end
-    def skip_medium
-      "\n\\medskip{}\n\n"
-    end
-    def skip_dummy
-      "\n"
-    end
-    def header
-      "\\lhead[ ]{ }\n" +
-      "\\chead[ \\fancyplain{} \\bfseries \\footnotesize  \\leftmark ]{ \\fancyplain{} \\bfseries \\footnotesize \\rightmark }\n" +
-      "\\rhead[ ]{ }\n"
-    end
-    def footer
-      base_prog_txt=if @md.base_program
-        case @md.base_program
-        when /kdissert/i; " \\\\ \\href{http://freehackers.org/~tnagy/kdissert/}{Kdissert}"
-        else ''
-        end
-      else ''
-      end
-      "\\lfoot[\\textrm{\\thepage}]{\\tiny \\href{#{@vz.url_footer_signature}}{#{@vz.txt_signature}}#{base_prog_txt}}\n" +
-      "\\cfoot[\\href{#{@vz.url_home}}{#{@vz.url_txt}}]{\\href{#{@vz.url_home}}{#{@vz.url_txt}}}\n" +
-      "\\rfoot[\\tiny \\href{#{@vz.url_sisu}}{#{@vz.txt_signature}}]{\\textrm{\\thepage}}\n"
-    end
-    def site
-      if not @vz.url_home.empty? \
-      and not @vz.url_txt.empty?
-        "\n\\date{\\begin{footnotesize} copy @ \\href{#{@vz.url_home}}{#{@vz.url_txt}} \\end{footnotesize}}"
-      else ''
-      end
-    end
-    def sitename                                                               #owners site, eg freeculture, free.for.all, gutenberg etc.
-      "\\href{#{@vz.url_home}}{#{@vz.txt_home}}"
-    end
-    def owner_chapter
-      "Contact Details for Original Promulgating Authority"
-    end
-    #BOOK standard dimensions - 229x156
-    def newpage(orientation)
-      case orientation
-      when /landscape/ # using longtable latex package
-<<WOK
-\\clearpage
-WOK
-      when /portrait/
-<<WOK
-\\newpage
-WOK
-      end
-    end
-    def sisu_rights
-      v=SiSU_Env::Info_version.instance.get_version
-      base_prog_txt=if @md.base_program
-        case @md.base_program
-        when /kdissert/i; "\n\\\\ This document prepared using \\href{http://freehackers.org/~tnagy/kdissert/}{Kdissert \\ http://freehackers.org/~tnagy/kdissert/ } \\\\ Kdissert is Document Mapping software by Thomas Nagy"
-        else ''
-        end
-      else ''
-      end
-<<WOK
-\\\\ ~
-{\\begin{footnotesize}#{base_prog_txt}
-\\\\ Generated by \\href{http://www.jus.uio.no/sisu}{SiSU} \\begin{tiny}[ #{v[:project]} #{v[:version]} of #{v[:date_stamp]} ]\\end{tiny} \\href{http://www.jus.uio.no/sisu}{www.jus.uio.no/sisu}
-\\\\ Copyright #{@copymark} 1997, current #{@date.year_static} Ralph Amissah, All Rights Reserved.
-\\\\ SiSU is software for document structuring, publishing and search (with object citation numbering), \\href{http://www.sisudoc.org}{www.sisudoc.org}
-\\\\ SiSU is released under \\href{http://www.fsf.org/licenses/gpl.html}{GPL 3 } or later, #{@brace_url.tex_open}\\href{http://www.fsf.org/licenses/gpl.html}{http://www.fsf.org/licenses/gpl.html}#{@brace_url.tex_close}.
-{\\end{footnotesize}
-\\\\
-WOK
-    end
-    def doc_sc_info_footnote_full
-<<WOK
-\\footnote{%\nGenerated by \\href{http://www.jus.uio.no/sisu}{SiSU \\ www.jus.uio.no/sisu }\\ \\newline \\scriptsize{Document version information: \\emph{sourcefile} \\uline{#{@md.fnstex}}; \\emph{version} \\uline{#{@md.sc_number}}; \\emph{date} \\uline{#{@md.sc_date}}; \\emph{time} \\uline{#{@md.sc_time}}}}
-WOK
-    end
-    def doc_sc_info_footnote_brief
-      " \\footnote{%\nGenerated by \\href{http://www.jus.uio.no/sisu}{SiSU} \\ \\href{http://www.jus.uio.no/sisu}{www.jus.uio.no/sisu} \\newline \\href{http://www.sisudoc.org}{www.sisudoc.org} \\\n}"
-    end
-    def doc_sc_info
-      v=SiSU_Env::Info_version.instance.get_version
-<<WOK
-\\\\
-{\\begin{footnotesize}
-Document version information: \\\\
-\\emph{sourcefile} \\uline{#{@md.fnstex}}; \\emph{version} \\uline{#{@md.sc_number}}; \\emph{date} \\uline{#{@md.sc_date}}; \\emph{time} \\uline{#{@md.sc_time}} \\\\
-Generated by \\href{http://www.jus.uio.no/sisu}{SiSU www.jus.uio.no/sisu }\\- version information: \\\\
-\\uline{ #{v[:project]} #{v[:version]} of #{v[:date_stamp]}}
-\\end{footnotesize}}&
-WOK
-    end
-    def doc_no_sc_info
-      v=SiSU_Env::Info_version.instance.get_version
-<<WOK
-\\\\
-{\\begin{small}
-Document information: \\\\
-\\emph{sourcefile} \\uline{#{@md.fnstex}} \\\\
-Generated by \\href{http://www.jus.uio.no/sisu}{SiSU www.jus.uio.no/sisu } \\\\ version information: \\
-\\uline{ #{v[:project]} #{v[:version]} of #{v[:date_stamp]}}
-
-\\end{small}}&
-WOK
-    end
-    def manifest_info
-      url=@md.fnb.gsub(/(?:\\)*([$&~%_#}{^])/,'\\\\\1')
-      fn=@md.fn[:manifest].gsub(/(?:\\)*([$&~%_#}{^])/,'\\\\\1')
-<<WOK
-{\\begin{footnotesize}
-\\\\ For alternative output formats of this document check:
-\\\\ #{@brace_url.tex_open}\\begin{scriptsize}\\href{#{@vz.url_root_http}/#{url}/#{fn}}{#{@vz.url_root_http}/#{url}/#{fn}}\\end{scriptsize}#{@brace_url.tex_close}
-\\end{footnotesize}}&
-WOK
-    end
-    def endnotes #not used should be inserted before MetaData section which preceeds doc_tail, but is "part of document"
-<<WOK
-\\subsection*{Endnotes}
-\\addcontentsline{toc}{section}{Endnotes}
-\\
-\\listofendnotes
-WOK
-    end
-    def doc_tail
-      dir=SiSU_Env::Info_env.new(@md.fns)
-      base_html="#{dir.url.root}/#{@md.fnb}"
-      v=SiSU_Env::Info_version.instance.get_version
-      sisu_ico=if FileTest.file?("#{dir.path.image_source_tex}/sisu.png")
-        "\\includegraphics*[width=60pt]{#{dir.path.image_source_tex}/sisu.png}"
-      else
-        SiSU_Screen::Ansi.new(@md.cmd,'WARNING - image directory or image(s) missing:', %{"#{dir.path.image_source_tex}"} ).warn unless @md.cmd =~/q/
-        " SiSU "
-      end
-      url=@md.fnb.gsub(/(?:\\)*([$&~%_#}{^])/,'\\\\\1')
-<<WOK
-\\begin{english}[variant=british]
-\\subsection*{Information on this document copy and an unofficial List of Some web related information and sources}
-\\addcontentsline{toc}{section}{Information on this document copy and an unofficial List of Some web related information and sources}
-\\\\
-\"Support Open Standards and Software Libré for the Information Technology Infrastructure\" RA\\subsubsection*{Information on this document copy #{site}}
-\\addcontentsline{toc}{subsection}{Information on this document copy}
-{\\begin{footnotesize}
-\\\\ Generated by \\href{http://www.jus.uio.no/sisu/}{SiSU} found at \\href{http://www.jus.uio.no/sisu/}{www.jus.uio.no/sisu} \\begin{tiny}[ #{v[:project]} #{v[:version]} #{v[:date_stamp]} ]\\end{tiny}  \\href{http://www.sisudoc.org}{www.sisudoc.org}. SiSU is software for document structuring, publishing and search (using SiSU: object citation numbering, markup, meta-markup, and system) Copyright #{@copymark} 1997, current #{@date.year_static} Ralph Amissah, All Rights Reserved.
-\\\\ SiSU is released under \\href{http://www.fsf.org/licenses/gpl.html}{GPL 3 } or later (\\href{http://www.fsf.org/licenses/gpl.html}{www.fsf.org/licenses/gpl.html}). {\\end{footnotesize}
-{\\begin{small}
-\\\\ W3 since October 3 1993 \\href{http://www.jus.uio.no/sisu/}{#{sisu_ico}}SiSU 1997, current #{@date.year_static}. \\\\ #{sitename} presentations at \\begin{scriptsize}#{site}\\end{scriptsize} \\\\ \\\\ #{@md.title.full} \\textbf{pdf} versions can be found at:  \\\\
-{\\end{small}
-\\\\ #{@brace_url.tex_open}\\begin{scriptsize}\\url{#{@vz.url_root_http}/#{url}/#{@md.fn[:pdf_p]}}\\end{scriptsize}#{@brace_url.tex_close}  \\\\
-#{@brace_url.tex_open}\\begin{scriptsize}\\url{#{@vz.url_root_http}/#{url}/#{@md.fn[:pdf_l]}}\\end{scriptsize}#{@brace_url.tex_close}  \\\\
-\\\\\n#{@md.title.full} \\textbf{html} versions may be found at: \\\\
-#{@brace_url.tex_open}\\begin{scriptsize}\\url{#{@vz.url_root_http}/#{url}/#{@md.fn[:toc]}}\\end{scriptsize}#{@brace_url.tex_close} or \\\\
-#{@brace_url.tex_open}\\begin{scriptsize}\\url{#{@vz.url_root_http}/#{url}/#{@md.fn[:doc]}}\\end{scriptsize}#{@brace_url.tex_close}
-\\\\
-\\\\
-\\href{#{@vz.url_root_http}/#{url}/#{@md.fn[:manifest]}}{SiSU Manifest} of document output and metadata may be found at: \\\\
-#{@brace_url.tex_open}\\begin{scriptsize}\\url{#{@vz.url_root_http}/#{url}/#{@md.fn[:manifest]}}\\end{scriptsize}#{@brace_url.tex_close}
-\\\\
-\\\\
- #{sitename} found at: \\begin{scriptsize}#{site}\\end{scriptsize}\\subsubsection*{Links that may be of interest at #{@vz.txt_home} and elsewhere:}
-\\addcontentsline{toc}{subsection}{Links that may be of interest}
-\\end{english}
-WOK
-    end
-    def mail_tail #not retested, the old mail_tail is commented out and appended to this program
-      dir=SiSU_Env::Info_env.new(@md.fns)
-<<WOK
-\\subsection*{Mail sender details}
-\\addcontentsline{toc}{subsection}{Mail sender details}
-\\\\
-Mail from: ralph@amissah.com\\\\
-44 20 8789 3452\\\\
-44 77 9669 4448
-\\\\
- \"Support Open Standards and Open Sources for the Information Technology Infrastructure\" RA
-\\subsubsection*{Information on this document copy #{site}\\copyright}
-Presentations' look and feel generated by \\href{http://www.jus.uio.no/sisu/}{SiSU Scribe} \\href{http://www.jus.uio.no/sisu/}{http://www.jus.uio.no/sisu/} programmed in Ruby on Debian/Gnu/Linux by Copyright \\copyright Ralph Amissah, W3 since October 3 1993 \\href{http://www.jus.uio.no/sisu/}{\\includegraphics*[width=35pt]{#{dir.path.image_source_tex}/sisu.png}}for #{sitename}. SiSU Scribe (sisu information structuring unit) produces Electronic Documents, i.e. it generates structured output for use in a number of file formats, including the pdf file produced here.
-WOK
-    end
-  end
-end
-__END__