tdiary-contrib 3.2.2.20130518

data/plugin/rubykaigi.rb

@@ -0,0 +1,99 @@
+#
+# rubykaigi.rb: make badges of RubyKaigi.
+#
+# usage: <%= rubykaigi 'role', 'size' %>
+#	  role: attendee (default), speaker, sponsor, staff, committer, individual sponsor, away
+#	  size: large(160x160), small(160x90)
+#
+# Copyright (C) TADA Tadashi <t@tdtds.jp>
+# Distributed under GPL.
+#
+
+def rubykaigi2013( role = 'attendee', size = nil )
+	r = role.split(/[ _]+/).map{|s| s.capitalize}.join
+	s = "@#{h size}" unless size.nil?
+	%Q|<a href="http://rubykaigi.org/2013/" style="display:block;margin:8px auto;text-align:center;"><img src="http://rubykaigi.org/2013/images/badge#{h r}#{s}.png" alt="RubyKaigi 2013 #{h r}"></a>|
+end
+
+def sappororubykaigi2012( role = 'attendee' )
+	r = role.split(/[ _]+/).map{|s| s.capitalize}.join
+	%Q|<a href="http://sapporo.rubykaigi.org/2012/" style="display:block;margin:8px auto;text-align:center;"><img src="http://sapporo.rubykaigi.org/2012/images/goodiesBadge160#{h r}.png" alt="SapporoRubyKaigi 2012 #{h r}"></a>|
+end
+
+def kansairubykaigi04( role = 'attendee' )
+	badges = {
+		'attendee' => "attendee_taiyou",
+		'speaker' => "speaker_shika",
+		'staff' => "staff_daibutsu"
+	}
+
+	%Q|<a href="http://regional.rubykaigi.org/kansai04" style="display:block;margin:8px auto;text-align:center;"><img src="http://regional.rubykaigi.org/images/kansai04/#{badges[role]}.png" alt="KansaiRubyKaigi04 #{h role.capitalize}"></a>|
+end
+
+def rubykaigi2011( role = 'attendee', size = 'large' )
+	badges = Hash::new( 'attendee' ).update({
+		'committer' => 'committer',
+		'individual sponsor' => 'individualSponsor',
+		'sponsor' => 'sponsor',
+		'staff' => 'staff',
+		'speaker' => 'speaker',
+		'attendee' => 'attendee',
+		'away' => 'attendeeAway'
+	})
+
+	width, height = size == 'large' ? ['160','160'] : ['160', '90']
+
+	%Q|<a href="http://rubykaigi.org/2011/" style="display:block;margin:8px auto;text-align:center;"><img src="http://rubykaigi.org/2011/goodies/badges/#{width}x#{height}#{badges[role]}.png" width="#{width}" height="#{height}" alt="RubyKaigi2010 #{h role.capitalize}" style="border-width: 0px;"></a>|
+end
+
+alias :rubykaigi :rubykaigi2011
+
+#----- OLD EDITIONS -----#
+
+def sappororubykaigi03( role = 'attendee' )
+	%Q|<a href="http://regional.rubykaigi.org/sapporo03/" style="display:block;margin:8px auto;text-align:center;"><img src="http://regional.rubykaigi.org/images/sapporo03/badge_#{h role}.gif" alt="badge_#{h role}.gif"></a>|
+end
+
+def rubykaigi2010( role = 'attendee' )
+	badges = Hash::new( 'attendee' ).update({
+		'committer' => 'committer',
+		'individual sponsor' => 'individual_sponsor',
+		'sponsor' => 'sponsor',
+		'staff' => 'staff',
+		'speaker' => 'speaker',
+		'attendee' => 'attendee',
+		'away' => 'away'
+	})
+	%Q|<a href="http://rubykaigi.org/2010/" style="display:block;margin:8px auto;text-align:center;"><img src="http://rubykaigi.org/2010/badge/#{badges[role]}.png" width="160" height="201" alt="RubyKaigi2010 #{h role.capitalize}" style="border-width: 0px;"></a>|
+end
+
+def rubykaigi2009( role = 'attendee' )
+	%Q|<div style="text-align: center; margin-top: 0.5em; margin-bottom: 0.5em;"><a href="http://rubykaigi.org/2009/"><img src="http://rubykaigi.org/2009/images/goodies/badges/#{h role}.gif" width="160" height="160" alt="RubyKaigi2009#{h role.capitalize}" style="border-width: 0px;"></a></div>|
+end
+
+def rubykaigi2008( role = 'attendee' )
+	img = case role
+	when 'speaker'
+		1
+	when 'sponsor'
+		2
+	when 'staff'
+		3
+	else
+		role = 'attendee'
+		0
+	end
+	%Q|<div style="text-align: center; margin-top: 0.5em; margin-bottom: 0.5em;"><a href="http://jp.rubyist.net/RubyKaigi2008/"><img src="http://rubykaigi.tdiary.net/images/20080617_#{img}.png" width="160" height="79" alt="RubyKaigi2008#{h role.capitalize}" style="border-width: 0px;"></a></div>|
+end
+
+def sappororubykaigi02( role = 'attendee' )
+	%Q|<div style="text-align: center; margin-top: 0.5em; margin-bottom: 0.5em;"><a href="http://regional.rubykaigi.org/sapporo02/"><img src="http://ruby-sapporo.org/sappororubykaigi02/#{h role}.gif" width="160" height="90" alt="SapporoRubyKaigi02#{h role.capitalize}" style="border-width: 0px;"></a></div>|
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3

data/plugin/search-bing.rb

@@ -0,0 +1,87 @@
+# -*- coding: utf-8 -*-
+#
+# search-bing.rb - site search plugin sample using Bing API.
+#
+# Copyright (C) 2011, TADA Tadashi <t@tdtds.jp>
+# You can redistribute it and/or modify it under GPL.
+#
+# Needed these options below:
+#
+# @options['search-bing.appid'] : Your Bing AppId
+# @options['search.result_filter'] : your dialy's URL format of DAY mode into Regexp.
+#
+
+require 'timeout'
+require 'json'
+require 'open-uri'
+
+def search_title
+	'全文検索 by Bing'
+end
+
+def search_input_form( q )
+	r = <<-HTML
+		<form method="GET" action="#{@conf.index}"><div>
+			検索キーワード:
+			<input name="q" value="#{h q}">
+			<input type="submit" value="OK">
+		</div></form>
+	HTML
+end
+
+def search_bing_api( q, start = 0 )
+	appid = @conf['search-bing.appid']
+
+	u = 'https://api.datamarket.azure.com/Data.ashx/Bing/SearchWeb/v1/Web'
+	u << "?Query=%27#{q}%27&Options=%27EnableHighlighting%27&$top=50&$skip=#{start}&$format=Json"
+	uri = URI( u )
+
+	open( uri, {:http_basic_authentication => [appid, appid]} ).read
+
+### FIX ME: this code failed on Timeout error, temporary using open-uri above.
+#	px_host, px_port = (@conf['proxy'] || '').split( /:/ )
+#	px_port = 8080 if px_host and !px_port
+#	res = Net::HTTP::Proxy( px_host, px_port ).start( uri.host, uri.port ) do |http|
+#		req = Net::HTTP::Get.new( uri.request_uri )
+#		req.basic_auth( appid, appid )
+#		res = http.request( req )
+#	end
+#	res.body
+end
+
+def search_to_html( str )
+	(str || '').gsub( /\uE000/, '<strong>' ).gsub( /\uE001/, '</strong>' )
+end
+
+def search_result
+	query = CGI::unescape( @cgi.params['q'][0] )
+	start = CGI::unescape( @cgi.params['start'][0] || '0' ).to_i
+
+	begin
+		uri = URI::parse( @conf.base_url )
+		#uri = URI::parse( 'http://sho.tdiary.net/' ) ### FOR DEBUGGING ###
+		q = "#{query} site:#{uri.host}"
+		q << %Q| inurl:"#{uri.path}"| unless uri.path == '/'
+		xml = search_bing_api( u( q.untaint ), start )
+		json = JSON::parse( xml )
+	rescue Net::HTTPError
+		return %Q|<p class="message">#$!</p>|
+	end
+
+	r = search_input_form( query )
+	r << '<dl class="search-result autopagerize_page_element">'
+	json['d']['results'].each do |entry|
+		url = entry['Url']
+		title = entry['Title']
+		desc = entry['Description']
+		r << %Q|<dt><a href="#{h url}">#{search_to_html title}</a></dt>|
+		r << %Q|<dd>#{search_to_html desc}</dd>|
+	end
+	r << '</dl>'
+	
+	r << '<div class="search-navi">'
+		# no search navi on Bing search because no total result not supported
+	r << '</div>'
+
+	r
+end

data/plugin/search-default.rb

@@ -0,0 +1,264 @@
+# -*- coding: utf-8 -*-
+#
+# search-default.rb - site search plugin sample using DefaultIO.
+#
+# Copyright (C) 2003-2005 Minero Aoki
+# Copyright (C) 2012, TADA Tadashi <t@tdtds.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+#
+
+def search_title
+	'全文検索'
+end
+
+class WrongQuery < StandardError; end
+
+module DefaultIOSearch
+
+	module_function
+	def setup_patterns(query)
+		patterns = split_string(query).map {|pat|
+			check_pattern pat
+			Regexp.new( Regexp.quote(pat), Regexp::IGNORECASE )
+		}
+		raise WrongQuery, 'no pattern' if patterns.empty?
+		raise WrongQuery, 'too many sub patterns' if patterns.length > 8
+		patterns
+	end
+
+	def check_pattern(pat)
+		raise WrongQuery, 'no pattern' unless pat
+		raise WrongQuery, 'empty pattern' if pat.empty?
+		raise WrongQuery, "pattern too short: #{pat}" if pat.length < 2
+		raise WrongQuery, 'pattern too long' if pat.length > 128
+	end
+
+	def split_string(str)
+		str.split(/[\s　]+/ou).reject {|w| w.empty? }
+	end
+
+	INF = 1 / 0.0
+
+	def match_components(patterns, data_path)
+		foreach_diary_from_latest(data_path) do |diary|
+			next unless diary.visible?
+			num = 1
+			diary.each_section do |sec|
+				if patterns.all? {|re| re =~ sec.to_src }
+					yield diary, fragment('p', num), sec
+				end
+				num += 1
+			end
+			diary.each_visible_comment(INF) do |cmt, num|
+				if patterns.all? {|re| re =~ cmt.body }
+					yield diary, fragment('c', num), cmt
+				end
+			end
+		end
+	end
+
+	def fragment(type, num)
+		sprintf('%s%02d', type, num)
+	end
+
+	#
+	# tDiary Implementation Dependent
+	#
+	def foreach_diary_from_latest(data_path, &block)
+		foreach_data_file(data_path.sub(%r</+\z>, '')) do |path|
+			read_diaries(path).sort_by {|diary| diary.date }.reverse_each(&block)
+		end
+	end
+
+	def foreach_data_file(data_path, &block)
+		Dir.glob("#{data_path}/[0-9]*/*.td2").sort.reverse_each do |path|
+			yield path.untaint
+		end
+	end
+
+	def read_diaries(path)
+		d = nil
+		diaries = {}
+		load_tdiary_textdb(path) do |header, body|
+			begin
+				d = diary_class(header['Format']).new(header['Date'], '', body)
+			rescue ArgumentError
+				next
+			end
+			d.show(header['Visible'] != 'false')
+			diaries[d.ymd] = d
+		end
+		(Years[d.y] ||= []).push(d.m) if d
+		load_comments diaries, path
+		diaries.values
+	end
+
+	DIARY_CLASS_CACHE = {}
+
+	def diary_class(style)
+		c = DIARY_CLASS_CACHE[style]
+		return c if c
+		require "tdiary/style/#{style.downcase}_style.rb"
+		c = eval("TDiary::#{style.capitalize}Diary")
+		c.__send__(:include, DiaryClassDelta)
+		DIARY_CLASS_CACHE[style] = c
+		c
+	end
+
+	module DiaryClassDelta
+		def ymd
+			date().strftime('%Y%m%d')
+		end
+
+		def y_m_d
+			date().strftime('%Y-%m-%d')
+		end
+
+		def y
+			'%04d' % date().year
+		end
+
+		def m
+			'%02d' % date().month
+		end
+	end
+
+	def load_comments(diaries, path)
+		cmtfile = path.sub(/2\z/, 'c')
+		return unless File.file?(cmtfile)
+		load_tdiary_textdb(cmtfile) do |header, body|
+			c = TDiary::Comment.new(header['Name'], header['Mail'], body,
+															Time.at(header['Last-Modified'].to_i))
+			c.show = (header['Visible'] != 'false')
+			d = diaries[header['Date']]
+			d.add_comment c if d
+		end
+	end
+
+	def load_tdiary_textdb(path)
+		File.open(path) {|f|
+			ver = f.gets.strip
+			raise "unkwnown format: #{ver}" unless ver == 'TDIARY2.00.00' or ver == 'TDIARY2.01.00'
+			f.each('') do |header|
+				h = {}
+				header.untaint.strip.each_line do |line|
+					begin
+						n, v = *line.split(':', 2)
+					rescue ArgumentError
+						next
+					end
+					h[n.strip] = v.strip
+				end
+				body = f.gets("\n.\n").chomp(".\n").untaint
+				yield h, body
+			end
+		}
+	end
+
+	def short_html(component)
+		# Section classes do not have common superclass, we can't use class here.
+		case component.class.name
+		when /Section/
+			section = component
+			if section.subtitle
+				sprintf('%s<br>%s',
+					tdiary2text(section.subtitle_to_html),
+					tdiary2text(section.body_to_html))
+			else
+				tdiary2text(section.body_to_html)
+			end
+		when /Comment/
+			cmt = component
+			shorten(escape((cmt.name + ': ' + cmt.body)))
+		else
+			raise "must not happen: #{component.class}"
+		end
+	end
+
+	def tdiary2text(html)
+		re = Regexp.new('<[^>]*>', Regexp::EXTENDED)
+		shorten(apply_tdiary_plugins(html).gsub(re, ''))
+	end
+
+	Years = {}
+
+	TDiary::Plugin.__send__(:public, :apply_plugin)
+	def apply_tdiary_plugins(html)
+		#@plugin.apply_plugin(html, false)
+		html
+	end
+
+	@plugin = nil
+
+	#
+	# Utils
+	#
+	HTML_ESCAPE_TABLE = {
+		'&' => '&amp;',
+		'<' => '&lt;',
+		'>' => '&gt;',
+		'"' => '&quot;'
+	}
+
+	def escape(str)
+		tbl = HTML_ESCAPE_TABLE
+		str.gsub(/[&"<>]/) {|ch| tbl[ch] }
+	end
+
+	def shorten(str, len = 200)
+		matched = str.gsub( /\n/, ' ' ).scan( /^.{0,#{len - 3}}/u )[0]
+		if $'.nil? || $'.empty?
+			matched
+		else
+			matched + '...'
+		end
+	end
+end
+
+def search_input_form( q )
+	r = <<-HTML
+		<form method="GET" action="#{@conf.index}"><div>
+			検索キーワード:
+			<input name="q" value="#{h q}">
+			<input type="submit" value="OK">
+		</div></form>
+	HTML
+end
+
+def search_result
+	unless @conf.io_class == TDiary::DefaultIO
+		return %Q|<p class="message">could not use this plugin under #{@conf.io_class}.</p>| 
+	end
+
+	query = CGI::unescape( @cgi.params['q'][0] )
+	start = CGI::unescape( @cgi.params['start'][0] || '0' ).to_i
+
+	begin
+		patterns = DefaultIOSearch::setup_patterns(query)
+		r = search_input_form( query )
+
+		r << '<dl class="search-result autopagerize_page_element">'
+		count = 0
+		too_many = false
+		DefaultIOSearch::match_components(patterns, @conf.data_path) do |diary, fragment, component|
+			count += 1
+			if count > 50 # TO MANY HITS
+				too_many = true
+				break
+			end
+			href = @conf.index + anchor( "#{diary.ymd}#{fragment}" )
+			r << %Q|<dt><a href="#{href}">#{h diary.y_m_d}</a></dt>|
+			r << %Q|<dd>#{DefaultIOSearch::short_html(component)}</dd>|
+		end
+		r << '</dl>'
+
+		r << '<div class="search-navi">'
+		r << "<p>#{too_many ? 'too many' : count} hits.</p>"
+		r << '</div>'
+
+		r
+	rescue WrongQuery
+		search_input_form( query ) + %Q|<p class="message">#{$!.message}</p>|
+	end
+end

data/plugin/search-google-custom.rb

@@ -0,0 +1,60 @@
+# -*- coding: utf-8 -*-
+#
+# search-google-custom.rb - site search plugin using Goole Custom Search.
+#
+# Copyright (C) 2011, hb <http://www.smallstyle.com>
+# You can redistribute it and/or modify it under GPL.
+#
+# Needed these options below:
+#
+# @options["search-google-custom.id"] : Your Google Custome Search ID
+# @options["search-google-custom.cof"] : 広告の表示場所（9:右，10:一番上と右，11:一番上と下）
+# @options["search-google-custom.width"] : 検索結果のフレームの幅
+# @options["search-google-custom.height"] : 検索結果のフレームの高さ
+# @options["search-google-custom.search_label"] : 検索テキストボックス左のラベル
+# @options["search-google-custom.button_text"] : 検索ボタンに書かれる文字列
+#
+
+def search_title
+	'全文検索 by Google カスタム検索'
+end
+
+add_footer_proc do
+		%Q|<script type="text/javascript" src="http://www.google.com/cse/brand?form=cse-search-box&lang=ja"></script>|
+end
+
+def search_input_form(q='')
+	cof = @conf["search-google-custom.cof"] || 9
+	search_label = @conf["search-google-custom.search_label"] || '検索キーワード:'
+	button_text = @conf["search-google-custom.button_text"] || '検索'
+
+	r = <<-HTML
+		<form action="#{@conf.index}" id="cse-search-box">
+			<div>
+				<input type="hidden" name="cx" value="#{@conf["search-google-custom.id"]}">
+				<input type="hidden" name="cof" value="FORID:#{cof}">
+				<input type="hidden" name="ie" value="UTF-8">
+				<label for="q">#{search_label}</label><input type="text" name="q" value="#{h q}">
+				<input type="submit" name="sa" value="#{button_text}">
+			</div>
+		</form>
+	HTML
+end
+
+def search_result
+	w = @conf["search-google-custom.width"] || 600
+	h = @conf["search-google-custom.height"] || 1300
+	
+	r = <<-HTML
+		<div id="cse-search-results"></div>
+			<script type="text/javascript">
+				var googleSearchIframeName = "cse-search-results";
+				var googleSearchFormName = "cse-search-box";
+				var googleSearchFrameWidth = #{w};
+				var googleSearchFrameHeight = #{h};
+				var googleSearchDomain = "www.google.com";
+				var googleSearchPath = "/cse";
+			</script>
+			<script type="text/javascript" src="http://www.google.com/afsonline/show_afs_search.js"></script>
+	HTML
+end

data/plugin/search-yahoo-websearch.rb

@@ -0,0 +1,121 @@
+# -*- coding: utf-8 -*-
+#
+# search-yahoo-websearch.rb - Yahoo!デベロッパーネットワークのWeb検索APIを利用した検索プラグイン.
+#
+# Copyright (C) 2011, hb <smallstyle@gmail.com>
+# You can redistribute it and/or modify it under GPL.
+#
+# オプション
+#
+# @options['search-yahoo-websearch.appid'] : アプリケーションID（必須）
+# @options['search-yahoo-websearch.premium'] : アップグレード版利用時はtrueを指定する（任意）
+#
+
+def search_title
+	'全文検索 by Yahoo! ウェブ検索'
+end
+
+def search_input_form( q )
+	r = <<-HTML
+		<form method="GET" action="#{@conf.index}"><div>
+			検索キーワード:
+			<input name="q" value="#{h q}">
+			<input type="submit" value="OK">
+		</div></form>
+	HTML
+end
+
+def request_url
+	if @conf['search-yahoo-websearch.premium']
+		'http://search.yahooapis.jp/PremiumWebSearchService/V1/webSearch'
+	else
+		'http://search.yahooapis.jp/WebSearchService/V2/webSearch'
+	end
+end
+
+def search_to_html( str )
+	(str || '').gsub( /(?:<wbr(?:[ \t\r\n][^>]*)?>)+/, '' ).gsub( %r{<(/?)b[ \t\n\r]*>}, '<\\1strong>' )
+end
+
+def yahoo_websearch_api( q, start = 1 )
+	url = request_url
+	appid = @conf['search-yahoo-websearch.appid']
+	uri = URI::parse( @conf.base_url )
+	
+	url << "?appid=#{appid}&query=#{q}&results=20&start=#{start}&format=html&site=#{uri.host}"
+
+	proxy = @conf['proxy']
+	proxy = 'http://' + proxy if proxy
+  
+	proxy_host, proxy_port = nil
+	if proxy
+		proxy_host = proxy_uri.host
+		proxy_port = proxy_uri.port
+	end
+	proxy_class = Net::HTTP::Proxy(proxy_host, proxy_port)
+
+	query = URI.parse(url)
+	req = Net::HTTP::Get.new(query.request_uri)
+	http = proxy_class.new(query.host, query.port)
+	http.open_timeout = 20
+	http.read_timeout = 20
+	res = http.start do
+		http.request(req)
+	end
+	res.body
+end
+
+def yahoo_websearch_attribution
+	<<-EOF
+		<!-- Begin Yahoo! JAPAN Web Services Attribution Snippet -->
+		<a href="http://developer.yahoo.co.jp/about">
+		<img src="http://i.yimg.jp/images/yjdn/yjdn_attbtn1_125_17.gif" title="Webサービス by Yahoo! JAPAN" alt="Web Services by Yahoo! JAPAN" width="125" height="17" border="0" style="margin:15px 15px 15px 15px"></a>
+		<!-- End Yahoo! JAPAN Web Services Attribution Snippet -->
+	EOF
+end
+
+def search_result
+	query = CGI::unescape( @cgi.params['q'][0] )
+	start = CGI::unescape( @cgi.params['start'][0] || '1' ).to_i
+	
+   begin
+		uri = URI::parse( @conf.base_url )
+		xml = yahoo_websearch_api( u( query.untaint ), start )
+		doc = REXML::Document::new( REXML::Source.new( xml ) ).root
+		err = doc.elements.to_a( '/Error/Message' )[0]
+		if err
+			return %Q|<p class="message">ERROR - #{err.text}</p>|
+		end
+	rescue OpenURI::HTTPError
+		return %Q|<p class="message">#$!</p>|
+	end
+	
+	r = '<dl class="search-result autopagerize_page_element">'
+	doc.elements.to_a( 'Result' ).each do |elem|
+		url = elem.elements.to_a( 'Url' )[0].text
+		next unless url =~ @conf['search.result_filter']
+		title = elem.elements.to_a( 'Title' )[0].text
+		summary = elem.elements.to_a( 'Summary' )[0].text
+		r << %Q|<dt><a href="#{h url}">#{search_to_html title}</a></dt>|
+		r << %Q|<dd>#{search_to_html summary}</dd>|
+	end
+	r << '</dl>'
+	
+	r << '<div class="search-navi">'
+	pos = doc.elements["/ResultSet"].attributes["firstResultPosition"]
+	unless pos == '1'
+		r << %Q|<a href="#{@conf.index}?q=#{u query}&amp;start=#{pos.to_i - 20}" rel="prev">&lt;前の20件</a>&nbsp;|
+	end
+		
+	total = doc.elements["/ResultSet"].attributes["totalResultsAvailable"]
+	ret = doc.elements["/ResultSet"].attributes["totalResultsReturned"]
+
+	if ret.to_i == 20 and pos.to_i + 19 < 1000
+		r << %Q|<a href="#{@conf.index}?q=#{u query}&amp;start=#{pos.to_i + 20}" rel="next">次の20件&gt;</a>|
+	end
+	r << '</div>'
+	
+	r << yahoo_websearch_attribution
+	
+	r
+end