tdiary 3.2.2.20130507

data/misc/style/gfm/gfm_style.rb

@@ -0,0 +1,194 @@
+# -*- coding: utf-8; -*-
+#
+# gfm_style.rb: "GitHub Flavored Markdown" (GFM) style for tDiary 2.x format.
+#
+# if you want to use this style, add @style into tdiary.conf below:
+#
+#    @style = 'GFM'
+#
+# Copyright (C) 2003, TADA Tadashi <sho@spc.gr.jp>
+# Copyright (C) 2004, MoonWolf <moonwolf@moonwolf.com>
+# Copyright (C) 2012, kdmsnr <kdmsnr@gmail.com>
+# Copyright (C) 2013, hsbt <shibata.hiroshi@gmail.com>
+# You can distribute this under GPL.
+#
+
+$KCODE = 'u' if RUBY_VERSION < '1.9'
+
+begin
+	require 'rubygems'
+rescue LoadError
+ensure
+	require 'redcarpet'
+	require 'twitter-text'
+end
+
+class HTMLwithPygments < Redcarpet::Render::HTML
+	def block_code(code, language)
+		require 'pygments'
+		Pygments.highlight(code, :lexer => language)
+	rescue Exception
+		<<-HTML
+<div class="highlight"><pre>#{code}</pre></div>
+		HTML
+	end
+end
+
+module TDiary
+	class GfmSection
+		include SectionBase
+		include Twitter::Autolink
+
+		def initialize(fragment, author = nil)
+			@author = author
+			@subtitle, @body = fragment.split(/\n/, 2)
+			@subtitle.sub!(/^\#\s*/,'')
+			@body ||= ''
+
+			@categories = get_categories
+			@stripped_subtitle = strip_subtitle
+
+			@subtitle_to_html = @subtitle ? to_html('# ' + @subtitle).gsub(/\A<h\d>|<\/h\d>\z/io, '') : nil
+			@stripped_subtitle_to_html = @stripped_subtitle ? to_html('# ' + @stripped_subtitle).gsub(/\A<h\d>|<\/h\d>\z/io, '') : nil
+			@body_to_html = to_html(@body)
+		end
+
+		def subtitle=(subtitle)
+			@subtitle = (subtitle || '').sub(/^# /,"\##{categories_to_string} ")
+			@strip_subtitle = strip_subtitle
+		end
+
+		def categories=(categories)
+			@subtitle = "#{categories_to_string} " + (strip_subtitle || '')
+			@strip_subtitle = strip_subtitle
+		end
+
+		def to_src
+			r = ''
+			r << "\# #{@subtitle}\n" if @subtitle
+			r << @body
+		end
+
+		def do_html4(date, idx, opt)
+			subtitle = to_html('# ' + @subtitle)
+			subtitle.sub!( %r!<h3>(.+?)</h3>!m ) do
+				"<h3><%= subtitle_proc( Time.at( #{date.to_i} ), #{$1.dump.gsub( /%/, '\\\\045' )} ) %></h3>"
+			end
+			if opt['multi_user'] and @author then
+				subtitle.sub!(/<\/h3>/,%Q|[#{@author}]</h3>|)
+			end
+			r = subtitle
+			r << @body_to_html
+		end
+
+	private
+
+		def to_html(string)
+			renderer = HTMLwithPygments.new(:hard_wrap => true)
+			extensions = {:fenced_code_blocks => true, :tables => true, :no_intra_emphasis => true}
+			r = Redcarpet::Markdown.new(renderer, extensions).render(string)
+
+			# Twitter Autolink
+			r = auto_link(r)
+
+			if r =~ /(<pre>|<code>)/
+				r.gsub!(/<a class=\"tweet-url username\" href=\".*?\">(.*?)<\/a>/){ $1 }
+			end
+
+			# except url autolink in plugin block
+			if r =~ /\{\{.+?\}\}/
+				r.gsub!(/<a href=\"(.*?)\" rel=\"nofollow\">.*?<\/a>/){ $1 }
+				r.gsub!(/\{\{(.+?)\}\}/) { "<%=#{CGI.unescapeHTML($1).gsub(/&#39;/, "'").gsub(/&quot;/, '"')}%>" }
+			end
+
+			# ignore duplicate autolink
+			if r =~ /<a href="<a href="/
+				r.gsub!(/<a href="<a href=".*?" rel="nofollow">(.*?)<\/a>">(.*?)<\/a>/){ "<a href=\"#{$1}\" rel=\"nofollow\">#{$2}</a>" }
+			end
+
+			# emoji
+			r = r.emojify
+
+			# diary anchor
+			r.gsub!(/<h(\d)/) { "<h#{$1.to_i + 2}" }
+			r.gsub!(/<\/h(\d)/) { "</h#{$1.to_i + 2}" }
+
+			# my syntax
+			r.gsub!(/\((.*?)\)\[(\d{4}|\d{6}|\d{8}|\d{8}-\d+)[^\d]*?#?([pct]\d+)?\]/) {
+				unless $1.empty?
+					%Q|<%=my "#{$2}#{$3}", "#{$1}" %>|
+				else
+					%Q|<%=my "#{$2}#{$3}", "#{$2}#{$3}" %>|
+				end
+			}
+
+			r
+		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.empty?
+				nil
+			else
+				r
+			end
+		end
+	end
+
+	class GfmDiary
+		include DiaryBase
+		include CategorizableDiary
+
+		def initialize(date, title, body, modified = Time.now)
+			init_diary
+			replace( date, title, body )
+			@last_modified = modified
+		end
+
+		def style
+			'GFM'
+		end
+
+		def append(body, author = nil)
+			section = nil
+			body.each_line do |l|
+				case l
+				when /^\#[^\#]/
+					@sections << GfmSection.new(section, author) if section
+					section = l
+				else
+					section = '' unless section
+					section << l
+				end
+			end
+			if section
+				section << "\n" unless section =~ /\n\n\z/
+				@sections << GfmSection.new(section, author)
+			end
+			@last_modified = Time.now
+			self
+		end
+
+		def add_section(subtitle, body)
+			@sections = GfmSection.new("\# #{subtitle}\n\n#{body}")
+			@sections.size
+		end
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/style/rd/README.rd

@@ -0,0 +1,71 @@
+=begin
+= RDスタイル
+== RDスタイルとは
+Ruby 関連のドキュメントを書くために考案された汎用のドキュメントフォーマット
+RD風の書式で日記を記述できます。
+
+* ((<What is RD? What is RDtool?|URL:http://www2.pos.to/~tosh/ruby/rdtool/ja/whats.html>))
+
+== RDスタイルを使うために
+RDスタイルを使うには RDtool がインストールされている必要があります。 RDtool
+は RAA((-Ruby Application Archive-)) から入手できます。
+
+((<RDtool|URL:http://raa.ruby-lang.org/list.rhtml?name=rdtool>))
+
+rd_style.rb をインストールディレクトリにあるtdiary ディレクトリ (tdiary_style.rbのあるディレクトリ) にコピーし、tdiary.confに以下の設定をします。
+
+ @style = 'RD'
+
+必須ではありませんが、プラグイン集に含まれる a.rb をインストールすると RD のリファレンス風にリンクを記述できます。便利なプラグインなのでインストールすることを勧めます。記述例は後述の URL を参照してください。
+
+== RD との違い
+=== Headline element
+'=' 1つが <h3> になりセクションの開始になります。'==' が <h4>、'===' が <h5>、
+'====' が <h6> となります。'+'、'++' は使用しません。
+
+=== MethodList
+(('---')) に HTML のタグを与えると、HTML のブロック要素に変換されます。(('---'))に何も与えない場合は <hr> へ変換されます。
+
+ --- <hr>
+ ---
+ --- <blockquote>
+     この部分は引用です。
+
+=== Inline element
+==== プラグイン
+本来はキーボード入力を表す (('((% %))')) が tDiary のプラグインになります。
+
+ ((%amazon '4906470068'%))
+
+==== 生HTML
+(('((: :))')) で囲むと生の HTML を記述できます。
+
+ ((:<del>この部分は取り消し</de>:))
+
+==== URL
+URL 以外に画像、RAA、Ruby関連のメーリングリストへのリンクが RWiki
+((-書式にRDを使用するWikiクローン-)) 同様、簡単に記述できるようになっていま
+す。
+
+ ((<テスト画像|IMG:test.jpg>))
+ ((<RAA:tdiary>))
+ ((<ruby-list:0001>))
+
+上記以外の形式は myプラグイン((-tDiary 標準なので何もせずに使えます-))と aプラグイン((-インストールしなくてもRDスタイルは使えますが、便利ですのでインストールすることをお勧めします-))へ展開されます。それにより自分の日記へのリンクや aプラグインの辞書へ登録されている URL へのリンクが RD の reference風に記述できます。
+aプラグインの使い方はプラグイン附属のドキュメントを参照してください。
+
+myプラグインに展開されるリンク
+
+ ((<そのツッコミ|20030308#c01>))
+
+aプラグインに展開されるリンク
+
+ ((<key>))
+ ((<key:20020329.html>))
+ ((<こちら|key:20020329.html>))
+
+=== その他
+'=begin', '=end' は必要ありません。
+
+=end
+

data/misc/style/rd/rd_style.rb

@@ -0,0 +1,366 @@
+# -*- coding: utf-8; -*-
+#
+# rd_style.rb: RD style for tDiary 2.x format. $Revision: 1.32 $
+# based on Wiki style which Copyright belongs to TADA Tadashi.
+#
+# if you want to use this style, install RDtool
+# and add @style into tdiary.conf below:
+#
+#    @style = 'RD'
+#
+# about RDtool: http://raa.ruby-lang.org/list.rhtml?name=rdtool
+#
+# ref_extension codes come from rd2html-ext
+#   http://raa.ruby-lang.org/list.rhtml?name=rd2html-ext
+#
+# Copyright (C) 2003, UECHI Yasumasa <uechi@potaway.net>
+# You can distribute this under GPL.
+#
+require 'rd/rdfmt'
+require 'rd/rd2html-lib'
+
+module RD
+	TDIARY_BASE_LEVEL = 2
+
+	class RD2tDiaryVisitor < RD2HTMLVisitor
+		def initialize( date=nil, idx=nil, opt=nil, author=nil )
+		  	@td_date = date
+			@td_idx = idx
+			@td_opt = opt
+			@td_author = author
+			super()
+		end
+
+	  	def apply_to_DocumentElement(element, content)
+			ret = ""
+			ret << html_body(content) + "\n"
+			ret
+		end
+
+		def html_body(contents)
+			content = contents.join("\n")
+		end
+		private :html_body
+
+		def apply_to_Headline(element, title)
+			level = element.level + TDIARY_BASE_LEVEL
+			title = title.join
+			if level == 3
+				r = %Q[<h#{level}><%= subtitle_proc( Time::at( #{@td_date.to_i} ), #{title.to_s.dump.gsub( /%/, '\\\\045' )} ) %></h#{level}>]
+			else
+				r = %Q[<h#{level}>#{title}</h#{level}>]
+			end
+			r
+		end
+
+		def apply_to_DescListItem(element, term, description)
+			%Q[<dt>#{term.join}</dt>] +
+			if description.empty? then
+				"\n"
+			else
+				%Q[\n<dd>\n#{description.join("\n").chomp}\n</dd>]
+			end
+		end
+
+		def apply_to_MethodList(element, items)
+			if /^(<.+>)?$/ =~ element.items[0].term.to_label
+				%Q[#{items.join("\n").chomp}\n]
+			else
+				%Q[<dl>\n#{items.join("\n").chomp}\n</dl>]
+			end
+		end
+
+		def apply_to_MethodListItem(element, term, description)
+			case term
+			when /^&lt;([^\s]+)\s*.*&gt;/
+				closetag = "</#{CGI.unescapeHTML($1)}>"
+				r = CGI.unescapeHTML(term)
+				if description.size > 0
+					r << %Q[\n#{description.join("\n")}\n]
+					r << closetag
+				end
+				r
+			when ''
+				"<hr>"
+			else
+				super
+			end
+		end
+
+		# use for tDiary plugin :-p
+		def apply_to_Keyboard(element, content)
+		  	plugin, args = CGI.unescapeHTML(content.join("")).split(/\s+/, 2)
+			%Q[<%=#{plugin} #{args}%>]
+		end
+
+		# use for native html
+		def apply_to_Index(element, content)
+		  	CGI.unescapeHTML(content.join)
+		end
+
+		def apply_to_Footnote(element, content)
+			heredoc_id = "%0.32b" % rand( 0x100000000 )
+			%Q|<%=fn <<'#{heredoc_id}' \n #{content.join}\n#{heredoc_id}\n%>|
+		end
+
+		def apply_to_RefToElement(element, content)
+			label = element.to_label
+			key, opt = label.split(/:/, 2)
+
+			case key
+			when "IMG"
+				ref_ext_IMG(label, content.join, opt)
+			when "RAA"
+				ref_ext_RAA(label, content.join, opt)
+			when /^ruby-(talk|list|dev|math|ext|core)$/
+				ref_ext_RubyML(label, content.join, key, opt)
+			when /^(\d{4}|\d{6}|\d{8}|\d{8}-\d+)[^\d]*?#?([pct]\d+)?$/
+				%Q[<%=my "#{key}","#{content.join}"%>]
+			else
+				opt = "" unless opt # case of no ":"
+				%Q[<%=a "#{key}","#{opt}","#{content.join}"%>]
+			end
+		end
+
+		private
+		def categorized_subtitle( title )
+			cat = /^(\[(.*?)\])+/.match(title.to_s).to_a[0]
+			subtitle = $'
+
+			if cat
+				r =
+				cat.scan(/\[(.*?)\]/).collect do |c|
+			  		%Q|<%= category_anchor("#{c[0]}") %>|
+				end.join + subtitle
+			else
+				r = title.to_s
+			end
+			r
+		end
+
+		def ref_ext_RubyML(label, content, ml, article)
+			article.sub!(/^0+/, '')
+			content = "[#{label}]" if label == content
+
+			%Q[<a href="http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/#{ ml }/#{ article }">#{ content }</a>]
+		end
+
+		def ref_ext_RAA(label, content, name)
+			name = CGI.escape(name)
+			content = "[#{label}]" if label == content
+			%Q[<a href="http://raa.ruby-lang.org/list.rhtml?name=#{ name }">#{ content }</a>]
+		end
+
+		def ref_ext_IMG(label, content, src)
+			label.to_s == content.to_s and content = src
+			%Q[<img src="#{src}" alt="#{content}">]
+		end
+	end
+
+	class RD2tDiaryCHTMLVistor < RD2tDiaryVisitor
+		def apply_to_Headline(element, title)
+			level = element.level + TDIARY_BASE_LEVEL
+			title = title.join
+			if level == 3
+				r = %Q[<H#{level}><%= subtitle_proc( Time::at( #{@td_date.to_i} ), #{title.to_s.dump.gsub( /%/, '\\\\045' )} ) %></H#{level}>]
+			else
+				r = %Q[<H#{level}>#{title}</H#{level}>]
+			end
+			r
+		end
+	end
+
+	class RDInlineParser
+		def on_error(et, ev, values)
+			lines_of_rest = @src.rest.lines.to_a.length
+			prev_words = prev_words_on_error(ev)
+			at = 4 + prev_words.length
+			message = <<-MSG
+RD syntax error: line #{@blockp.line_index - lines_of_rest - 1}:
+...#{prev_words} #{(ev||'')} #{next_words_on_error()} ...
+MSG
+			message << " " * at + "^" * (ev ? ev.length : 0) + "\n"
+			raise ParseError, message
+		end
+	end
+
+end
+
+module TDiary
+	class RDSection
+		include RD
+
+		attr_reader :author, :categories, :subtitle, :stripped_subtitle
+		attr_reader :body_to_html, :subtitle_to_html, :stripped_subtitle_to_html
+	
+		def initialize( fragment, author = nil )
+			@author = author
+			if /\A=(?!=)/ =~ fragment 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"
+
+			@categories = get_categories
+			@stripped_subtitle = strip_subtitle
+
+			@subtitle_to_html = manufacture(@subtitle, true)
+			@stripped_subtitle_to_html = manufacture(@stripped_subtitle, true)
+			@body_to_html = manufacture(@body, false)
+		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=(str)
+			@body = str
+		end
+	
+		def body
+		  	@body.dup
+		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 html( date, idx, opt, mode = :HTML)
+			if mode == :CHTML
+				visitor = RD2tDiaryCHTMLVistor.new( date, idx, opt, @author)
+				section_open = "<%=section_enter_proc( Time::at( #{date.to_i} ))%>\n"
+				section_close = "<%=section_leave_proc( Time::at( #{date.to_i} ))%>\n"
+			else
+				visitor = RD2tDiaryVisitor.new( date, idx, opt, @author )
+				section_open = %Q[<div class="section">\n<%=section_enter_proc( Time::at( #{date.to_i} ))%>\n]
+				section_close = "<%=section_leave_proc( Time::at( #{date.to_i} ))%>\n</div>\n"
+			end
+
+			src = to_src.split(/^/)
+			src.unshift("=begin\n").push("=end\n")
+			tree = RDTree.new( src, nil, nil)
+			begin
+				tree.parse
+			rescue ParseError
+				raise SyntaxError, $!.message
+			end
+
+			r = "#{section_open}#{visitor.visit( tree )}#{section_close}"
+		end
+
+		private
+		def manufacture(str, subtitle = false)
+			return nil unless str
+			src = str.strip.split(/^/).unshift("=begin\n").push("=end\n")
+			visitor = RD2tDiaryVisitor.new
+			tree = RDTree.new(src, nil, nil)
+			begin
+				r = visitor.visit( tree.parse )
+				r.gsub!(/<\/?p>/, '') if subtitle
+				r
+			rescue ParseError
+				str
+			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
+			@subtitle.sub(/^(\[(.*?)\])+/,'')
+		end
+	end
+
+	class RdDiary
+		include DiaryBase
+		include CategorizableDiary
+	
+		def initialize( date, title, body, modified = Time::now )
+			init_diary
+			replace( date, title, body )
+			@last_modified = modified
+		end
+	
+		def style
+			'RD'
+		end
+	
+		def append( body, author = nil )
+			section = nil
+			body.lines.each do |l|
+				case l
+				when /^=(begin|end)\b/
+				  	# do nothing
+				when /^=[^=]/
+				  	@sections << RDSection::new( section, author ) if section
+					section = l
+				else
+					section = '' unless section
+					section << l
+				end
+			end
+			@sections << RDSection::new( section, author ) if section
+			@last_modified = Time::now
+			self
+		end
+	
+		def add_section(subtitle, body)
+			sec = RDSection::new("\n")
+			sec.subtitle = subtitle
+			sec.body     = body
+			@sections << sec
+			@sections.size
+		end
+	
+		def to_html( opt = {}, mode = :HTML )
+			r = ''
+			idx = 1
+			each_section do |section|
+				r << section.html( date, idx, opt, mode )
+				idx += 1
+			end
+			return r
+		end
+
+		undef :to_html4, :to_chtml
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+