tdiary 3.2.2.20130507

data/misc/style/emptdiary/README.rd

@@ -0,0 +1,83 @@
+=begin
+= emptDiaryスタイル((-$Id: README.rd,v 1.6 2008-03-02 09:01:20 kazuhiko Exp $-))
+
+== 概要
+((:emptDiaryスタイル:))((-emptDiaryは'empty line permitted tDiary style'
+を省略したものです。長いねぇ。-))は、((:tDiaryス タイル:))に加えて、プラ
+グインの引数に空白行を許すスタイルです。このスタイルを使うと、日記をセク
+ションに分ける際に、<%と%>の間の空白行を無視してもらえます。
+
+日記にプログラムリストなどを書く場合に、リストが空白行を含むと、
+((:tDiaryス タイル:))ではリストの途中から次のセクションになってしまいま 
+す。((:emptDiaryスタイル:))では、プラグインの引数の中の空白を無視するの
+で、例えばpre.rbプラグインのヒアドキュメントとしてプログラムリストを記述
+することで、プログラムリストに何の変更もなく、日記にリストを書くことがで
+きます。
+
+((:emptDiaryスタイル:))の最新版は、
+((<URL:http://zunda.freeshell.org/d/misc/style/emptdiary/emptdiary_style.rb>))から、
+このファイルの最新版は、
+((<URL:http://zunda.freeshell.org/d/misc/style/emptdiary/README.rd>))か
+ら、 入手できるでしょう。
+
+また、pre.rbの最新版は、
+((<URL:http://zunda.freeshell.org/d/plugin/pre.rb>))から入手できるはずで
+す。
+
+== Usage
+このスタイルを使うには、
+(1) emptdiary_style.rb ファイルを、tdiary/ ディレクトリにコピーしてくだ
+    さい。tdiary/ ディレクトリは、tdiary.rb ファイルのあるトップディレク
+    トリの下にあります。
+(2) tdiary.confに以下の行を書いてください。
+      @style = 'emptDiary'
+
+日記は、((:tDiaryスタイル:))とほとんど同じように書くことができます。
+HOWTO-write-tDiary.htmlに書かれている通り、
+* 空白無しで始まる行は、((:セクションタイトル:))になります。この行には、
+  ((:セクションアンカー:))が付きます。
+* ((:セクションタイトル:))に続く行は、その((:セクション:))の内容になりま
+  す。
+* 空白行によって、次の((:セクション:))と分かれます。
+* ((:セクション:))の最初の行を空白や<で始めることによって、
+  ((:セクションタイトル:))の無い((:セクション:))を作ることができます。
+
+((:emptDiaryスタイル:))では、上記のルールに加えて、
+* <%と%>に囲まれた空白行は、セクションを分割する際に無視されます。つまり、
+  あるセクションに、<%と%>に囲まれた空白行を含めることができます。
+* 副作用として、日記には、<%と%>が同数、それぞれペアになって含まれていな
+  いといけません。
+
+つまり、pre.rbを使って、
+  セクションタイトル
+  <p>セクションの内容</p>
+  <%=pre <<'_PRE'
+  #include <stdio.h>
+
+  /* 上記は空白行 */
+  int
+  main (int argc, char *argv[])
+  {
+    puts ("Hello world.");
+  }
+  _PRE
+  %>
+などというセクションを作ることができます。不等号やアンパーサンドの実体参
+照への変換は、pre.rbで行われることに注意してください。
+
+== 謝辞
+このスタイルは、((:tDiaryスタイル:))のTdiarySectionとTdiaryDiaryをsuper
+classとして実装されています。このようなフレキシブルなクラスを提供されて
+いる、tdiary_style.rbの著者の方々に感謝します。
+
+== 著作権
+Copyright 2003 zunda <zunda at freeshell.org>
+
+Permission is granted for use, copying, modification, distribution,
+and distribution of modified versions of this work under the terms
+of GPL version 2 or later.                                                  
+=end
+=begin ChangeLog
+* Mon Feb 17, 2003 zunda <zunda at freeshell.org>
+- first draft
+=end

data/misc/style/emptdiary/README.rd.en

@@ -0,0 +1,78 @@
+=begin
+= emptDiary style((-$Id: README.rd.en,v 1.5 2003-11-06 09:43:46 zunda Exp $-))
+
+== Summary
+((:emptDiary style:))((-emptDiary is an abbreviation for 'empty line
+permitted tDiary style'. Very long, isn't it?-)) is an extension to the
+((:tDiary style:)) which allows plug-in arguments to have empty lines.
+In short, this style preserves empty lines between <% and %> when
+splltting the input into sections.
+
+Sometimes, you would want to include your program list in your diary. In
+the case, the ((:tDiary style:)) rule gets in the way: an empty line in
+the program list makes a second section. ((:emptDiary style:)) permits
+empty lines in the arguments of plug-ins. Thus, using e.g. pre.rb
+plugin, you can show your program list without modifying your it.
+
+
+The latest version of this style can be downloaded from
+((<URL:http://zunda.freeshell.org/d/misc/style/emptdiary/emptdiary_style.rb>)),
+and the latest version of this document can be downloaded from
+((<URL:http://zunda.freeshell.org/d/misc/style/emptdiary/README.rd.en>)).
+
+== Usage
+If you want to use this style
+(1) copy the file emptdiary_style.rb into the tdiary/ directory under
+    the top directory where tdiary.rb sits.
+(2) add the following line into tdiary.conf:
+      @style = 'emptDiary'
+
+You can write your diaries in almost the same manner as you have done
+with the tDiary style as described in the file HOWTO-write-tDiary.html.
+In short:
+* A line beginning without a space becomes a ((:section title:)) with a
+  ((:section anchor:)),
+* Lines following the ((:section title:)) become the body of the
+  ((:section:)),
+* An empty line changes ((:section:))s, but
+* You can create a ((:section:)) with a ((:section anchor:)) but a
+  ((:section title:)) with the first line beginning with a space.
+
+((:emptDiary style:)) adds the follwing rules:
+* Empty lines between <% and %> are ignored when parsing your text into
+  sections. Thus, you can include empty lines between <% and %>.
+As a side effect
+* You have to keep <% and %>'s in the pairs.
+
+Thus, using pre.rb plugin, you can write ((*A*)) section like:
+  title of the section
+  <p>Descriptino of the program</p>
+  <%=pre <<'_PRE'
+  #include <stdio.h>
+
+  /* above is an empty line */
+  int
+  main (int argc, char *argv[])
+  {
+    puts ("Hello world.");
+  }
+  _PRE
+  %>
+Please note that the <, >, and & charactors are escaped by the pre plugin.
+
+== Acknowledgements
+This style is realized using TdiarySection and TdiaryDiary as
+super-classes. I thank the authors of tdiary_style.rb for providing such
+flexible classes.
+
+== Copyright
+Copyright 2003 zunda <zunda at freeshell.org>
+
+Permission is granted for use, copying, modification, distribution,
+and distribution of modified versions of this work under the terms
+of GPL version 2 or later.                                                  
+=end
+=begin ChangeLog
+* Mon Feb 17, 2003 zunda <zunda at freeshell.org>
+- first draft
+=end

data/misc/style/emptdiary/emptdiary_style.rb

@@ -0,0 +1,199 @@
+# -*- coding: utf-8; -*-
+=begin
+= emptDiary style((-$Id: emptdiary_style.rb,v 1.11 2008-03-02 09:01:20 kazuhiko Exp $-))
+
+== Summary
+This style is an extension to the tDiary style which allows plug-in
+arguments to have empty lines. In short, this style preserves empty
+lines between <% and %> when splltting the input into sections.
+
+The latest version of this file can be downloaded from
+((<URL:http://zunda.freeshell.org/d/misc/style/emptdiary/emptdiary_style.rb>)).
+
+== Usage
+if you want to use this style, add the following line into tdiary.conf:
+  @style = 'emptdiary'
+Please see  README.rd or README.rd.en for further explanation.
+
+== Acknowledgements
+This style is realized using TdiarySection and TdiaryDiary as
+super-classes. I thank the authors of tdiary_style.rb for providing such
+flexible classes.
+
+EmptdiaryDiary::to_html4 and EmptdiaryDiary::to_chtml are copied from
+tdiary_style.rb and slightly edited as follows:
+* split_unless_plugin() is inserted before each collect()
+* Regexp is chanegd from ^ to \A
+
+== Copyright
+Copyright 2003 zunda <zunda at freeshell.org>
+
+Permission is granted for use, copying, modification, distribution,
+and distribution of modified versions of this work under the terms
+of GPL version 2 or later.                                                  
+=end
+=begin ChangeLog
+* Mon Feb 17, 2003 zunda <zunda at freeshell.org>
+- copied from zunda_style.rb, with which I used for preliminary tests.
+* Wed Feb 26, 2003 zunda <zunda at freeshell.org>
+- TDiary::Emptdiary::String class to handle strings better
+	(Thanks to Mitsuru Shimamura <mitsuru at diana.dti.ne.jp> for the
+	error report)
+* Wed Dec 22, 2004 zunda <zunda at freeshell.org>
+- override body_to_html
+=end
+ 
+require 'tdiary/style/tdiary_style'
+
+=begin
+== Classes and methods defined in this style
+Please note that not all are documented.
+=end
+
+module TDiary
+=begin
+=== TDiary::Emptdiary::EmptdiaryString < String
+Extended String class not to divide things between <% and %>.
+
+--- TDiary::Emptdiary::EmptdiaryString.split_unless_plugin ( delimiter = "\n\n" )
+      Returns an array of EmptdiaryString splitted at ((|delimiter|))
+      which is outside of <% and %> pairs. Specify ((|delimiter|)) as a
+      String showing a fragment of Regexp. This will be combined in a
+      Regexp like: /(#{delimiter)|<%|%>)/.
+=end
+	class Emptdiary
+		class EmptdiaryString < String
+			def split_unless_plugin( delimiter = "\n\n+" )
+				result = Array.new
+				fragment = ''
+				nest = 0
+				remain = self.gsub(/.*?(#{delimiter}|<%|%>)/m) do
+					fragment += $&
+					case $1
+					when '<%'
+						nest += 1
+					when '%>'
+						nest -= 1
+					else
+						if nest == 0 then
+							fragment.sub!( /#{delimiter}\z/, '' )
+							result << Emptdiary::EmptdiaryString.new( fragment ) unless fragment.empty?
+							fragment = ''
+						end
+					end
+					''
+				end
+				fragment += remain
+				fragment.sub!( /#{delimiter}\z/, '' )
+				result << Emptdiary::EmptdiaryString.new( fragment ) unless fragment.empty?
+				result
+			end
+		end
+	end
+
+=begin
+=== TDiary::EmptdiartySection < TdiarySection
+Almost the same as TdiarySection but usess split_unless_plugin instead
+of split. initialize method is overrideen.
+=end
+	class EmptdiarySection < TdiarySection
+		def initialize( fragment, author = nil )
+			@author = author
+			lines = fragment.split_unless_plugin( "\n+" )
+			if lines.size > 1 then
+				if /\A<</ =~ lines[0]
+					@subtitle = lines.shift.chomp.sub( /\A</, '' )
+				elsif /\A[　 <]/u !~ lines[0]
+					@subtitle = lines.shift.chomp
+				end
+			end
+			@body = Emptdiary::EmptdiaryString.new( lines.join( "\n" ) )
+			@categories = get_categories
+			@stripped_subtitle = strip_subtitle
+		end
+
+		def body_to_html
+			html = ""
+			@body.split_unless_plugin( "\n" ).each do |p|
+				if /\A</ =~ p then
+					html << p
+				else
+					html << "<p>#{p}</p>"
+				end
+			end
+			html
+		end
+	end
+
+=begin
+=== TDiary::EmptdiaryDiary < TdiaryDiary
+Almost the same as TdiarySection but usess split_unless_plugin instead
+of split. append method is overriden and makes EmptdiarySection with
+body being an EmptdiaryString. Also, to_html4 and to_chtml methods are
+overridden to split_unless_plugin before collect'ing the body of the
+sections.
+=end
+	class EmptdiaryDiary < TdiaryDiary
+		def style
+		  'emptdiary'
+		end
+	
+		def append( body, author = nil )
+			Emptdiary::EmptdiaryString.new(body.gsub( /\r/, '' )).split_unless_plugin( "\n\n+" ).each do |fragment|
+				section = EmptdiarySection::new( fragment, author )
+				@sections << section if section
+			end
+			@last_modified = Time::now
+			self
+		end
+
+		def to_html4( opt )
+			r = ''
+			each_section do |section|
+				r << %Q[<div class="section">\n]
+				r << %Q[<%=section_enter_proc( Time::at( #{date.to_i} ) )%>\n]
+				if section.subtitle then
+					r << %Q[<h3><%= subtitle_proc( Time::at( #{date.to_i} ), #{section.subtitle.dump.gsub( /%/, '\\\\045' )} ) %></h3>\n]
+				end
+				if /\A</ =~ section.body then
+					r << %Q[#{section.body}]
+				elsif section.subtitle
+					r << %Q[<p>#{section.body.split_unless_plugin( "\n+" ).collect{|l|l.chomp.sub( /\A[　 ]/u, '')}.join( "</p>\n<p>" )}</p>]
+				else
+					r << %Q[<p><%= subtitle_proc( Time::at( #{date.to_i} ), nil ) %>]
+					r << %Q[#{section.body.split_unless_plugin( "\n+" ).collect{|l|l.chomp.sub( /\A[　 ]/u, '' )}.join( "</p>\n<p>" )}</p>]
+				end
+				r << %Q[<%=section_leave_proc( Time::at( #{date.to_i} ) )%>\n]
+				r << %Q[</div>]
+			end
+			r
+		end
+
+		def to_chtml( opt )
+			r = ''
+			each_section do |section|
+				r << %Q[<%=section_enter_proc( Time::at( #{date.to_i} ) )%>\n]
+				if section.subtitle then
+					r << %Q[<H3><%= subtitle_proc( Time::at( #{date.to_i} ), #{section.subtitle.dump.gsub( /%/, '\\\\045' )} ) %></H3>\n]
+				end
+				if /\A</ =~ section.body then
+					r << section.body
+				elsif section.subtitle
+					r << %Q[<P>#{section.body.split_unless_plugin( "\n+" ).collect{|l|l.chomp.sub( /\A[　 ]/u, '' )}.join( "</P>\n<P>" )}</P>]
+				else
+					r << %Q[<P><%= subtitle_proc( Time::at( #{date.to_i} ), nil ) %>]
+					r << %Q[#{section.body.split_unless_plugin( "\n+" ).collect{|l|l.chomp.sub( /\A[　 ]/u, '' )}.join( "</P>\n<P>" )}</P>]
+				end
+				r << %Q[<%=section_leave_proc( Time::at( #{date.to_i} ) )%>\n]
+			end
+			r
+		end
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/style/etdiary/README.rd

@@ -0,0 +1,83 @@
+=begin
+= etDiaryスタイル
+
+== etDiaryスタイルとは
+((<tDiary|URL:http://www.tdiary.org/>)) の変種である((<etDiary|URL:http://www.enbug.org/etdiary.html>)) の書式をtDiary本体で利用するためのスタイルです.
+
+基本的にはtDiaryスタイルと同じくHTMLをベースとした書式ですが, HTMLタグを意識せずとも
+だいたい見た目の通りになる
+という違いがあります.
+
+== 使用準備
+このスタイルを使うには, 
+
+(1) etdiary_style.rb ファイルを、tdiary/ ディレクトリにコピーしてくだ
+    さい。tdiary/ ディレクトリは、tdiary.rb ファイルのあるトップディレク
+    トリの下にあります。
+(2) tdiary.confに以下の行を書いてください。
+      @style = 'etdiary'
+
+正しく設定されると, 更新フォームに
+	本文(etdiaryスタイル):
+と表示されます.
+
+== etDiaryスタイルの使い方
+etDiaryスタイルは, 行という単位はあまり意味がありません. つまり, 任意の個所に改行が入れられます. 空行(連続した改行)が段落の境界になります. たとえば
+
+	ほげほげ
+	ふがふが
+	
+	ふがほげ
+	ほげら
+
+は,
+
+	<p>
+	ほげほげ
+	ふがふが
+	</p>
+	
+	<p>
+	ふがほげ
+	ほげら
+	</p>
+
+と変換されます.
+
+サブタイトルは明示的に「<<」と「>>」で囲みます. たとえば
+
+	<<サブタイトル>>	
+	本文
+
+は,
+
+	<h3>サブタイトル</h3>
+	<p>
+	本文
+	</p>
+
+と変換されます.
+
+== 書式のルール
+
+* サブタイトルは「<<」と「>>」で囲む.
+* <h3>ではなく<h4>で囲みたいときは「<<<>」と「>>」で囲む.
+* サブタイトルの中身がない場合, つまり, 「<<>>」と書かれた場合, サブタイトルなしで新しいセクションを開始する.
+* 「<<<>>>」と書かれた場合もサブタイトルなしで新しいセクションを開始する. ただし, アンカーリンクは生成しない.
+* 二つ以上の改行は段落の区切りとなる.
+* 段落の初めが「<」の場合, その段落は整形対象外となる. 終了タグがその段落内に含まれない場合, 終了タグが存在する段落まで, 空行を残したまま処理される. これが嫌なら, スペースを先頭に入れると良い.
+* 一般的なHTML同様, "<", ">", "&" はそれぞれ "&lt;", "&gt;", "&amp;" と書く必要がある. ただし, 「<pre>」ではじめた段落に関してはこの限りではない.
+
+== 謝辞
+ただただしさんをはじめとする, tDiaryおよびスタイル変更機能を実装いただきました皆様に感謝致します.
+
+Yoshinori K. Okuji さんが tDiary-1.4.3 をベースに etDiary を実装され, etDiary フォーマットを考案されることがなかったならば, このスタイルが実装されることはありませんでした. また, 当文書も, Okuji さんのページをほぼそのまま写させていただきました. この文書を書けるのも, ひとえに Okuji さんのおかげです. ここに感謝の意を表します.
+
+その他, etDiary スタイルを利用してくださっている皆様, ご意見頂戴しました皆様に, 御礼申し上げます.
+
+== 著作権
+Copyright 2003 simm <simm at fan.jp>
+
+Permission is granted for use, copying, modification, distribution, and distribution of modified versions of this work under the terms of GPL version 2 or later.
+
+=end

data/misc/style/etdiary/etdiary_style.rb

@@ -0,0 +1,446 @@
+# -*- coding: utf-8; -*-
+#
+# etdiary_style.rb: tDiary style class for etDiary format.
+# $Id: etdiary_style.rb,v 1.20 2008-03-02 09:01:20 kazuhiko Exp $
+#
+# if you want to use this style, add @style into tdiary.conf below:
+#
+#    @style = 'etDiary'
+#
+module TDiary
+	class EtdiarySection
+		attr_reader :subtitle, :bodies, :author, :anchor_type
+		attr_reader :categories, :stripped_subtitle
+
+		alias :subtitle_to_html :subtitle
+		alias :stripped_subtitle_to_html :stripped_subtitle
+
+		def initialize( title, author = nil )
+			@subtitle = title
+			if @subtitle then
+				if "" == @subtitle then
+					@subtitle = nil
+					@anchor_type = :P
+				elsif "<>" == @subtitle then
+					@subtitle = nil
+					@anchor_type = :A
+				elsif /^<>/ =~ @subtitle then
+					@subtitle = @subtitle[2..-1]
+					@anchor_type = :H4
+				else
+					@anchor_type = :H3
+				end
+			else
+				@subtitle = nil
+				@anchor_type = nil
+			end
+			@bodies = []
+			@categories = get_categories
+			@stripped_subtitle = strip_subtitle
+		end
+
+		def subtitle=(subtitle)
+			cat_str = ""
+			@categories.each {|cat|
+				cat_str << "[#{cat}]"
+			}
+			cat_str << " " unless cat_str.empty?
+			@subtitle = subtitle
+			if @subtitle then
+				if "" == @subtitle then
+					@subtitle = nil
+					@anchor_type = :P
+				elsif "<>" == @subtitle then
+					@subtitle = nil
+					@anchor_type = :A
+				elsif /^<>/ =~ @subtitle then
+					@subtitle = @subtitle[2..-1]
+					@anchor_type = :H4
+				else
+					@subtitle = cat_str + subtitle
+					@anchor_type = :H3
+				end
+			else
+				@subtitle = nil
+				@anchor_type = nil
+			end
+			@stripped_subtitle = strip_subtitle
+		end
+
+		def body=(str)
+			@bodies = str.split(/\n/)
+		end
+
+		def categories=(categories)
+			@categories = categories
+			cat_str = ""
+			categories.each {|cat|
+				cat_str << "[#{cat}]"
+			}
+			@subtitle = @subtitle ? (cat_str + @stripped_subtitle) : nil
+			@stripped_subtitle = strip_subtitle
+		end
+
+		def set_body( bodies )
+			@bodies = bodies
+		end
+
+		def body
+			if @bodies then
+				@bodies.join('')
+			else
+				''
+			end
+		end
+
+		def body_to_html
+			if @bodies then
+				r = ''
+				in_p = false
+				@bodies.join('').each_line("\n\n") do |p|
+					if /\A</ !~ p then
+						r << "<p>#{p.chomp}</p>\n"
+					else
+						r << p
+					end
+				end
+				r
+			else
+				''
+			end
+		end
+
+		def << (string)
+			@bodies << string
+		end
+
+		def to_src
+			s = ''
+			case @anchor_type
+			when :A
+				s << "<<<>>>\n"
+			when :P
+				s << "<<>>\n"
+			when :H4
+				s << "[#{@author}]" if @author
+				s << "<<<>" + @subtitle + ">>\n"
+			when :H3
+				s << "[#{@author}]" if @author
+				s << "<<" + @subtitle + ">>\n"
+			end
+			s + ( if "" != body then body else "\n" end )
+		end
+
+		def to_s
+			"subtitle=#{@subtitle}, body=#{body}"
+		end
+
+		def get_categories
+			return [] unless @subtitle
+			cat = /^(\[(.*?)\])+/.match(@subtitle).to_a[0]
+			return [] unless cat
+			cat.scan(/\[(.*?)\]/).collect do |c|
+				c[0].split(/,/)
+			end.flatten
+		end
+
+		def categorized_subtitle
+			return "" unless @subtitle
+			cat = /^(\[(.*?)\])+/.match(@subtitle).to_a[0]
+			return @stripped_subtitle unless cat
+			cat.gsub(/\[(.*?)\]/) do
+				$1.split(/,/).collect do |c|
+					%Q|<%= category_anchor("#{c}") %>|
+				end.join
+			end + @stripped_subtitle
+		end
+
+		def strip_subtitle
+			return nil unless @subtitle
+			@subtitle.sub(/^(\[(.*?)\])+\s*/,'')
+		end
+	end
+
+	class EtHtml4Factory
+		def initialize( opt, idx = 1 )
+			@opt = opt
+			@idx = idx
+		end
+		def title( date, fragment )
+			return nil if nil == fragment.anchor_type
+			name = 'p%02d' % @idx
+			@idx += 1
+			if :A == fragment.anchor_type then
+				if @opt['anchor'] then
+					return "<a name=\"#{name}\"></a>"
+				else
+					return nil
+				end
+			end
+
+			r = ''
+			if @opt['index']
+				if fragment.subtitle
+					r << %Q[<%= subtitle_proc( Time::at( #{date.to_i} ), #{fragment.subtitle.dump.gsub( /%/, '\\\\045' )} ) %>]
+				else
+					r << %Q[<%= subtitle_proc( Time::at( #{date.to_i} ), nil ) %>]
+				end
+			end
+
+			case fragment.anchor_type
+			when :P
+				r
+			when :H4
+				"<h4>" + r + ":</h4>\n"
+			when :H3
+				"<h3>" + r + "</h3>\n"
+			end
+		end
+		def section_start( date )
+			%Q[<div class="section">\n<%=section_enter_proc( Time::at( #{date.to_i} ) )%>\n]
+		end
+		def section_end( date )
+			"<%=section_leave_proc( Time::at( #{date.to_i} ) )%>\n</div>\n"
+		end
+		def block_title?( fragment )
+			case fragment.anchor_type
+			when :H3, :H4
+				true
+			else
+				false
+			end
+		end
+		def p_start
+			"<p>"
+		end
+		def p_end
+			"</p>"
+		end
+		def pre_start
+			"<pre>"
+		end
+		def pre_end
+			"</pre>"
+		end
+	end
+
+	class EtCHtmlFactory
+		def initialize( opt, idx = 1 )
+			@opt = opt
+			@idx = idx
+		end
+		def title( date, fragment )
+			return nil if nil == fragment.anchor_type
+			name = 'p%02d' % @idx
+			return "<A NAME=\"#{name}\"></A>" if :A == fragment.anchor_type
+			r = ""
+			if fragment.subtitle
+				r << %Q[<%= subtitle_proc( Time::at( #{date.to_i} ), #{fragment.subtitle.dump.gsub( /%/, '\\\\045' )} ) %>]
+			else
+				r << %Q[<%= subtitle_proc( Time::at( #{date.to_i} ), nil ) %>]
+			end
+			@idx += 1
+			case fragment.anchor_type
+			when :P
+				r
+			when :H4
+				r + ": "
+			when :H3
+				"<H3>" + r + "</H3>\n"
+			end
+		end
+		def section_start( date )
+			"<%=section_enter_proc( Time::at( #{date.to_i} ) )%>\n"
+		end
+		def section_end( date )
+			"<%=section_leave_proc( Time::at( #{date.to_i} ) )%>\n"
+		end
+		def block_title?( fragment )
+			case fragment.anchor_type
+			when :H3
+				true
+			else
+				false
+			end
+		end
+		def p_start
+			"<P>"
+		end
+		def p_end
+			"</P>"
+		end
+		def pre_start
+			"<PRE>"
+		end
+		def pre_end
+			"</PRE>"
+		end
+	end
+
+	class EtdiaryDiary
+		include DiaryBase
+		include CategorizableDiary
+
+		TAG_BEG_REGEXP = /\A<([A-Za-z][0-9A-Za-z]*)([^>]*)>([^\r]*)\z/
+		TAG_END_REGEXP = /\A([^\r]*)<\/([A-Za-z][0-9A-Za-z]*)>\n*\z/
+		PRE_REGEXP     = /\A<[Pp][Rr][Ee][^>]*>([^\r]*)<\/[Pp][Rr][Ee]>\n*\z/
+		TITLE_REGEXP   = /\A<<([^\r]*?)>>[^>]/
+
+		def initialize( date, title, body, modified = Time::now )
+			init_diary
+			set_date( date )
+			set_title( title )
+			@sections = []
+			if body != '' then
+				append( body )
+			end
+			@last_modified = modified
+		end
+
+		def style
+			'etDiary'
+		end
+
+		def replace( date, title, body )
+			set_date( date )
+			set_title( title )
+			@sections = []
+			append( body )
+		end
+
+		def append( body, author = nil )
+			section = nil
+			buffer = nil
+			tag_kind = nil
+			body.gsub(/\r/,'').sub(/\A\n*/,'').sub(/\n*\z/,"\n\n").each_line('') do |fragment|
+				if buffer and TAG_END_REGEXP =~ fragment and $2.downcase == tag_kind then
+					section << buffer + fragment.sub(/\n*\z/,"\n\n")
+					tag_kind = nil
+					buffer = nil
+				elsif buffer then
+					buffer << fragment
+				else
+					if section
+						@sections << section
+					end
+					title = TITLE_REGEXP.match(fragment+"\n").to_a[1]
+					section = EtdiarySection::new( title, author )
+					fragment = fragment[ title.length + 4 .. -1 ].sub(/\A\n/,'') if title
+					if TAG_BEG_REGEXP =~ fragment then
+						tag_kind = $1.downcase
+						if TAG_END_REGEXP =~ fragment and $2.downcase == tag_kind then
+							section << fragment.sub(/\n*\z/,"\n\n")
+							tag_kind = nil
+						else
+							buffer = fragment
+						end
+					else
+						section << fragment
+					end
+				end
+			end
+      if buffer
+        section << buffer << "</#{tag_kind}>(tDiary warning: tag &lt;#{tag_kind}&gt; is not terminated.)"
+      end
+			if section
+				@sections << section
+			end
+			@last_modified = Time::now
+			self
+		end
+
+		def each_paragraph
+			@sections.each do |fragment|
+				yield fragment
+			end
+		end
+
+		def each_section
+			section = nil
+			each_paragraph do |fragment|
+				if section and nil == fragment.anchor_type then
+					section << fragment.body
+				else
+					yield section if section and section.anchor_type
+					section = fragment.dup
+					section.set_body( [ fragment.body ] )
+				end
+			end
+			yield section if section
+		end
+
+		def add_section(subtitle, body)
+			sec = EtdiarySection::new( '' )
+			sec.subtitle = subtitle
+			sec.body     = body
+			@sections << sec
+			@sections.size
+		end
+
+		def delete_section(index)
+			@sections.delete_at(index - 1)
+		end
+
+		def to_src
+			src = ''
+			each_paragraph do |fragment|
+				src << fragment.to_src
+			end
+			src.sub(/\n*\z/,"\n")
+		end
+
+		def to_html_section(section, factory)
+			r = ''
+			s = if section.bodies then section.body else nil end
+			t = factory.title( date, section )
+			if factory.block_title?(section) then
+				r << t if t
+				t = nil
+			end
+			if s && PRE_REGEXP =~ s then
+				r << factory.p_start << t << factory.p_end << "\n" if t
+				r << factory.pre_start
+				r << $1.gsub(/&/,"&amp;").gsub(/</,"&lt;").gsub(/>/,"&gt;")
+				r << factory.pre_end << "\n"
+			elsif s && /\A</ =~ s then
+				r << factory.p_start << t << factory.p_end << "\n" if t
+				r << s.sub( /\n*\z/, "\n" )
+			else
+				r << factory.p_start if t || s
+				r << t if t
+				r << s.sub(/\A\n*/,"\n").sub(/\n*\z/, "\n") if s
+				r << factory.p_end << "\n" if t || s
+			end
+			r
+		end
+
+		def to_html( opt = {'anchor' => true, 'index' => true}, mode = :HTML )
+			case mode
+			when :CHTML
+				f = EtCHtmlFactory::new(opt)
+			else
+				f = EtHtml4Factory::new(opt)
+			end
+			r = f.section_start( date )
+			each_paragraph do |fragment|
+				if :H3 == fragment.anchor_type and r != f.section_start( date ) then
+					r << f.section_end( date ) << "\n" << f.section_start( date )
+				end
+				r << to_html_section(fragment,f)
+			end
+			r + f.section_end( date )
+		end
+
+		def to_s
+			"date=#{date.strftime('%Y%m%d')}, title=#{title}, " \
+				+ "body=[#{@sections.join('][')}]"
+		end
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End: