tdiary 3.2.2.20130507

data/misc/style/wiki/README

@@ -0,0 +1,116 @@
+! Wikiスタイル - Wiki風の記述形式
+
+!!【注意】
+このスタイルはすでにサポートされていません。Wikiスタイルは標準サポー
+トとなり、tdiaryディレクトリの下に互換性のある別の実装が含まれていま
+す。
+
+このディレクトリに含まれるファイルは、何らかの都合で旧実装を使わなく
+てはならない場合にのみ使用してください。
+
+!! Wikiスタイルとは
+
+WikiWikiのオリジナル文法に近い形式で日記が書けるスタイル。HTMLよりで
+きることは少ないが、ルールが簡単で覚えやすいので、あまり凝ったことを
+しない人に向いている。
+
+!! 使い方
+
+wiki_parser.rbとwiki_style.rbを、インストールディレクトリにあるtdiary
+ディレクトリにコピーし、tdiary.confに以下の設定をする。
+
+ @style = 'Wiki'
+
+また、リンク機能を使う場合には、プラグイン集に含まれているkw.rbをtDiary
+のpluginディレクトリにコピーしておく必要がある。
+
+!! Wikiスタイルの文法
+
+!!! 段落
+
+普通に行頭から書き始めればそれが段落。単一の改行は無視され、空改行で
+別段落になる。tDiary上では<p>タグで囲まれる。一日の初めが通常の段落
+で始まっている場合には、その段落のみセクション扱いになる。
+
+!!! 見出し
+
+見出しは「!」で始める。tDiary上では「!」ひとつで<h3>になり、セクショ
+ンの開始になる。以下、「!!」で<h4>、「!!!」で<h5>……となる。
+
+!!! 整形済みテキスト
+
+いわゆる<pre>は、行頭を空白かタブで始める。マークアップはいっさい効
+かなくなる。
+
+!!! 箇条書き
+
+「*」で始めると箇条書き。「#」で始めると数字付きになる。マークの個数
+で入れ子を表現する。オリジナルWikiでは数字で始めると数字付き箇条書き
+というルールがあるようだが、それだと数字で始まる段落が書けなくなる気
+がするので、サポートしていない。
+
+!!! 引用
+
+「""」(2つの二重引用符)で始まる行は、引用(<blockquote>扱い)となる。
+文中の改行は、通常段落の行頭に「""」を付けたものとして扱う。
+
+!!! 定義リスト
+
+いわゆる<dl>は、「:キーワード:説明」という構文。
+
+ :キーワード:説明文をここに1行で書く。
+
+!!! 表
+
+表(テーブル)は「||」で始め、以下のように書ける。
+
+ ||項目1-1||項目1-2||項目1-3
+ ||項目2-1||項目2-2||項目2-3
+
+!!! リンク
+
+2つのカギカッコで囲んだ単語は、日本語、英数字問わずキーワードとして扱われ、kwプラグインに展開される。いわゆるWikiName(WikiWord)はサポートしない。
+
+ [[キーワード]]
+
+キーワードを「:」で区切ると、InterWikiName相当になる(kwプラグインの機能)。
+
+ [[hoge:キーワード]]
+
+「|」で区切ると、任意のURLへのリンクを生成できる。
+
+ [[Asumi日記|http://sho.tdiary.net/]]
+ [[このファイル|../files/hoge.txt]]
+ [[ほげ|hoge:キーワード]]
+
+なお、上記構文で、右側のURL部分がtDiaryのアンカー風(20030125#p03とか)
+の場合は、myプラグインに展開される。
+
+さらに、文中にある生のURLは、そのままリンクになる。ただし、最後が.jpg
+とか.pngの場合はインラインイメージに展開される。相対URLもサポートさ
+れているので、  
+
+ http:.images/hoge.jpg
+
+などとして使うこともできる。
+
+!!! 強調
+
+単一引用符の連続で囲むことで、強調を指定できる。
+
+ ふたつだと''普通の強調''で、<em>に展開
+ みっつだと'''すごく強調'''で、<strong>に展開
+
+!!! 取消線
+
+イコールふたつで囲んだ部分は、取消線(<del>)になる。これはtDiary拡張。
+
+ ==この部分が取り消し==
+
+!!! プラグイン
+
+これもtDiary拡張。にょろカッコふたつで囲むと、tDiaryのプラグイン呼び
+出しになる。
+
+ {{amazon '4906470068'}}
+

data/misc/style/wiki/README.en

@@ -0,0 +1,101 @@
+! Wiki Style
+
+!! '''NOTICE'''
+This implements was obsluted.
+
+Wiki style is supported in default now in another implements. See
+tdiary directory.
+
+If you want to need old implements, use files in this directory.
+
+
+!! about Wiki Style
+
+Like original style of WikiWikiWeb.
+
+!! How to use
+
+Copy wiki_parser.rb and wiki_style.rb into tdiary directory in you
+tdiary installed. And specify into tdiary.conf below:
+
+ @style = 'Wiki'
+
+If you want to use link feature, find kw.rb from tDiary plugins and
+copy it into plugin directory of tDiary.
+
+!! How to write Wiki Style
+
+!!! Paragraph
+
+Starting words from top of the line.
+If you want to change paragraph, insert a null line.
+When a day starts with a paragraph, the paragraph become to
+a section.
+
+!!! Heading
+
+You can start headings with '!'. In tDiary, one '!' become to '<h3>'
+and it starts a section. Then '!!' is '<h4>', '!!!' is '<h5>' ...
+
+!!! Formatted text
+
+Formatted text you know '<pre>' is start with space or TAB.
+All other markups are ignore.
+
+!!! Lists
+
+Starts with '*' means lists. And starts with '#' is numbered lists.
+You can increase nests by '**', '***' and '****'.
+
+!!! Blockquote
+
+Two double quote means blockquote.
+
+!!!Definition Lists
+
+You can describe '<dl>' by ":keywors:description".
+
+!!!Table
+
+Table starts with '||', and separate cells with '||'
+
+!!! Links
+
+Double '[' and ']' makes a link. It expand kw plugin.
+No WikiWord supported.
+
+ [[keyword]]
+
+By separating keyword with ':', you can make a link equivalent of InterWikiName.
+This is a feature of kw plugin.
+
+ [[foo:keyword]]
+
+You can make alias name of link word by separate '|'.
+
+ [[tDiary|http://www.tdiary.org/]]
+ [[this file|../files/foo.txt]]
+ [[bar|foo:KeyWord]]
+
+In this case, if the URL part is like a tDiary's anchor
+(ex. 20030125#p03), it expand to my plugin but not kw plugin.
+
+And alone URL will become to a link.
+
+!!! Emphasis
+
+Two or three single-quote makes Emphasis.
+
+ Two single-quote makes ''EMPHASUS'', it means <em>.
+ Three single-quote makes '''STRONG''', it means <strong>.
+
+!!! Deleted line
+
+Two equal sign ('=') means <del>. It is tDiary original.
+
+!!! Plugin
+
+Two '{' and '}' expand to plugin.
+
+ {{amazon '4906470068'}}
+

data/misc/style/wiki/wiki_parser.rb

@@ -0,0 +1,273 @@
+# -*- coding: utf-8; -*-
+# wiki_parser.rb: Wiki parser for tDiary style $Revision: 1.10 $
+#
+# Copyright (C) 2003, TADA Tadashi <sho@spc.gr.jp>
+# You can distribute this under GPL.
+#
+
+class WikiParser
+	class ParserQueue < Array
+		def <<( s )
+			$stderr.puts s if $DEBUG
+			super( s )
+		end
+	end
+
+	# opt is a Hash.
+	#
+	#     key  |    value    |      mean       |default 
+	# ---------+-------------+-----------------+---------
+	# :wikiname|true or false|parse WikiName   | true
+	# :url     |true or false|make URL to link | true
+	# :plugin  |true or false|parse plugin     | true
+	# :absolute|true or false|only absolute URL| false
+	#
+	def initialize( opt = {} )
+		@opt = {    # set default
+			:wikiname => true,
+			:url => true,
+			:plugin => true,
+			:absolute => false,
+		}
+		@opt.update( opt )
+	end
+
+	def parse( f )
+		@q = ParserQueue::new
+		nest = 0
+		f.each do |l|
+			l.sub!( /[\r\n]+\Z/, '' )
+			case l
+			when /^$/ # null string
+				@q << nil unless @q.last == nil
+
+			when /^----+$/ # horizontal bar
+				@q << :RS << :RE
+
+			when /^(!{1,5})\s*(.*)/ # headings
+				eval( "@q << :HS#{$1.size}" )
+				inline( $2 )
+				eval( "@q << :HE#{$1.size}" )
+
+			when /^([\*#]{1,3})\s*(.*)/ # list
+				r, depth = $2, $1.size
+				style = $1[0] == ?* ? 'U' : 'O'
+				nest = 0 unless /^[UO]E$/ =~ @q.last.to_s
+				tmp = []
+				if nest < depth then
+					(nest * 2).times do tmp << @q.pop end
+					eval( "@q << :#{style}S << :LS" )
+					inline( r )
+					eval( "@q << :LE << :#{style}E" )
+				elsif nest > depth
+					(depth * 2 - 1).times do tmp << @q.pop end
+					@q << :LS
+					inline( r )
+					@q << :LE
+				else
+					(nest * 2 - 1).times do tmp << @q.pop end
+					@q << :LS
+					inline( r )
+					@q << :LE
+				end
+				@q << tmp.pop while tmp.size != 0
+				nest = depth
+
+			when /^:([^:]+):(.*)/ # definition list
+				if @q.last == :DE then
+					@q.pop
+				else
+					@q << :DS
+				end
+				@q << :DTS
+				inline( $1 )
+				@q << :DTE << :DDS
+				inline( $2 )
+				@q << :DDE << :DE
+
+			when /^""$/ # block quote (null line)
+				if @q.last == :QE then
+					@q.pop
+				else
+					@q << :QS
+				end
+				@q << :PS << :PE << :QE
+
+			when /^""\s*(.*)/ # block quote
+				if @q.last == :QE then
+					@q.pop
+					@q.pop
+				else
+					@q << :QS << :PS
+				end
+				inline( $1 + "\n" )
+				@q << :PE << :QE
+
+			when /^\s(.*)/ # formatted text
+				if @q.last == :FE then
+					@q.pop
+				else
+					@q << :FS
+				end
+				@q << ( $1 + "\n" ) << :FE
+
+			when /^\|\|(.*)/ # table
+				if @q.last == :TE then
+					@q.pop
+					@q << :TRS
+				else
+					@q << :TS << :TRS
+				end
+				$1.split( /\|\|/ ).each do |s|
+					@q << :TDS
+					inline( s )
+					@q << :TDE
+				end
+				@q << :TRE << :TE
+
+			else # paragraph
+				if @q.last == :PE then
+					@q.pop
+				else
+					@q << :PS
+				end
+				inline( l )
+				@q << :PE
+			end
+		end
+		@q.compact!
+		@q
+	end
+
+	private
+	def inline( l )
+		if @opt[:plugin] then
+			r = /(.*?)(\[\[|\]\]|\{\{.*?\}\}|'''|''|==)/
+		else
+			r = /(.*?)(\[\[|\]\]|'''|''|==)/
+		end
+		a = l.scan( r ).flatten
+		tail = a.size == 0 ? l : $'
+		stat = []
+		a.each do |i|
+			case i
+			when '[['
+				@q << :KS
+				stat.push :KE
+			when ']]'
+				@q << stat.pop
+			when "'''"
+				if stat.last == :SE then
+					@q << stat.pop
+				else
+					@q << :SS
+					stat.push :SE
+				end
+			when "''"
+				if stat.last == :EE then
+					@q << stat.pop
+				else
+					@q << :ES
+					stat.push :EE
+				end
+			when "=="
+				if stat.last == :ZE then
+					@q << stat.pop
+				else
+					@q << :ZS
+					stat.push :ZE
+				end
+			else
+				if @opt[:plugin] and /^\{\{(.*)\}\}$/ =~ i then
+					@q << :GS << $1 << :GE
+				elsif stat.last == :KE
+					@q << i
+				else
+					url( i ) if i.size > 0
+				end
+			end
+		end
+		url( tail ) if tail
+	end
+
+	def url( l )
+		unless @opt[:url]
+			@q << l
+			return
+		end
+
+		r = %r<(((https?|ftp):[\(\)%#!/0-9a-zA-Z_$@.&+-,'"*=;?:~-]+)|([0-9a-zA-Z_.-]+@[\(\)%!0-9a-zA-Z_$.&+-,'"*-]+\.[\(\)%!0-9a-zA-Z_$.&+-,'"*-]+))>
+		a = l.gsub( r ) {
+			if $1 == $2 then
+				url = $2
+				if %r<^(https?|ftp)(://)?$> =~ url then
+					url
+				elsif %r<^(https?|ftp)://> =~ url
+					"[[#{url}]]"
+				else
+					if @opt[:absolute] then
+						url
+					else
+						"[[#{url.sub( /^(https?|ftp):/, '' )}]]"
+					end
+				end
+			else
+				"[[mailto:#$4]]"
+			end
+		}.scan( /(.*?)(\[\[|\]\])/ ).flatten
+		tail = a.size == 0 ? l : $'
+		a.each do |i|
+			case i
+			when '[['
+				@q << :XS
+			when ']]'
+				@q << :XE
+			else
+				if @q.last == :XS then
+					@q << i
+				else
+					wikiname( i )
+				end
+			end
+		end
+		wikiname( tail ) if tail
+	end
+
+	def wikiname( l )
+		unless @opt[:wikiname]
+			@q << l
+			return
+		end
+
+		l.gsub!( /[A-Z][a-z0-9]+([A-Z][a-z0-9]+)+/, '[[\0]]' )
+		a = l.scan( /(.*?)(\[\[|\]\])/ ).flatten
+		tail = a.size == 0 ? l : $'
+		a.each do |i|
+			case i
+			when '[['
+				@q << :KS
+			when ']]'
+				@q << :KE
+			else
+				@q << i
+			end
+		end
+		@q << tail if tail
+	end
+end
+
+if $0 == __FILE__
+	$DEBUG = true
+	p WikiParser::new( :wikiname => true, :plugin => true ).parse( DATA )
+end
+
+__END__
+:a:aaaa
+:b:bbbb
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End: