docgenerator 0.1.1

data/docgenerator_tabular.rb

@@ -0,0 +1,376 @@
+#
+#Definition of elements for DocGenerator.rb
+#
+if __FILE__ == $0
+	require 'DocGenerator' 
+end
+
+#Define some constants to include packages into document header.
+TEX_PACKAGE_TABULARX	= element(:usepackage,{},'tabularx').cr
+TEX_PACKAGE_LONGTABLE= element(:usepackage,{},'longtable').cr
+TEX_PACKAGE_BOOKTABS	= element(:usepackage,{},'booktabs').cr
+
+class Table < Environment
+	add_attributes( HTML_ATTR_ALL ) 
+	Element.add( [:table ],  Table)
+	def htmltag(); 'div'; end
+	def to_latex( )
+		return to_latex_environment( 'table' )
+	end
+end
+
+#Tabulars
+#fixme:  check on attributes. columnsdescription
+#~ :table=> {:border=>nil, :width=>nil, :cellpadding=>nil, :cellspacing=>nil},#complete it
+#~ :colgroup => {}, #comlpete it
+class Tabular < Element
+	#Make the key known to the complete key-list of elements.
+	Element.add( [:tabular],  Tabular )
+	#~ add_attributes( HTML_ATTR_ALL ) 
+	#Problem: Nicht weitervererbt
+	add_attributes( {
+		:columndescription	=>  Attribute.create( [:latex, :required ] ) ,
+		:columns			=>  Attribute.create( [:required], [ Fixnum ] ) ,
+		:border			=>  Attribute.create( [:html] ) ,
+		:bgcolor			=> Attribute.create( [ :html ] ),
+		:width			=> Attribute.create( [ :html ], [ Integer, String ] ),	#String necessary for percentage
+		:frame			=> Attribute.create( [ :html ], [ 'box', 'above', 'below', 'hsides', 'vsides', 'lhs', 'rhs' ] ),
+		:rules			=> Attribute.create( [ :html ], [ 'none', 'rows', 'cols', 'groups', 'all' ] ),
+		:height			=> Attribute.create( [ :html ], [ Integer ] ),
+		:cellspacing		=> Attribute.create( [ :html ], [ Integer ] ),
+		:cellpadding		=> Attribute.create( [ :html ], [ Integer ] ),
+		:summary			=> Attribute.create( [:html] ) ,
+		:align			=> HTML_ATTR_ALIGN,
+	}.update( HTML_ATTR_ALL ) )
+	#Only rows are allowed to be added.
+	#The row get the number of columns.
+	#The row counting does not word, when the row-content is added immediate in element-initialization.
+	def << ( row )
+		#Check on allowed elements for a tabular
+		allowed = false
+		[ :row, :hline, :toprule, :midrule, :bottomrule, :endfirsthead , :endhead , :endfoot, :endlastfoot, 
+			:caption ].each{|el| 
+			if row.is_a?( Element.get(el) )
+				allowed = true
+				break
+			end
+		}
+		if ! allowed
+			puts "Add non-row to tabular (#{row.class})"
+		end
+		if row.is_a?( Row )
+			row.columns = @attr[:columns].to_s.to_i
+		end
+		@content << row
+		set_backlink( row )
+	end
+	def to_latex()
+		cmd	=	''
+		cmd	<<	"\n" if @crbefore
+		cmd	<<	"\\begin{tabular}{"
+		cmd	<<	@attr[:columndescription].content.to_s
+		cmd	<<	"}"
+		cmd	<<	"\n" if @crmid
+		cmd	<< @content.to_s
+		cmd	<<	"\\end{tabular}"
+		cmd	<<	"\n" if @crafter
+		return cmd
+	end
+	def htmltag()
+		return 'table'
+	end
+end
+#Requires
+#	doc.head	<< element(:usepackage,{},'longtable')
+class Longtable < Tabular
+	#Make the key known to the complete key-list of elements.
+	Element.add( [:longtable],  Longtable )
+	#
+	add_attributes( Element.get_attribute_list( Tabular ) )
+	def to_latex()
+		cmd	=	''
+		cmd	<<	"\n" if @crbefore
+		cmd	<<	"\\begin{longtable}{"
+		cmd	<<	@attr[:columndescription].content.to_s
+		cmd	<<	"}"
+		cmd	<<	"\n" if @crmid
+		cmd	<< @content.to_s
+		cmd	<<	"\\end{longtable}"
+		cmd	<<	"\n" if @crafter
+		return cmd
+	end
+end
+#Requires
+#	doc.head	<< element(:usepackage,{},'longtable')
+#fixme :width is obligatory
+class Tabularx < Tabular
+	#Make the key known to the complete key-list of elements.
+	Element.add( [:tabularx],  Tabularx )
+	#
+	add_attributes( Element.get_attribute_list( Tabular ) )
+	def to_latex()
+		if @attr[:width].content.to_s == ''
+			puts "Tabularx: Empty width, set it to \\textwidth"
+			@attr[:width] << '\\textwidth'
+		end
+		cmd	=	''
+		cmd	<<	"\n" if @crbefore
+		cmd	<<	"\\begin{tabularx}{"
+		cmd	<<	@attr[:width].content.to_s
+		cmd	<<	"}{"
+		cmd	<<	@attr[:columndescription].content.to_s
+		cmd	<<	"}"
+		cmd	<<	"\n" if @crmid
+		cmd	<< @content.to_s
+		cmd	<<	"\\end{tabularx}"
+		cmd	<<	"\n" if @crafter
+		return cmd
+	end
+end
+#May only be used insode a tabular. Tabular must set the columns-value. 
+#If not, zero columns is expected and an error is thrown.
+class Row < Element
+
+	#Make the key known to the complete key-list of elements.
+	Element.add( [:row, :tr],  Row )
+	#~ :tr	=> {:align=>align},#complete it
+	add_attributes( {
+			:add_vspace	=>  Attribute.create( [:latex] ) ,
+			:bgcolor		=> Attribute.create( [ :html ] ),
+			:width 		=> Attribute.create( [ :html ] ),
+			:height 		=> Attribute.create( [ :html ] ),
+			#fixme
+			#~ :hline			=>  Attribute.create( [:latex], [true, false] ) ,
+		}.update(HTML_ATTR_ALL) ) 
+	def initialize( attr={}, content = nil)
+    super
+    #For Ruby 1.9: Initialize instance variable 
+    @toprule = false
+    @midrule = false
+    @bottomrule = false
+    @endfirsthead = false
+    @endhead = false
+    @endfoot = false
+    @endlastfoot = false
+    @cline = false
+    @cmidrule = false
+    @hline = false
+  end
+	#Set from tabular
+	attr_accessor :columns
+	#Set a line after the row.
+	def hline();		@hline		= element(:hline);		self; end
+	#Set line sequences under the fields
+	def cline( val )
+		@cline = [] if ! defined?( @cline )
+		if ! ( /\A\d+-\d+\z/  =~ val )
+			puts "\\cline with wrong parameter: #{val.inspect}"
+		end
+		@cline	<< val
+		return self
+	end
+	#Toprule requires booktabs.sty
+	def toprule();		@toprule		= element(:toprule);		self; end
+	#Midrule requires booktabs.sty
+	def midrule();		@midrule		= element(:midrule);		self; end
+	def cmidrule( val )
+		@cmidrule = [] if ! defined?( @cmidrule )
+		if ! ( /\A\d+-\d+\z/  =~ val )
+			puts "\\cmidrule with wrong parameter: #{val.inspect}"
+		end
+		@cmidrule	<< val
+		return self
+	end
+	
+	#Bottomrule requires booktabs.sty	
+	def bottomrule(); 	@bottomrule	= element(:bottomrule);	self; end
+	#Only inside a longtable
+	def endhead();	@endhead		= element(:endhead);	self; end
+	#Only inside a longtable
+	def endfoot();		@endfoot		= element(:endfoot);		self; end
+	#Only inside a longtable
+	def endfirsthead();	@endfirsthead	= element(:endfirsthead);	self; end
+	#Only inside a longtable
+	def endlastfoot();	@endlastfoot	= element(:endlastfoot);	self; end
+	#Only Colums are allowed to be added.
+	#In combination with longtable, captions are also allowed.
+	def << ( row )
+		#Check on allowed elements inside a row
+		allowed = false
+		[ :col, :multicolumn, :caption].each{|el| 
+			if row.is_a?( Element.get(el) )
+				allowed = true
+				break
+			end
+		}
+		if ! allowed
+			puts "Add non-column to tabular (#{row.class})"
+		end
+		@content << row
+		#Does not work with multicolumns.
+		if !@columns
+			puts "Add row to tabular with undefined columns number (#{row.inspect})" 
+		elsif @content.size > @columns 
+			puts "Tabular with #{@columns} columns get #{@content.size} columns" 
+		end
+		set_backlink( row )
+	end
+	def inspect()
+		return "<Class Row:#{object_id}> @content={@content.inspect}"
+	end
+	#Each cell is separated by '&'.
+	def to_latex()
+		cmd	=	''
+		cmd	<<	"\n" if @crbefore
+		cmd	<< @content.join(' & ') + Regexp.escape('\\' + '\\')
+		cmd	<< "[#{@attr[:add_vspace].content.to_s}]" if @attr[:add_vspace].content.size > 0
+		cmd	<< @hline.to_s		if @hline
+		cmd	<< @toprule.to_s	if @toprule
+		cmd	<< @midrule.to_s	if @midrule
+		cmd	<< @bottomrule.to_s	if @bottomrule
+		cmd	<< @endfirsthead.to_s	if @endfirsthead
+		cmd	<< @endhead.to_s	if @endhead
+		cmd	<< @endfoot.to_s	if @endfoot
+		cmd	<< @endlastfoot.to_s	if @endlastfoot		
+		@cline.each{|cline|	cmd	<< "\\cline{#{cline}}"	} if @cline
+		@cmidrule.each{|cmidrule|	cmd	<< "\\cmidrule{#{cmidrule}}"	} if @cmidrule
+		cmd	<<	"\n" if @crafter
+		return cmd
+	end
+	def htmltag()
+		return 'tr'
+	end
+	def to_html()
+		cmd	=	''
+		cmd	<<	"\n" if @crbefore
+		cmd	<< '<tr '
+		css = @attr[:style].content[0]
+		puts "docgenerator_tabular: style is no CSS #{css.inspect}" if css and ! css.is_a?(CSS)
+		@attr[:style] << css = CSS.new if ! css		
+		#Doesn't work. Style sheet setting in tr doesn't go to td
+		if @hline
+			css[:border_bottom_style]	= 'solid'  
+			css[:border_bottom_width] = 'thick'  
+		end
+		# cmd	<< @toprule.to_s	if @toprule
+		# cmd	<< @midrule.to_s	if @midrule
+		# cmd	<< @bottomrule.to_s	if @bottomrule
+		# @cline.each{|cline|	cmd	<< "\\cline{#{cline}}"	} if @cline
+		# cmd	<< "[#{@attr[:add_vspace].content.to_s}]" if @attr[:add_vspace].content.size > 0
+		
+		# cmd	<< @endfirsthead.to_s	if @endfirsthead
+		# cmd	<< @endhead.to_s	if @endhead
+		# cmd	<< @endfoot.to_s	if @endfoot
+		# cmd	<< @endlastfoot.to_s	if @endlastfoot		
+		@attr.sort_by{|k,v|	 v.sortkey }.each{|k,v|
+			cmd << "#{k} = \"#{v}\" " if v.to_s != '' and v.html?
+		}
+		cmd	<< '>'
+		cmd	<< "#{@content}"
+		cmd	<< "\n" if @crmid
+		cmd	<< '</tr>'
+		cmd	<<	"\n" if @crafter
+		return cmd
+	end
+end
+
+Element.create( [:hline ], {},false, 
+	{	:htmltag	=> nil,
+		:latex	=> '\hline '
+	} )
+Element.create( [:toprule ], {},false, 
+	{	:htmltag	=> nil,
+		:latex	=> '\toprule'
+	} )
+Element.create( [:midrule ], {},false, 
+	{	:htmltag	=> nil,
+		:latex	=> '\midrule'
+	} )
+Element.create( [:bottomrule ], {},false, 
+	{	:htmltag	=> nil,
+		:latex	=> '\bottomrule'
+	} )
+Element.create( [:endfirsthead  ], {},false, 
+	{	:htmltag	=> nil,
+		:latex	=> '\endfirsthead '
+	} )
+Element.create( [:endhead  ], {},false, 
+	{	:htmltag	=> nil,
+		:latex	=> '\endhead '
+	} )
+Element.create( [:endfoot ], {},false, 
+	{	:htmltag	=> nil,
+		:latex	=> '\endfoot'
+	} )
+Element.create( [:endlastfoot ], {},false, 
+	{	:htmltag	=> nil,
+		:latex	=> '\endlastfoot'
+	} )
+#~ @cline.each{|cline|	cmd	<< "\\cline{#{cline}}"	} if @cline
+
+
+#One column in a tabular.
+class Column < Element
+	#Make the key known to the complete key-list of elements.
+#~ :th	=> {:colspan => nil, :rowspan => nil, :align=>align, :valign=>valign, :border=>nil, :width=>nil},#complete it
+#~ :td	=> nil,	#like :th
+	Element.add( [:col, :column, :td, :th],  Column )
+	add_attributes( HTML_ATTR_ALL )
+	add_attributes( { 
+		:width 	=> Attribute.create( [ :html ] ),
+		:height 		=> Attribute.create( [ :html ] ),
+		:align 	=> HTML_ATTR_ALIGN,
+		:bgcolor	=> Attribute.create( [ :html ] ),
+	} )
+	def to_latex()
+		cmd	=	''
+		cmd	<<	"\n" if @crbefore
+		cmd	<<	"#{@content}"
+		cmd	<<	"\n" if @crafter
+		return cmd
+	end
+	def content?; :empty_ok; end
+	def htmltag()
+#	fixme th for head	
+		return 'td'
+	end
+	def inspect()
+		return "<Class Column @content=#{@content.inspect}>"
+	end
+end
+class Multicolumn < Column
+	#Make the key known to the complete key-list of elements.
+	Element.add( [:multicolumn],  Multicolumn )
+	#~ add_attributes( HTML_ATTR_ALL ) 
+	add_attributes( { 
+		#~ :columns	=>  Attribute.create( [:required], [ Fixnum ] ) ,	#colspan
+		:columns	=> 	Attribute.create( [:required, :html, :latex], [ Fixnum ], 2 ) ,	#colspan
+		:colspan	=>	:columns,
+		:rowspan	=> 	Attribute.create( [:html ], [ Fixnum ], 2 ),
+		:pos		=>  Attribute.create( [:latex] ) ,
+		:align	=>  HTML_ATTR_ALIGN,
+		:width 	=> Attribute.create( [ :html ] ),
+		:height 	=> Attribute.create( [ :html ] ),
+	}.update( HTML_ATTR_ALL ) ) 
+	def to_latex()
+		cmd	=	''
+		cmd	<<	"\n" if @crbefore
+		cmd	<< 	"\\multicolumn{#{@attr[:columns]}}{#{@attr[:pos]}}{#{@content}}"
+		cmd	<<	"\n" if @crafter
+		return cmd
+	end
+	#~ def htmltag()
+		#~ return 'td'
+	#~ end
+	#~ def to_html()
+		#~ cmd	=	''
+		#~ cmd	+=	"\n" if @crbefore
+		#~ cmd	+= 	"<td colspan=\"#{@attr[:columns]}\">"
+		#~ cmd	+= "#{@content}</td>"
+		#~ cmd	+=	"\n" if @crafter
+		#~ return cmd
+	#~ end
+	def inspect()
+		return "<Class Multicolumn @content=#{@content.inspect}>"
+	end
+end

data/docgenerator_template.rb

@@ -0,0 +1,103 @@
+if __FILE__ == $0
+	require 'DocGenerator' 
+end
+
+class DocumentTemplate
+	@@templates	= {}
+	def DocumentTemplate.add_template( key, target, template)
+		@@templates[key] = template.gsub(/^\t*/, '')	#fixme check uniqi
+		case target
+		when nil
+		when :latex
+			SUPPORTED_LaTeX_TEMPLATES	<< key
+		when :html
+			SUPPORTED_HTML_TEMPLATES	<< key
+		end
+	end
+	def DocumentTemplate.[]( key )
+		if @@templates[key]
+			return @@templates[key].dup
+		else
+			puts "Template unknown: #{key}"
+			return nil
+		end
+	end
+	def DocumentTemplate.keys()
+		return @@templates.keys
+	end
+end
+
+
+DocumentTemplate.add_template( 
+	:include, :latex, %q|<<prefix>>
+		% ----------------------------------------------------------------
+		<<head>>
+		% ----------------------------------------------------------------
+		<<body>>
+		% ----------------------------------------------------------------
+	|)
+	
+DocumentTemplate.add_template( 
+	:article, :latex, %q|<<prefix>>
+		\documentclass[<<classoptions>>]{scrartcl}
+		\usepackage{babel}
+		\usepackage[ansinew]{inputenc}
+		\usepackage{hyperref}
+		% ----------------------------------------------------------------
+		<<head>>
+		% ----------------------------------------------------------------
+		\begin{document}
+		<<body>>
+		\end{document}
+		% ----------------------------------------------------------------
+	|)
+#~ DocumentTemplate.add_template( 
+	#~ :report, '',
+	#~ |)
+#~ DocumentTemplate.add_template( 
+	#~ :book, '',
+	#~ |)
+
+		#~ <!doctype html public "-//W3C//DTD XHTML 1.0 Strict//EN"   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+
+DocumentTemplate.add_template( 
+	:html, :html, %q|<!--
+		<<prefix>>
+		-->
+		<!doctype html public "-//W3C//DTD HTML 4.01 Transitional//EN">
+		<html>
+		<<head>>
+		<<body>>
+		</html>
+		|)
+
+{
+	:xhtml_strict	=> '<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">',
+	:xhtml_trans	=> '<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">',
+	:html401_strict	=> '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">',
+	:html401_trans	=> '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">',
+}.each{ |key, doctype|
+	DocumentTemplate.add_template( 
+		key, :html, %Q|<!--
+			<<prefix>>
+			-->
+			#{doctype}
+			<html>
+			
+			<<head>>
+			
+			<<body>>
+			</html>
+			|)
+}
+
+
+
+DocumentTemplate.add_template( 
+	:text, :text, %q|
+		<<body>>
+	|)
+DocumentTemplate.add_template( 
+	:wiki, :wiki, %q|
+		<<body>>
+	|)

data/examples/docgenerator_example.rb

@@ -0,0 +1,185 @@
+#Create a test-document with docgenerator.rb.
+#
+#This program loads docgenerator.rb and 
+#use most of the features of the tool.
+#
+#Start the tool and two documents
+#-	test.html and
+#-	test.tex
+#are created. 
+
+#~ require 'rubygems'
+$: << ".."  #for local tests with uninstalled gem
+require 'docgenerator'
+with_error  = false
+#~ with_error  = true  #Include some "wrong" statements. You will get a message from docgenerator
+
+##############
+## Test
+##############
+puts '='*40
+#~ puts Element.overview( [Element.get(:h1)] )
+#~ puts Element.overview( [Title] )
+#~ puts Element.overview( )
+#~ puts '='*40
+
+puts ">Create a test-document"
+doc = Document.new()
+doc.add_option('ngerman')
+
+doc.head	<< element( :usepackage, { }, 'longtable' )
+#~ doc.head	<< element( :usepackage, { :option => [] }, 'longtable' )
+doc.head	<< element( :sepline )	#Separator line
+
+
+#~ doc.head	<< element(:title, {}, 'Titel')
+#~ doc.head	<< element(:author, {}, 'Authorname')
+doc.title	='Titel'
+doc.author	= 'Authorname'
+doc.date	= 'Datum'
+doc.keywords	= 'Test, DocGenerator.rb'
+doc.description	= 'Testdokument f�r DocGenerator.rb'
+
+doc.head	<< element(:meta, {:name => 'xxx', :content => 'inhalt' } )
+if with_error
+  puts '!And at <save> an error: Meta-Tag without required attributes'
+  doc.head	<< element(:meta, {} )
+end
+
+doc.body	<< element(:maketitle)
+doc.body[:lang] << 'de'
+
+# ###############################
+def listen()
+	listen = []
+	listen	<< element(:h1, {}, 'Listen')
+	
+	listen	<< element(:h2, {}, 'Unnummerierte Liste')
+	listen	<< ul = element(:ul)
+	ul		<< element( :li, {}, 'Listitem 1' )
+	ul		<< element( :li, {}, 'Listitem 2' )
+	ul		<< element( :li, {}, 'Listitem 3' )
+	
+	listen	<< element(:h2, {}, 'Nummerierte Liste')
+	listen	<< ol = element(:ol)
+	ol		<< element( :li, {}, 'Listitem 1' )
+	ol		<< element( :li, {}, 'Listitem 2' )
+	ol		<< element( :li, {}, 'Listitem 3' )
+	return listen
+end
+doc.body	<< listen
+
+# ###############################
+doc.body	<< element(:h1, {}, 'Absatzsteuerung').cr
+doc.body	<< 'Text'
+doc.body	<< element( :br ).cr
+doc.body	<< 'Text'
+if with_error
+  puts '!And now an error: Content added to makro without content'
+  doc.body	<< element( :br, {}, 'Text in br' ).cr
+end
+
+# ###############################
+doc.body	<< element(:h1, {}, 'Links und Verweise').cr
+doc.body	<< element(:a,	{ :href => 'http://ruby.lickert.net/' }, 'Link zu meinen Skripten').cr
+doc.body	<< element(:url,{}, 'http://ruby.lickert.net/')
+
+
+# ###############################
+doc.body	<< element(:h1, {}, 'Relatives einf�gen').cr
+doc.body	<< par = element(:par, {}, 'Absatz')
+
+doc.body.insertbefore( par, 'Einschub vor dem Absatz' )
+doc.body.insertafter( par, 'Einschub nach dem Absatz' )
+
+if with_error
+  puts "!And now an error: insertbefore with a non-existing target"
+  doc.body.insertbefore( 'a', 'Before List' )
+end
+
+# ###############################
+doc.body	<< element(:h1, {}, 'Tabellen').cr
+columnnumber = 5
+doc.body	<< tab = element(:tabular, {
+				:columns => columnnumber,
+				:columndescription =>	'c' * columnnumber
+			} ).CR
+
+tab 	<< row = element( :row, {:add_vspace=>'1ex'}  ).cr
+row	<< element(:multicolumn, {
+			:columns	=> columnnumber,
+			:pos		=> 'c',
+		}, 'Titel' )
+row.hline
+
+'a'.upto('f'){|num|
+	tab 		<< row = element( :row ).cr
+	1.upto(columnnumber){|letter|
+		row		<< element(:column, {}, "#{num}#{letter}" )
+	}
+}
+
+
+def footnote( )
+	txt = []
+	
+	txt << element(:h1, {}, 'Fu�noten').cr
+	txt << element(:h2, {}, 'Standardfu�noten').cr
+	txt << 'a'
+	txt << f = element(:footnote,{}, 'eins')
+	txt << 'b'
+	txt << element(:footnote,{}, 'zwei')
+	txt << ' nochmal erste Fu�note'
+	txt << f
+	txt << 'z'
+	
+	txt << element(:h2, {}, 'Fu�noten in eigener Gruppe 1').cr
+	txt << 'a'
+	txt << f = element(:footnote,{:groupid=>1}, 'Fu�note eins/Gruppe 1')
+	txt << 'b'
+	txt << element(:footnote,{:groupid=>1}, 'Fu�note zwei/Gruppe 1')
+	txt << 'c'
+	txt << f
+	txt << 'z'
+	
+	txt << element(:h2, {}, 'Fortsetzung').cr
+	txt << 'a'
+	txt << f = element(:footnote,{}, 'drei')
+	txt << 'b'
+	txt << element(:footnote,{}, 'vier')
+	txt << 'c'
+	txt << f
+	txt << 'z'
+	
+	txt << element(:hr).cr
+	Footnotegroup.get.attr={:style=>'font-size: smaller'}
+	txt << Footnotegroup.get()
+	txt << element(:hr)
+	Footnotegroup.get( 1 ).html_link = false	#Footnote are not linked
+	txt << Footnotegroup.get(1)
+	return txt
+end
+doc.body << footnote
+
+# ##############
+#~ Element.log = true #Write Errors to stdout
+#~ doc.save( 'test.html',	true )
+
+doc.body	<< element(:h1, {}, 'Restrict to different Output formats').cr
+doc.body << element(:p, {}, 'When you create simultanous output to LaTeX and HTML, perhaps you need some parts only in one output document.')
+doc.body << element(:p, {}, 'Only in HTML').restrict_to(:html)
+doc.body << element(:htmlonly, {}, 'Only in HTML')
+doc.body << element(:p, {}, 'Only in LaTeX').restrict_to(:latex)
+doc.body << element(:latexonly, {}, 'Only in LaTeX')
+
+
+# ###############################
+doc.body	<< element(:h1, {}, 'Ende').cr
+
+# ###############################
+puts ">Save the files"
+
+#~ Element.log = true #Write Errors to stdout
+doc.save( 'test_docgenerator.html',	true )
+doc.runtex = true
+doc.save( 'test_docgenerator.tex',	true )