tdiary 3.2.2.20130507

data/misc/plugin/navi_user.rb

@@ -0,0 +1,19 @@
+# -*- coding: utf-8 -*-
+# navi_user.rb
+#
+# navi_user: 前日，翌日→前の日記，次の日記
+#   modeがday/commentのときに表示される「前日」「翌日」ナビゲーション
+#   リンクを，「前の日記」，「次の日記」に変更するplugin．前の日記，次
+#   の日記がない場合は，ナビゲーションを表示しない．月またぎにも対応．
+#
+# Copyright (c) 2002 Junichiro KITA <kita@kitaj.no-ip.com>
+# Distributed under the GPL
+
+# this plugin is obsoleted
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/number_anchor.rb

@@ -0,0 +1,47 @@
+# -*- coding: utf-8 -*-
+# number_anchor.rb
+#
+# number_anchor: アンカーにid属性を付加する
+#          アンカー画像を異なるものにするためのもの
+# 	   使用するさいは、設定画面のヘッダに
+#	   <%= use_number_anchor( アンカーの種数 ) %>
+#	   と書いてください。
+#
+# Copyright (C) 2002 by zoe <http://www.kasumi.sakura.ne.jp/~zoe/tdiary/>
+# Distributed under the GPL
+#
+
+def use_number_anchor( n = 1 )
+	@use_number_anchor = true
+	@total_anchor = n
+	""
+end
+
+alias :_orig_anchor :anchor
+
+def anchor( s )
+	if @use_number_anchor == true then
+	if /^(\d+)#?([pct])?(\d*)?$/ =~ s then
+		if $2 then
+			n = $3.to_i
+			if n && n > @total_anchor then
+				n = (n % @total_anchor)
+			end
+			"#{_orig_anchor(s)}\" class=\"#$2#{'%02d' % n}"
+		else
+			_orig_anchor(s)
+		end
+	else
+		""
+	end
+	else
+		_orig_anchor(s)
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/pb-show.rb

@@ -0,0 +1,165 @@
+# pb-show.rb
+#
+# functions:
+#   * show Pingback ping URL in right of TSUKKOMI label.
+#   * hide Pingbacks in TSUKKOMI.
+#   * show Pingbacks above Today's Links.
+#
+# options:
+#	@options['pb.cgi']:
+#		the Pingback ping URL. './pb.rb' is default.
+#	@options['pb.hide_if_no_pb']:
+#		If true, hide 'Pingbacks(n)' when there is no Pingbacks.  Default value is false.
+#
+# Copyright (c) 2003 TADA Tadashi <sho@spc.gr.jp>
+# You can distribute this file under the GPL.
+#
+# Modified: by Junichiro Kita <kita@kitaj.no-ip.com>
+# Modified: by MoonWolf <moonwolf@moonwolf.com>
+#
+#
+
+# running on only non mobile mode
+unless @cgi.mobile_agent? then
+
+#
+# hide Pingbacks in TSUKKOMI
+#
+module ::TDiary
+	module CommentManager
+		def each_visible_pingback( limit = 3 )
+			i = 0
+			@comments.find_all {|com|
+				com.visible_true? and /^Pingback$/ =~ com.name
+			}[0,limit].each do |com|
+				i += 1 # i starts with 1.
+				yield com,i
+			end
+		end
+	
+		def each_visible_pingback_tail( limit = 3 )
+			i = 0
+			@comments.find_all {|com|
+				com.visible_true? and /^Pingback$/ =~ com.name
+			}.reverse[0,limit].reverse.each do |com|
+				i += 1 # i starts with 1.
+				yield com,i
+			end
+		end
+	end
+end
+
+#
+# insert Pingbacks above Today's Link.
+#
+alias :referer_of_today_short_pb_backup :referer_of_today_short
+def referer_of_today_short( diary, limit )
+	r = referer_of_today_short_pb_backup( diary, limit )
+	return r unless @plugin_files.grep(/blog_style.rb\z/).empty?
+	if diary and !bot? then
+		count = 0
+		diary.each_visible_pingback( 100 ) {|t,count|} # count up
+		r << %Q|<a href="#{h( @index )}#{anchor( @pb_date.strftime( '%Y%m%d' ) )}#b">Pingback#{'s' if count > 1}(#{h( count )})</a>| unless count == 0 and @options['pb.hide_if_no_pb']
+	end
+	r
+end
+
+def pingbacks_of_today_short( diary, limit = @conf['pingback_limit'] || 3 )
+	# for BlogKit only
+	return if @plugin_files.grep(/blog_style.rb\z/).empty?
+
+	fragment = 't%02d'
+	today = anchor( diary.date.strftime( '%Y%m%d' ) )
+	count = 0
+	diary.each_visible_pingback( limit ) {|t,count|} # count up
+
+	r = ''
+	r << %Q!\t<div class="comment pingbacks">\n!
+
+	r << %Q!\t\t<div class="caption">\n!
+        r << %Q!\t\t\t#{ pingback_today }#{ pingback_total( count ) }\n!
+	r << %Q!\t\t</div>\n!
+
+	r << %Q!\t\t<div class="commentshort pingbackshort">\n!
+	r << %Q!\t\t\t<p><a href="#{h @index }#{ today }#b01">Before...</a></p>\n! if count > limit
+
+	diary.each_visible_pingback_tail( limit ) do |t,i|
+		sourceURI, targetURI = t.body.split( /\n/,2 )
+		r << %Q!\t\t\t<p>\n!
+		r << %Q!\t\t\t\t<a href="#{ h( @index ) }#{ today }##{ fragment % i }">#{ h( @conf['pingback_anchor'] ) }</a>\n!
+		r << %Q!\t\t\t\t<span class="commentator blog"><a href="#{ h( sourceURI ) }">#{h( sourceURI )}</a> to <a href="#{ h( targetURI ) }">#{h( targetURI )}</a></span>\n!
+		r << %Q!\t\t\t</p>\n!
+	end
+	r << %Q!\t\t</div>\n!
+	r << %Q!\t</div>\n!
+	r
+end
+
+def pingbacks_of_today_long( diary, limit = 100 )
+	count = 0
+	diary.each_visible_pingback( limit ) {|t,count|} # count up
+	fragment = 'b%02d'
+	today = anchor( @date.strftime( '%Y%m%d' ) )
+
+	r = ''
+	r << %Q!\t<div class="comment pingbacks">\n!
+
+	r << %Q!\t\t<div class="caption">\n!
+	r << %Q!\t\t\t#{ pingback_today }#{ pingback_total( count ) }\n!
+	r << %Q!\t\t</div>\n!
+
+	r << %Q!\t\t<div class="commentbody pingbackbody">\n!
+	diary.each_visible_pingback( limit ) do |t,i|
+		sourceURI, targetURI = t.body.split( /\n/,2 )
+		f = fragment % i
+
+		r << %Q!\t\t\t<div class="commentator pingback">\n!
+		r << %Q!\t\t\t\t<a name="#{ f }" href="#{ h( @index ) }#{ today }##{ f }">#{ @conf['pingback_anchor'] }</a>\n!
+		if bot? then
+			r << %Q!\t\t\t\t<span class="commentator pingbackblog">#{ h( sourceURI + " to " + targetURI )}</span>\n!
+		else
+			r << %Q!\t\t\t\t<span class="commentator pingbackblog"><a href="#{ h( sourceURI ) }">#{h( sourceURI )}</a> to <a href="#{ h( targetURI ) }">#{h targetURI}</a></span>\n!
+		end
+		r << %Q!\t\t\t\t<span class="commenttime pingbacktime">#{ comment_date( t.date ) }</span>\n!
+		r << %Q!\t\t\t</div>\n!
+  	end
+	r << %Q!\t\t</div>\n!
+	r << %Q!\t</div>\n!
+	r
+end
+
+# running on only non mobile mode
+end # unless mobile_agent?
+
+#
+# show Pingback ping URL
+#
+add_body_enter_proc do |date|
+	cgi = File.basename(@options['pb.cgi'] || './pb.rb')
+	@pb_date = date
+   @pb_id_url = %Q|#{h @index}#{anchor( @pb_date.strftime('%Y%m%d') )}|
+	@pb_id_url[0, 0] = base_url if %r|^https?://|i !~ @conf.index
+	@pb_id_url.gsub!( %r|/\./|, '/' )
+	@pb_url = %Q|#{h base_url}#{cgi}/#{@pb_date.strftime('%Y%m%d')}|
+	''
+end
+
+# configurations
+@conf['pingback_anchor'] ||= @conf.comment_anchor
+@conf['pingback_limit']  ||= @conf.comment_limit
+
+add_conf_proc( 'Pingback-Show', 'Pingback' ) do
+	if @mode == 'saveconf' then
+		@conf['pingback_anchor'] = @conf.to_native( @cgi.params['pingback_anchor'][0] )
+		@conf['pingback_limit']  = @cgi.params['pingback_limit'][0].to_i
+		@conf['pingback_limit'] = 3 if @conf['pingback_limit'] < 1
+	end
+	pb_show_conf_html
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/ping.rb

@@ -0,0 +1,99 @@
+# ping.rb
+#
+# ping to weblog ping servers.
+#
+# Copyright (c) 2004 TADA Tadashi <sho@spc.gr.jp>
+# Distributed under the GPL
+#
+# Modified: by MoonWolf <moonwolf@moonwolf.com>
+#
+add_update_proc do
+	if @conf['ping.list'] then
+		list = @conf['ping.list'].split
+		ping( list ) unless list.empty?
+	end
+end
+
+def ping( list )
+	return unless @cgi.params['plugin_ping_send'][0] == 'true'
+
+	xml = to_utf8( <<-XML )
+<?xml version="1.0" encoding="UTF-8"?>
+<methodCall>
+  <methodName>weblogUpdates.ping</methodName>
+  <params>
+    <param>
+      <value>#{@conf.html_title}</value>
+    </param>
+    <param>
+      <value>#{base_url}</value>
+    </param>
+  </params>
+</methodCall>
+	XML
+
+	require 'net/http'
+	require 'timeout'
+	threads = []
+	list.each do |url|
+		u = URI::parse( url.untaint )
+		next unless u.host
+		threads << Thread.start( u, xml ) do |u, xml|
+			begin
+				timeout( @conf['ping.timeout'].to_i ) do
+					Net::HTTP.start( u.host, u.port ) do |http|
+						http.post( u.path, xml, 'Content-Type' => 'text/xml' )
+					end
+				end
+			rescue Exception,Timeout::Error
+			end
+		end
+	end
+	threads.each {|t| t.join }
+end
+
+add_conf_proc( 'ping', @ping_label_conf, 'update' ) do
+	ping_conf_proc
+end
+
+def ping_conf_proc
+	if @mode == 'saveconf' then
+		@conf['ping.list'] = @cgi.params['ping.list'][0]
+		@conf['ping.timeout'] = @cgi.params['ping.timeout'][0]
+	end
+	@conf['ping.list'] = '' unless @conf['ping.list']
+	@conf['ping.timeout'] = '3' unless @conf['ping.timeout']
+
+	result = <<-HTML
+		<h3>#{@ping_label_list}</h3>
+		<p>#{@ping_label_list_desc}</p>
+		<p><textarea name="ping.list" cols="70" rows="5">#{h( @conf['ping.list'] )}</textarea></p>
+		<h3>#{@ping_label_timeout}</h3>
+		<p><input type="text" name="ping.timeout" value="#{h( @conf['ping.timeout'] )}" /></p>
+	HTML
+end
+
+add_edit_proc do
+	ping_edit_proc
+end
+
+def ping_edit_proc
+	checked = ' checked'
+	if @mode == 'preview' then
+		checked = @cgi.params['plugin_ping_send'][0] == 'true' ? ' checked' : ''
+	end
+	r = <<-HTML
+	<div class="ping"><label for="plugin_ping_send">
+	<input type="checkbox" id="plugin_ping_send" name="plugin_ping_send" value="true"#{checked}  tabindex="400">
+	#{@ping_label_send}
+	</label></div>
+	HTML
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3

data/misc/plugin/pre_wrap.rb

@@ -0,0 +1,19 @@
+#
+# pre_wrap.rb: word wrapping style for preformat (<pre>)
+#
+# Copyright (C) 2010 TADA Tadashi <t@tdtds.jp>
+# You can redistribute it and/or modify it under GPL2.
+#
+add_header_proc do
+	<<-STYLE
+		<style type="text/css"><!--
+			div.section pre, div.commentbody a {
+				white-space: -moz-pre-wrap;
+				white-space: -pre-wrap;
+				white-space: -o-pre-wrap;
+				white-space: pre-wrap;
+				word-wrap: break-word;
+			}
+		--></style>
+	STYLE
+end

data/misc/plugin/random_google.rb

@@ -0,0 +1,165 @@
+# -*- coding: utf-8 -*-
+# random_google.rb
+#
+# random_google: 日記からランダムに抽出した単語をgoogleで検索するリンクを生成する
+#
+# 使い方:
+#   tDiary1.5.5以降で導入されたconf_procに対応しているので，tDiaryの設定画面からどうぞ．
+#
+# Copyright (c) 2003 Junichiro KITA <kita@kitaj.no-ip.com>
+# Distributed under the GPL
+#
+
+def random_google_pickup_word(date)
+	analyzer = @conf['random_google.analyzer']
+	analyzer = @conf['random_google.analyzer_path'] if analyzer == "user_defined"
+	analyzer = "internal" if analyzer == ""
+	if analyzer == "internal"
+		m = self.methods
+		url_regexp = %r<(((http[s]{0,1}|ftp)://[\(\)%#!/0-9a-zA-Z_$@.&+-,'"*=;?:~-]+)|([0-9a-zA-Z_.-]+@[\(\)%!0-9a-zA-Z_$.&+-,'"*-]+\.[\(\)%!0-9a-zA-Z_$.&+-,'"*-]+))>
+		@diaries[date.strftime('%Y%m%d')].to_src.
+			gsub(url_regexp, '').
+			scan(/(?:[亜-瑤]{2,}|[ァ-ヶー]{2,}|[0-9A-Za-z]{2,})/).sort.uniq.reject {|i| m.include?(i)}
+	else
+		require 'open3'
+		inn, out, err = Open3.popen3("#{analyzer} | sort | uniq")
+		inn.puts @diaries[date.strftime('%Y%m%d')].to_src
+		inn.close
+		m = self.methods
+		r = out.read.map do |l|
+			word = l.split[0]
+			if /\s(名詞|未知語)/.match(l) and
+				!/(\W|\d)/.match(word) and            # 記号とか数字は要らない
+				!/\A[あ-ん]{1,2}\z/.match(word) and   # 2文字以下のひらがなも要らんでしょ
+				!m.include?(word)          # Pluginのメソッドは除外した方がいいかも
+				word
+			else
+				nil
+			end
+		end.compact
+		out.close
+		err.close
+		r
+	end
+end
+
+def random_google_init
+	@conf['random_google.n'] ||= 2
+	@conf['random_google.caption'] ||= 'もしかしたら関連するかもしれないページ'
+	@conf['random_google.popup'] ||= '本日のお題: $1'
+	@conf['random_google.append'] ||= ''
+	@conf['random_google.exception'] ||= ''
+	if @conf.secure
+		@conf['random_google.analyzer'] = "internal"
+	else
+		@conf['random_google.analyzer'] ||= "internal"
+		@conf['random_google.analyzer_path'] ||= ""
+	end
+end
+
+if /(latest|day)/ === @mode and !bot? and !@cgi.mobile_agent?
+	add_body_enter_proc do |date|
+		random_google_init
+
+		exception = @conf['random_google.exception'].split
+		words = random_google_pickup_word(date) - exception
+		if words.empty?
+			''
+		else
+			r = []
+			@conf['random_google.n'].times do |i|
+				r << words.delete_at(rand(words.size))
+			end
+			append = @conf['random_google.append'].split
+			rr = (r.compact + append).map {|i| u(i)}.join('+')	# URL-escaped
+			rrr = r.compact.map.to_a.join(' ')
+			caption = @conf['random_google.caption'].gsub(/\$1/, h(rrr)) # only the words picked up are escaped
+			popup = h(@conf['random_google.popup'].gsub(/\$1/, rrr)) # escaped
+			<<-HTML
+			<div class="body-enter">
+			[<a href="http://www.google.com/search?lr=lang_ja&amp;ie=utf-8&amp;q=#{rr}" title="#{popup}">
+			#{caption}
+			</a>]
+			</div>
+			HTML
+		end
+	end
+end
+
+def saveconf_random_google
+	if @mode == 'saveconf' then
+		@conf['random_google.n'] = @cgi.params['random_google_n'][0].to_i
+		@conf['random_google.caption'] = @cgi.params['random_google_caption'][0]
+		@conf['random_google.popup'] = @cgi.params['random_google_popup'][0]
+		@conf['random_google.append'] = @cgi.params['random_google_append'][0]
+		@conf['random_google.exception'] = @cgi.params['random_google_exception'][0]
+		if @conf.secure
+			@conf['random_google.analyzer'] = "internal"
+		else
+			@conf['random_google.analyzer'] = @cgi.params['random_google_analyzer'][0]
+			@conf['random_google.analyzer_path'] = @cgi.params['random_google_analyzer_path'][0]
+		end
+	end
+end
+
+add_conf_proc('RandomGoogle', '関連するかもしれないページ検索') do
+	saveconf_random_google
+	random_google_init
+
+	r = <<-HTML
+	<h3 class="subtitle">キーワードの数</h3>
+	#{"<p>日記本文から抽出するキーワードの数</p>" unless @cgi.mobile_agent?}
+	<p><select name="random_google_n">
+	HTML
+
+	1.upto(9) do |i|
+		r << %Q|		<option value="#{i}"#{@conf['random_google.n'] == i ? " selected" : ""}>#{i}</option>\n|
+	end
+	r << <<-HTML
+	</select></p>
+
+	<h3 class="subtitle">表示関連</h3>
+	#{"<p>googleへのリンクを示す文字列とリンクの上にマウスポインタを置いた時にポップアップする文字列を指定します．文字列中の $1 は抽出されたキーワードで置換されます．</p>" unless @cgi.mobile_agent?}
+	<p>リンク：<input name="random_google_caption" size="70" value="#{h @conf['random_google.caption']}"></p>
+	<p>ポップアップ：<input name="random_google_popup" size="70" value="#{h @conf['random_google.popup']}"></p>
+
+	<h3 class="subtitle">追加するキーワード</h3>
+	#{"<p>追加したいキーワードを指定します．複数指定する場合はキーワードをスペースで区切って指定してください．</p>" unless @cgi.mobile_agent?}
+	#{"<p>例)</p><pre>-site:example.com</pre>" unless @cgi.mobile_agent?}
+	<p><input name="random_google_append" size="70" value="#{h @conf['random_google.append']}"></p>
+
+	<h3 class="subtitle">除外するキーワード</h3>
+	#{"<p>除外したいキーワードを指定します．複数指定する場合はキーワードをスペースで区切って指定してください．</p>" unless @cgi.mobile_agent?}
+	#{"<p>例)</p><pre>a the</pre>" unless @cgi.mobile_agent?}
+	<p><input name="random_google_exception" size="70" value="#{h @conf['random_google.exception']}"></p>
+	HTML
+
+	unless @conf.secure
+		r << <<-HTML
+	<h3 class="subtitle">形態素解析器の利用</h3>
+	#{"<p>キーワードの抽出に形態素解析器を利用するかどうかを指定します．形態素解析器を使用しない場合は/([亜-瑤]{2,}|[ァ-ヶー]{2,}|[0-9A-Za-z]{2,})/という正規表現でキーワードを抽出しますが，あまり精度はよくありません．</p>" unless @cgi.mobile_agent?}
+	#{"<p>ChasenやMeCabが標準パスにインストールされていない場合は「場所を指定する」を選択し，下の「形態素解析器のパス」で形態素解析器を絶対パスで指定して下さい．</p>" unless @cgi.mobile_agent?}
+	#{"<p>ChasenやMeCab以外の形態素解析器を利用したい場合も同様に「場所を指定する」を選択し，下の「形態素解析器のパス」で形態素解析器を絶対パスで指定して下さい．最初のカラムに形態素が出力され，かつ同じ行にその形態素の品詞(「名詞」等)が出力されるような形態素解析器であれば利用可能です．</p>" unless @cgi.mobile_agent?}
+	<p><select name="random_google_analyzer">
+		<option value="chasen"#{@conf['random_google.analyzer'] == "chasen" ? " selected" : ""}>ChaSenを利用する</option>
+		<option value="mecab"#{@conf['random_google.analyzer'] == "mecab" ? " selected" : ""}>MeCabを利用する</option>
+		<option value="user_defined"#{@conf['random_google.analyzer'] == "user_defined" ? " selected" : ""}>場所を指定する</option>
+		<option value="internal"#{@conf['random_google.analyzer'] == "internal" ? " selected" : ""}>利用しない</option>
+ 	</select></p>
+
+	<h3 class="subtitle">形態素解析器のパス</h3>
+	#{"<p>利用する形態素解析器を絶対パスで指定します．</p>" unless @cgi.mobile_agent?}
+	#{"<p>例)</p><pre>/usr/local/bin/chasen</pre>" unless @cgi.mobile_agent?}
+	<p><input name="random_google_analyzer_path" size="70" value="#{h @conf['random_google.analyzer_path']}"></p>
+	HTML
+	end
+	r
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3