tdiary 4.0.1.20130903 → 4.0.1.20130929

data/misc/style/wiki/wiki_style.rb

@@ -1,478 +0,0 @@
-# -*- coding: utf-8; -*-
-#
-# wiki_style.rb: WikiWiki style for tDiary 2.x format. $Revision: 1.29 $
-#
-# if you want to use this style, add @style into tdiary.conf below:
-#
-#    @style = 'Wiki'
-#
-# Copyright (C) 2003, TADA Tadashi <sho@spc.gr.jp>
-# You can distribute this under GPL.
-#
-require 'tdiary/wiki_parser'
-
-module TDiary
-	class WikiSection
-		attr_reader :subtitle, :author
-		attr_reader :categories, :stripped_subtitle
-		attr_reader :subtitle_to_html, :stripped_subtitle_to_html, :body_to_html
-	
-		def initialize( fragment, author = nil )
-			@author = author
-			if fragment[0] == ?! then
-				@subtitle, @body = fragment.split( /\n/, 2 )
-				@subtitle.sub!( /^\!\s*/, '' )
-			else
-				@subtitle = nil
-				@body = fragment.dup
-			end
-			@body = @body || ''
-			@body.sub!( /[\n\r]+\Z/, '' )
-			@body << "\n\n"
-			@parser = WikiParser::new( :wikiname => false ).parse( to_src )
-
-			@categories = get_categories
-			@stripped_subtitle = strip_subtitle
-
-			@subtitle_to_html = @subtitle ? to_html("!#{@subtitle}") : nil
-			@stripped_subtitle_to_html = @stripped_subtitle ? to_html("!#{@stripped_subtitle}") : nil
-			@body_to_html = to_html(@body)
-		end
-	
-		def subtitle=(subtitle)
-			cat_str = ""
-			@categories.each {|cat|
-				cat_str << "[#{cat}]"
-			}
-			cat_str << " " unless cat_str.empty?
-			@subtitle = subtitle ? (cat_str + subtitle) : nil
-			@stripped_subtitle = strip_subtitle
-		end
-
-		def body
-			@body.dup
-		end
-
-		def body=(str)
-			@body = str
-		end
-	
-		def categories=(categories)
-			@categories = categories
-			cat_str = ""
-			categories.each {|cat|
-				cat_str << "[#{cat}]"
-			}
-			cat_str << " " unless cat_str.empty?
-			@subtitle = @subtitle ? (cat_str + @stripped_subtitle) : nil
-			@stripped_subtitle = strip_subtitle
-		end
-
-		def to_src
-			r = ''
-			r << "! #{@subtitle}\n" if @subtitle
-			r << @body
-		end
-
-		def html4( date, idx, opt )
-			r = %Q[<div class="section">\n]
-			r << %Q[<%=section_enter_proc( Time::at( #{date.to_i} ) )%>\n]
-			r << do_html4( @parser, date, idx, opt )
-         r << %Q[<%=section_leave_proc( Time::at( #{date.to_i} ) )%>\n]
-			r << "</div>\n"
-		end
-
-		def do_html4( parser, date, idx, opt )
-			main_buff = ''
-			subtitle_buff = ''
-			r = main_buff
-			stat = nil
-			subtitle = false
-			parser.each do |s|
-				stat = s if s.class == Symbol
-				case s
-
-				# subtitle heading
-				when :HS1
-					r << "<h3>"
-					subtitle = true
-					r = subtitle_buff = ''
-				when :HE1
-					r = main_buff
-					r << "<%= subtitle_proc( Time::at( #{date.to_i} ), #{subtitle_buff.dump.gsub( /%/, '\\\\045' )} ) %>"
-					r << "</h3>\n"
-
-				# other headings
-				when :HS2, :HS3, :HS4, :HS5; r << "<h#{s.to_s[2,1].to_i + 2}>"
-				when :HE2, :HE3, :HE4, :HE5; r << "</h#{s.to_s[2,1].to_i + 2}>\n"
-
-				# pargraph
-				when :PS
-					r << '<p>'
-					r << "<%= subtitle_proc( Time::at( #{date.to_i} ), nil ) %>" if ( !subtitle and date )
-				when :PE; r << "</p>\n"
-
-				# horizontal line
-				when :RS; r << "<hr>\n"
-				when :RE
-
-				# blockquote
-				when :QS; r << "<blockquote>\n"
-				when :QE; r << "</blockquote>\n"
-
-				# list
-				when :US; r << "<ul>\n"
-				when :UE; r << "</ul>\n"
-
-				# ordered list
-				when :OS; r << "<ol>\n"
-				when :OE; r << "</ol>\n"
-
-				# list item
-				when :LS; r << "<li>"
-				when :LE; r << "</li>\n"
-
-				# definition list
-				when :DS; r << "<dl>\n"
-				when :DE; r << "</dl>\n"
-				when :DTS; r << "<dt>"
-				when :DTE; r << "</dt>"
-				when :DDS; r << "<dd>"
-				when :DDE; r << "</dd>\n"
-
-				# formatted text
-				when :FS; r << '<pre>'
-				when :FE; r << "</pre>\n"
-
-				# table
-				when :TS; r << "<table border=\"1\">\n"
-				when :TE; r << "</table>\n"
-				when :TRS; r << "<tr>\n"
-				when :TRE; r << "</tr>\n"
-				when :TDS; r << "<td>"
-				when :TDE; r << "</td>"
-
-				# emphasis
-				when :ES; r << "<em>"
-				when :EE; r << "</em>"
-
-				# strong
-				when :SS; r << "<strong>"
-				when :SE; r << "</strong>"
-
-				# delete
-				when :ZS; r << "<del>"
-				when :ZE; r << "</del>"
-
-				# Keyword
-				when :KS; r << '<'
-				when :KE; r << '>'
-
-				# Plugin
-				when :GS; r << '<%='
-				when :GE; r << '%>'
-
-				# URL
-				when :XS; #r << '<a href="'
-				when :XE; #r << '</a>'
-
-				else
-					s = CGI::escapeHTML( s ) unless stat == :GS
-					case stat
-					when :KS
-						r << keyword(s)
-					when :XS
-						case s
-						when /^mailto:/
-							r << %Q[<a href="#{s}">#{s.sub( /^mailto:/, '' )}</a>]
-						when /\.(jpg|jpeg|png|gif)$/
-							r << %Q[<img src="#{s}" alt="#{File::basename( s )}">]
-						else
-							r << %Q[<a href="#{s}">#{s}</a>]
-						end
-					else
-						r << s if s.class == String
-					end
-				end
-			end
-			r
-		end
-	
-		def chtml( date, idx, opt )
-			main_buff = ''
-			subtitle_buff = ''
-			r = main_buff
-			stat = nil
-			subtitle = false
-			@parser.each do |s|
-				stat = s if s.class == Symbol
-				case s
-
-				# subtitle heading
-				when :HS1
-					r << "<H3>"
-					subtitle = true
-					r = subtitle_buff = ''
-				when :HE1
-					r = main_buff
-					r << "<%= subtitle_proc( Time::at( #{date.to_i} ), #{subtitle_buff.dump.gsub( /%/, '\\\\045' )} ) %>"
-					r << "</H3>\n"
-
-				# other headings
-				when :HS2, :HS3, :HS4, :HS5; r << "<H#{s.to_s[2,1].to_i + 2}>"
-				when :HE2, :HE3, :HE4, :HE5; r << "</H#{s.to_s[2,1].to_i + 2}>\n"
-
-				# paragraph
-				when :PS
-					r << "<P>"
-					r << "<%= subtitle_proc( Time::at( #{date.to_i} ), nil ) %>" if ( !subtitle and date )
-				when :PE; r << "</P>\n"
-
-				# horizontal line
-				when :RS; r << "<HR>\n"
-				when :RE
-
-				# blockquote
-				when :QS; r << "<BLOCKQUOTE>\n"
-				when :QE; r << "</BLOCKQUOTE>\n"
-
-				# list
-				when :US; r << "<UL>\n"
-				when :UE; r << "</UL>\n"
-
-				# ordered list
-				when :OS; r << "<OL>\n"
-				when :OE; r << "</OL>\n"
-
-				# list item
-				when :LS; r << "<LI>"
-				when :LE; r << "</LI>\n"
-
-				# definition list
-				when :DS; r << "<DL>\n"
-				when :DE; r << "</DL>\n"
-				when :DTS; r << "<DT>"
-				when :DTE; r << "</DT>"
-				when :DDS; r << "<DD>"
-				when :DDE; r << "</DD>\n"
-
-				# formatted text
-				when :FS; r << '<PRE>'
-				when :FE; r << "</PRE>\n"
-
-				# table
-				when :TS; r << "<TABLE BORDER=\"1\">\n"
-				when :TE; r << "</TABLE>\n"
-				when :TRS; r << "<TR>\n"
-				when :TRE; r << "</TR>\n"
-				when :TDS; r << "<TD>"
-				when :TDE; r << "</TD>"
-
-				# emphasis
-				when :ES; r << "<EM>"
-				when :EE; r << "</EM>"
-
-				# strong
-				when :SS; r << "<STRONG>"
-				when :SE; r << "</STRONG>"
-
-				# delete
-				when :ZS; r << "<DEL>"
-				when :ZE; r << "</DEL>"
-
-				# Keyword
-				when :KS; r << '<'
-				when :KE; r << '>'
-
-				# Plugin
-				when :GS; r << '<%='
-				when :GE; r << '%>'
-
-				# URL
-				when :XS; r << '<A HREF="'
-				when :XE; r << '</A>'
-
-				else
-					s = CGI::escapeHTML( s ) unless stat == :GS
-					case stat
-					when :KS
-						r << keyword(s, true)
-					when :XS
-						r << s << '">' << s.sub( /^mailto:/, '' )
-					else
-						r << s if s.class == String
-					end
-				end
-			end
-			r
-		end
-
-		def to_s
-			to_src
-		end
-
-	private
-		def keyword( s, mobile = false )
-			r = ''
-			if /\|/ =~ s
-				k, u = s.split( /\|/, 2 )
-				if /^(\d{4}|\d{6}|\d{8}|\d{8}-\d+)[^\d]*?#?([pct]\d+)?$/ =~ u then
-					r << %Q[%=my '#{$1}#{$2}', '#{k}' %]
-				elsif /:/ =~ u
-					scheme, path = u.split( /:/, 2 )
-					if /\A(?:http|https|ftp|mailto)\z/ =~ scheme
-						if mobile
-							r << %Q[A HREF="#{u}">#{k}</A]
-						else
-							r << %Q[a href="#{u}">#{k}</a]
-						end
-					else
-						r << %Q[%=kw '#{u}', '#{k}'%]
-					end
-				else
-					r << %Q[a href="#{u}">#{k}</a]
-				end
-			else
-				r << %Q[%=kw '#{s}' %]
-			end
-			r
-		end
-
-		def to_html(string)
-			parser = WikiParser::new( :wikiname => false ).parse( string )
-			parser.delete_at(0) if parser[0] == :HS1
-			parser.delete_at(-1) if parser[-1] == :HE1
-			r = do_html4(parser, nil, nil, {})
-			if r == ""
-				nil
-			else
-				r
-			end
-		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 strip_subtitle
-			return nil unless @subtitle
-			r = @subtitle.sub(/^(\[[^\[]+?\])+\s*/,'')
-			if r == ""
-				nil
-			else
-				r
-			end
-		end
-	end
-
-	class WikiDiary
-		include DiaryBase
-		include CategorizableDiary
-	
-		def initialize( date, title, body, modified = Time::now )
-			init_diary
-			replace( date, title, body )
-			@last_modified = modified
-		end
-	
-		def style
-			'Wiki'
-		end
-	
-		def replace( date, title, body )
-			set_date( date )
-			set_title( title )
-			@sections = []
-			append( body )
-		end
-	
-		def append( body, author = nil )
-			section = nil
-			body.each do |l|
-				case l
-				when /^\![^!]/
-					@sections << WikiSection::new( section, author ) if section
-					section = l
-				else
-					section = '' unless section
-					section << l
-				end
-			end
-			@sections << WikiSection::new( section, author ) if section
-			@last_modified = Time::now
-			self
-		end
-	
-		def each_section
-			@sections.each do |section|
-				yield section
-			end
-		end
-	
-		def add_section(subtitle, body)
-			sec = WikiSection::new("\n")
-			sec.subtitle = subtitle
-			sec.body     = body
-			@sections << sec
-			@sections.size
-		end
-	
-		def delete_section(index)
-		  @sections.delete_at(index - 1)
-		end
-	
-		def to_src
-			r = ''
-			each_section do |section|
-				r << section.to_src
-			end
-			r
-		end
-	
-		def to_html( opt, mode = :HTML )
-			case mode
-			when :CHTML
-				to_chtml( opt )
-			else
-				to_html4( opt )
-			end
-		end
-	
-		def to_html4( opt )
-			r = ''
-			idx = 1
-			each_section do |section|
-				r << section.html4( date, idx, opt )
-				idx += 1
-			end
-			r
-		end
-	
-		def to_chtml( opt )
-			r = ''
-			idx = 1
-			each_section do |section|
-				r << section.chtml( date, idx, opt )
-				idx += 1
-			end
-			r
-		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:

data/spec/core/style/emptdiary_style_spec.rb

@@ -1,165 +0,0 @@
-# -*- coding: utf-8; -*-
-require 'spec_helper'
-
-require 'tdiary'
-require 'misc/style/emptdiary/emptdiary_style'
-
-describe TDiary::Style::EmptdiaryDiary do
-	before do
-		@diary = TDiary::Style::EmptdiaryDiary.new(Time::at( 1041346800 ), "TITLE", "")
-	end
-
-	describe '#append' do
-		before do
-			source = <<-'EOF'
-subTitle
-<p>honbun</p>
-
-subTitle2
-<p>honbun</p>
-			EOF
-			@diary.append(source)
-		end
-
-		context 'HTML' do
-			before do
-				@html = <<-'EOF'
-<div class="section">
-<%=section_enter_proc( Time::at( 1041346800 ) )%>
-<h3><%= subtitle_proc( Time::at( 1041346800 ), "subTitle" ) %></h3>
-<p>honbun</p><%=section_leave_proc( Time::at( 1041346800 ) )%>
-</div><div class="section">
-<%=section_enter_proc( Time::at( 1041346800 ) )%>
-<h3><%= subtitle_proc( Time::at( 1041346800 ), "subTitle2" ) %></h3>
-<p>honbun</p><%=section_leave_proc( Time::at( 1041346800 ) )%>
-</div>
-				EOF
-			end
-			it { @diary.to_html.should eq @html.chomp }
-		end
-
-		context 'CHTML' do
-			before do
-				@html = <<-'EOF'
-<%=section_enter_proc( Time::at( 1041346800 ) )%>
-<H3><%= subtitle_proc( Time::at( 1041346800 ), "subTitle" ) %></H3>
-<p>honbun</p><%=section_leave_proc( Time::at( 1041346800 ) )%>
-<%=section_enter_proc( Time::at( 1041346800 ) )%>
-<H3><%= subtitle_proc( Time::at( 1041346800 ), "subTitle2" ) %></H3>
-<p>honbun</p><%=section_leave_proc( Time::at( 1041346800 ) )%>
-				EOF
-			end
-			it { @diary.to_html({}, :CHTML).should eq @html }
-		end
-	end
-
-	describe '#replace' do
-		before do
-			source = <<-'EOF'
-subTitle
-<p>honbun</p>
-
-subTitle2
-<p>honbun</p>
-			EOF
-			@diary.append(source)
-
-			replaced = <<-'EOF'
-replaceTitle
-<p>replace</p>
-
-replaceTitle2
-<p>replace</p>
-
-			EOF
-			@diary.replace(Time::at( 1041346800 ), "TITLE", replaced)
-
-			@html = <<-'EOF'
-<div class="section">
-<%=section_enter_proc( Time::at( 1041346800 ) )%>
-<h3><%= subtitle_proc( Time::at( 1041346800 ), "replaceTitle" ) %></h3>
-<p>replace</p><%=section_leave_proc( Time::at( 1041346800 ) )%>
-</div><div class="section">
-<%=section_enter_proc( Time::at( 1041346800 ) )%>
-<h3><%= subtitle_proc( Time::at( 1041346800 ), "replaceTitle2" ) %></h3>
-<p>replace</p><%=section_leave_proc( Time::at( 1041346800 ) )%>
-</div>
-			EOF
-		end
-		it { @diary.to_html.should eq @html.chomp }
-	end
-
-	describe 'test_emptdiary_style_plugin' do
-		before do
-			source = <<-'EOF'
-sectionTitle
-<p>body</p>
-<%=pre <<'_PRE'
-#include <stdio.h>
-
-/* comment */
-int
-main (int argc, char *argv[])
-{
-  puts ("Hello world.");
-}
-_PRE
-%>
-			EOF
-			@diary.append(source)
-		end
-
-		context 'HTML' do
-			before do
-				@html = <<-'EOF'
-<div class="section">
-<%=section_enter_proc( Time::at( 1041346800 ) )%>
-<h3><%= subtitle_proc( Time::at( 1041346800 ), "sectionTitle" ) %></h3>
-<p>body</p>
-<%=pre <<'_PRE'
-#include <stdio.h>
-
-/* comment */
-int
-main (int argc, char *argv[])
-{
-  puts ("Hello world.");
-}
-_PRE
-%><%=section_leave_proc( Time::at( 1041346800 ) )%>
-</div>
-				EOF
-			end
-			it { @diary.to_html.should eq @html.chomp }
-		end
-
-		context 'CHTML' do
-			before do
-				@html = <<-'EOF'
-<%=section_enter_proc( Time::at( 1041346800 ) )%>
-<H3><%= subtitle_proc( Time::at( 1041346800 ), "sectionTitle" ) %></H3>
-<p>body</p>
-<%=pre <<'_PRE'
-#include <stdio.h>
-
-/* comment */
-int
-main (int argc, char *argv[])
-{
-  puts ("Hello world.");
-}
-_PRE
-%><%=section_leave_proc( Time::at( 1041346800 ) )%>
-				EOF
-			end
-			it { @diary.to_html({}, :CHTML).should eq @html }
-		end
-	end
-end
-
-# Local Variables:
-# mode: ruby
-# indent-tabs-mode: t
-# tab-width: 3
-# ruby-indent-level: 3
-# End: