tdiary-contrib 3.2.2.20130518

data/style/markdown_style.rb

@@ -0,0 +1,239 @@
+#
+# markdown_style.rb: Markdown style for tDiary 2.x format. $Revision: 1.10 $
+#
+# if you want to use this style, add @style into tdiary.conf below:
+#
+#    @style = 'Markdown'
+#
+# Copyright (C) 2003, TADA Tadashi <sho@spc.gr.jp>
+# Copyright (C) 2004, MoonWolf <moonwolf@moonwolf.com>
+# You can distribute this under GPL.
+#
+require 'bluecloth'
+
+module TDiary
+  class MarkdownSection
+    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
+      @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)
+      @categories = categories
+      cat_str = ""
+      categories.each {|cat|
+        cat_str << "[#{cat}]"
+      }
+      @subtitle = (subtitle || '').sub(/^# /,"\##{cat_str} ")
+      @strip_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}]"
+      }
+      @subtitle = "#{cat_str} " + (strip_subtitle || '')
+      @strip_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 << do_html4( date, idx, opt )
+      r << "</div>\n"
+    end
+
+    def do_html4( date, idx, opt )
+      r = ''
+      subtitle = to_html('# ' + @subtitle)
+      subtitle = subtitle.sub(/(\[([^\[]+?)\])+/) {
+        $&.gsub(/\[(.*?)\]/) {
+          $1.split(/,/).collect {|c|
+            %Q|<%= category_anchor("#{c}") %>|
+          }.join
+        }
+      }
+      subtitle.sub!(/<h3>/,%Q[<h3><a href="#{opt['index']}<%=anchor "#{date.strftime( '%Y%m%d' )}#p#{'%02d' % idx}" %>">#{opt['section_anchor']}</a> ])
+      if opt['anchor'] then
+        subtitle.sub!(/<h3><a /,%Q[<h3><a name="p#{'%02d' % idx}" ])
+      end
+      if opt['multi_user'] and @author then
+        subtitle.sub!(/<\/h3>/,%Q|[#{@author}]</h3>|)
+      end
+      r << subtitle
+      r << @body_to_html
+      r
+    end
+
+    def chtml( date, idx, opt )
+      r = ''
+      r << to_html(@subtitle)
+      r << @body_to_html
+      r
+    end
+
+    def to_s
+      to_src
+    end
+
+    private
+
+    def to_html(string)
+      r = BlueCloth.new( string ).to_html
+      r.gsub!(/<h(\d)/) { "<h#{$1.to_i + 2}" }
+      r.gsub!(/<\/h(\d)/) { "</h#{$1.to_i + 2}" }
+      r.gsub!(/\{\{(.+?)\}\}/) {
+        "<%=#{$1}%>"
+      }
+      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 MarkdownDiary
+    include DiaryBase
+    include CategorizableDiary
+
+    def initialize( date, title, body, modified = Time::now )
+      init_diary
+      replace( date, title, body )
+      @last_modified = modified
+    end
+
+    def style
+      'Markdown'
+    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_line do |l|
+        case l
+        when /^\#[^\#]/
+          @sections << MarkdownSection::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 << MarkdownSection::new( section, author )
+      end
+      @last_modified = Time::now
+      self
+    end
+
+    def each_section
+      @sections.each do |section|
+        yield section
+      end
+    end
+
+    def add_section(subtitle, body)
+      sec = MarkdownSection::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

data/style/wikiext_style.rb

@@ -0,0 +1,21 @@
+# wikiext_style.rb: when using wiki style, extends behavior.
+#
+# Just place this file into tdiary/style directory.
+#
+# Copyright (C) 2012, kdmsnr <kdmsnr@gmail.com>
+# You can distribute this under GPL.
+#
+
+module TDiary
+  class WikiextDiary # dummy class
+  end
+end
+
+require "hikidoc"
+class HikiDoc
+  class HTMLOutput
+    def paragraph(lines)
+      @f.puts "<p>#{lines.join("")}</p>"
+    end
+  end
+end

data/tdiary-contrib.gemspec

@@ -0,0 +1,25 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'tdiary/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "tdiary-contrib"
+  spec.version       = TDiary::VERSION
+  spec.authors       = ["tDiary contributors"]
+  spec.email         = ["support@tdiary.org"]
+  spec.summary       = %q{tDiary contributions package}
+  spec.description   = %q{tDiary contributions package that includes plugins, styles, utilities, libraries, filters, and extended io.}
+  spec.homepage      = "http://www.tdiary.org/"
+  spec.license       = "GPL-2 and/or others"
+
+  spec.files         = `git ls-files`.split($/)
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_dependency 'tdiary', ">= #{TDiary::VERSION}"
+
+  spec.add_development_dependency "bundler", "~> 1.3"
+  spec.add_development_dependency "rake"
+end

data/util/clean-spam/README.ja

@@ -0,0 +1 @@
+See http://www.namazu.org/~satoru/diary/20040923.html#p01

data/util/clean-spam/tdiary-comment-clean

@@ -0,0 +1,46 @@
+#!/usr/bin/env ruby
+#
+# Copyright (C) 2004 Satoru Takabayashi <satoru@namazu.org>
+# You can redistribute it and/or modify it under GPL2.
+#
+puts "Usage: tdiary-comment-clean PATTERN FILE..." if ARGV.length == 0
+pattern = Regexp.new(ARGV.shift)
+file_names = ARGV
+
+deleted_comments = []
+file_names.each {|file_name|
+  i = File.open(file_name)
+  first_line = i.gets
+
+  comments = []
+  comment = ""
+  while line = i.gets
+    if line == ".\n"
+      comments.push(comment)
+      comment = ""
+    else
+      comment << line
+    end
+  end
+  i.close
+
+  tmp_name = "tmp.#{Process.pid}"
+  File.open(tmp_name, "w") {|o|
+    o.print first_line
+    comments.each {|comment|
+      if pattern.match(comment)
+        deleted_comments.push(comment)
+      else
+        o.print comment
+        o.puts "."
+      end
+    }
+  }
+  File.rename(file_name, file_name + ".bak")
+  File.rename(tmp_name, file_name)
+}
+
+deleted_comments.each {|comment|
+  print comment
+  puts "."
+}

data/util/clean-spam/tdiary-comment-clean2

@@ -0,0 +1,81 @@
+#!/usr/bin/env ruby
+#
+# Copyright (C) 2004 Satoru Takabayashi <satoru@namazu.org>
+# You can redistribute it and/or modify it under GPL2.
+#
+# Modified by machu ( http://www.machu.jp/diary/ )
+# 2008-03-07: adding last-modified filter with -a and -b option
+#
+require 'optparse'
+after_date = Time.at(0)
+before_date = Time.now
+test = false
+
+opt = OptionParser.new
+opt.on('-a AFTER_HOUR') {|v|
+  after_date = Time.at(Time.now - 60 * 60 * v.to_i)
+}
+opt.on('-b BEFORE_HOUR') {|v|
+  before_date = Time.at(Time.now - 60 * 60 * v.to_i)
+}
+opt.on('-t') {|v|
+  test = true
+}
+opt.parse!(ARGV)
+
+puts "Usage: tdiary-comment-clean [-a AFTER_HOUR] [-b BEFORE_HOUR] PATTERN FILE..." if ARGV.length == 0
+pattern = Regexp.new(ARGV.shift)
+file_names = ARGV
+
+class Comment
+  attr_accessor :body, :date
+
+  def initialize
+    @body = ""
+  end
+
+  def <<(body)
+    if body.match(/^Last-Modified: (\d+)$/)
+      @date = Time.at($1.to_i)
+    end
+    @body << body
+  end
+end
+
+deleted_comments = []
+file_names.each {|file_name|
+  i = File.open(file_name)
+  first_line = i.gets
+
+  comments = []
+  comment = Comment.new
+  while line = i.gets
+    if line == ".\n"
+      comments.push(comment)
+      comment = Comment.new
+    else
+      comment << line
+    end
+  end
+  i.close
+
+  tmp_name = "tmp.#{Process.pid}"
+  File.open(tmp_name, "w") {|o|
+    o.print first_line
+    comments.each {|comment|
+      if pattern.match(comment.body) and (before_date > comment.date) and (after_date < comment.date)
+        deleted_comments.push(comment)
+      else
+        o.print comment.body
+        o.puts "."
+      end
+    }
+  }
+  File.rename(file_name, file_name + ".bak") unless test
+  File.rename(tmp_name, file_name) unless test
+}
+
+deleted_comments.each {|comment|
+  print comment.body
+  puts "."
+}

data/util/clean-spam/tdiary-referer-clean

@@ -0,0 +1,46 @@
+#!/usr/bin/env ruby
+#
+# Copyright (C) 2004 Satoru Takabayashi <satoru@namazu.org>
+# You can redistribute it and/or modify it under GPL2.
+#
+puts "Usage: tdiary-referer-clean PATTERN FILE..." if ARGV.length == 0
+pattern = Regexp.new(ARGV.shift)
+file_names = ARGV
+
+deleted_referers = []
+file_names.each {|file_name|
+  tmp_name = "tmp.#{Process.pid}"
+  i = File.open(file_name)
+  o = File.open(tmp_name, "w")
+
+  first_line = i.gets
+  o.print first_line
+
+  while true
+    date_line = i.gets
+    break if date_line.nil?
+    raise unless /^Date: /.match(date_line)
+    blank_line = i.gets
+    raise unless blank_line == "\n"
+
+    o.print date_line
+    o.print blank_line
+    while line = i.gets
+      if line == ".\n"
+        o.print line
+        next
+      end
+      if pattern.match(line)
+        deleted_referers.push(line)
+      else
+        o.print line
+      end
+    end
+  end
+  i.close
+  o.close
+
+  File.rename(file_name, file_name + ".bak")
+  File.rename(tmp_name, file_name)
+}
+deleted_referers.each {|referer| print referer }

data/util/convert_pstore.rb

@@ -0,0 +1,82 @@
+#
+# convert utf-8 in pstore.
+#
+# usage: convert_pstore.rb file1
+#
+
+$KCODE = 'u'
+
+require 'nkf'
+require "pstore"
+begin
+	require "iconv"
+rescue LoadError
+end
+
+def convert_pstore( file )
+	db = PStore.new( file )
+	begin
+		roots = db.transaction{ db.roots }
+	rescue ArgumentError
+		if /\Aundefined class\/module (.+?)(::)?\z/ =~ $!.message
+			klass = $1
+			if /EmptdiaryString\z/ =~ klass
+				eval( "class #{klass} < String; end" )
+			else
+				eval( "class #{ klass}; end" )
+			end
+			retry
+		end
+	end
+	db.transaction do
+		roots.each do |root|
+			convert_element( db[root] )
+		end
+	end
+end
+
+def convert_element( data )
+	case data
+	when Hash, Array
+		data.each_with_index do |e, i|
+			if String === e
+				data[i] = migrate_to_utf8( e )
+			else
+				convert_element( e )
+			end
+		end
+	else
+		data.instance_variables.each do |e|
+			var = data.instance_variable_get( e )
+			if String === var
+				data.instance_variable_set( e, migrate_to_utf8( var ) )
+			else
+				convert_element( var )
+			end
+		end
+	end
+end
+
+def migrate_to_utf8( str )
+	to_native( str, 'EUC-JP' )
+end
+
+def to_native( str, charset = nil )
+	begin
+		Iconv.conv('utf-8', charset || 'utf-8', str)
+	rescue
+		from = case charset
+			when /^utf-8$/i
+				'W'
+			when /^shift_jis/i
+				'S'
+			when /^EUC-JP/i
+				'E'
+			else
+				''
+		end
+		NKF::nkf("-m0 -#{from}w", str)
+	end
+end
+
+convert_pstore( ARGV[0] )

data/util/estraier-search/ChangeLog

@@ -0,0 +1,36 @@
+2007-02-23 SHIBATA Hiroshi <h-sbt@nifty.com>
+
+	* estraier-search.rb: add override whatsnew plugin.
+	
+2007-02-18  Kazuhiko  <kazuhiko@fdiary.net>
+
+	* estraier-search.rb: add 'require "date"'.
+
+2007-02-16  Kazuhiko  <kazuhiko@fdiary.net>
+
+	* estraier-register.rb, estraier-search.rb: rename
+	@last_modified attribute to @mdate. 
+
+	* estraier-register.rb: register all visible comments (ie. not
+	limit to 100).
+
+2007-02-15  Kazuhiko  <kazuhiko@fdiary.net>
+
+	* estraier-search.rb, estraier.rhtml: support similarity search.
+
+	* estraier-register.rb, estraier-search.rb: support
+	"estraier.with_user_name" option.
+	* estraier-search.rb, estraier.rhtml: support changing a phrase
+	format.
+
+2007-02-14  Kazuhiko  <kazuhiko@fdiary.net>
+
+	* estraier.rxml: add guid elements and escape contents of
+	description elements.
+	* estraier-register.rb, estraier-search.rb: add the
+	'estraier.path' variable.
+	* estraier.rhtml: revise for more tdiary-like outputs.
+
+2007-02-13  Kazuhiko  <kazuhiko@fdiary.net>
+
+	* initial release: ported from rast-search.

data/util/estraier-search/README.ja

@@ -0,0 +1,114 @@
+estraier-search README
+===================
+
+  Hyper Estraier <http://hyperestraier.sourceforge.net/> を用いた tDiary
+  検索環境です。
+
+
+特徴
+----------
+
+  日記の更新と連動して自動的にインデックスを更新するので、いつでも最新の
+  情報で検索することができます。日記を HTML 化した後に必要な部分だけを取
+  り出してインデックスを作成するので、ヘッダやフッタなどによる検索ノイズ
+  がなく、また、プラグインの出力が検索対象になるという特徴があります。
+
+
+必要なもの
+----------
+
+  * tDiary 1.5 以降
+  * Ruby 1.8.2 以降
+  * Hyper Estraier 1.4 以降
+    （ピュアRubyインターフェイス estraierpure.rb も必要です）
+
+
+セットアップ
+------------
+
+  1. estraier-register.rb を tDiary の プラグインディレクトリにコピーします。
+
+  2. estraier-search.rb を tDiary の index.rb があるディレクトリにコピー
+     します。必要なら index.rb と同じようにシンボリックリンクを張ったり
+     名前を変えたりしてください。
+
+  3. CGI として実行可能にします。
+
+     $ chmod a+x estraier-search.rb
+
+  4. 必要なら #! のパスを変更します。
+
+  5. estraier.rhtml と estraier.rxml と i.estraier.rhtml を tDiary の
+     skel/ ディレクトリにコピーします。
+
+  6. Hyper Estraier のノードマスタをセットアップします。その際、設定ファ
+     イル（ノードマスタのrootdirの下の_conf）に、以下を追加してください。
+
+       attrindex: @uri{{!}}str
+
+     この設定がないと、登録エントリが増えた際に、著しくパフォーマンスが
+     低下します。
+
+  7. ノードマスタから、tDiary用のノードサーバを作成し、その接続情報を
+     tdiary.conf に記述します。デフォルトでは、以下のように記述したのと
+     同じ設定です。
+
+       @options["estraier.host"] = "localhost"
+       @options["estraier.port"] = 1978
+       @options["estraier.path"] = "/node/"
+       @options["estraier.node"] = "tdiary"
+       @options["estraier.name"] = "admin"
+       @options["estraier.password"] = "admin"
+
+  8. estraier-register.rb プラグインを有効にします。(tDiary の plugin/
+     ディレクトリにコピーするか、プラグイン選択のディレクトリにコピーし
+     てブラウザから有効に設定します。言語リソースファイルの
+     en/estraier-register.rb と ja/estraier-register.rb も、プラグインディ
+     レクトリの en/ 以下およびja/ 以下にコピーしてください。)
+
+  9. 既存の日記コンテンツに対して検索インデックスを作成します。tDiary の
+     設定画面から「Estraier検索」を選び、「Estraier検索のインデックスを
+     再構築する場合は、チェックボックスをチェックしてOKを押してください」
+     というメッセージに従ってチェックしてOKを押すと、
+
+     インデックスの作成は、tDiary の CGI の実行権限で以下のように実行する
+     ことでも可能です。
+
+     ruby estraier-register.rb [-p tdiary.rbのあるディレクトリ] [-c tdiary.confのあるディレクトリ]
+
+ 10. 自分の tDiary の好きな場所 (例えばヘッダ) に以下のようなフォームを加
+     えてください。
+
+     <form method="get" action="estraier-search.rb" class="search">
+     <input type="text" name="query" size="20" value="">
+     <input type="submit" value="Search">
+     </form>
+
+     search-form.rb プラグインを有効にしている場合は、以下のように書くこ
+     ともできます。
+
+     <%= search_form("estraier-search.rb", "query") %>
+
+  以上です。
+
+
+検索のしかた
+------------
+
+  estraier-search の検索対象は、日記本文、ツッコミ、TrackBack です。
+
+  検索方法については、
+  http://hyperestraier.sourceforge.net/uguide-ja.html#searchcond をご覧
+  ください。検索条件の書式を指定していない場合は、「簡便書式」で検索を行
+  います。
+
+
+連絡先
+------
+
+  かずひこ <kazuhiko@fdiary.net>
+  http://www.fdiary.net/
+
+  バグ報告は以下のどこかにお願いします。
+    * tdiary-devel ML
+    * 直接メール

data/util/estraier-search/en/estraier-register.rb

@@ -0,0 +1,3 @@
+@estraier_register_conf_label = 'Estraier Search'
+@estraier_register_conf_header = 'Rebuild Estraier search index'
+@estraier_register_conf_description = 'To rebuild Estraier search index, check the box and submit \'OK\'.'