tdiary 3.2.2.20130507

data/misc/plugin/title_list.rb

@@ -0,0 +1,41 @@
+# -*- coding: utf-8 -*-
+# titile_list.rb
+#
+# title_list: 現在表示している月のタイトルリストを表示
+#   パラメタ(カッコ内は未指定時の値):
+#     rev:       逆順表示(false)
+#
+# 備考: タイトルリストを日記に埋め込むには、レイアウトを工夫しなければ
+# なりません。ヘッダやフッタでtableタグを使ったり、CSSを書き換える必
+# 要があるでしょう。
+#
+# Copyright (c) 2005 TADA Tadashi <sho@spc.gr.jp>
+# You can distribute this file under the GPL2.
+#
+def title_list( rev = false )
+	result = %Q|<ul class="title-list">\n|
+	keys = @diaries.keys.sort
+	keys = keys.reverse if rev
+	keys.each do |date|
+		next unless @diaries[date].visible?
+		result << %Q[<li><a href="#{h( @index )}#{h anchor( date )}">#{h( @diaries[date].date.strftime( @date_format ) )}</a>\n\t<ul class="title-list-item">\n]
+		if !@plugin_files.grep(/\/category.rb$/).empty? and @diaries[date].categorizable?
+			@diaries[date].each_section do |section|
+				result << %Q[\t<li>#{section.stripped_subtitle_to_html}</li>\n] if section.stripped_subtitle
+			end
+		else
+			@diaries[date].each_section do |section|
+				result << %Q[<li>#{section.subtitle_to_html}</li>\n] if section.subtitle
+			end
+		end
+		result << "\t</ul>\n</li>\n"
+	end
+	apply_plugin( result << "</ul>\n" )
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/title_tag.rb

@@ -0,0 +1,80 @@
+# Copyright (c) 2003 URABE Shyouhei <root@mput.dip.jp>
+#
+# Permission is hereby granted, free of  charge, to any person obtaining a copy
+# of  this code, to  deal in  the code  without restriction,  including without
+# limitation  the rights  to  use, copy,  modify,  merge, publish,  distribute,
+# sublicense, and/or sell copies of the code, and to permit persons to whom the
+# code is furnished to do so, subject to the following conditions:
+#
+#     The above copyright notice and this permission notice shall be
+#     included in all copies or substantial portions of the code.
+#
+# THE  CODE IS  PROVIDED "AS  IS",  WITHOUT WARRANTY  OF ANY  KIND, EXPRESS  OR
+# IMPLIED,  INCLUDING BUT  NOT LIMITED  TO THE  WARRANTIES  OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE  AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+# AUTHORS  OR COPYRIGHT  HOLDERS  BE LIABLE  FOR  ANY CLAIM,  DAMAGES OR  OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF  OR IN CONNECTION WITH  THE CODE OR THE  USE OR OTHER  DEALINGS IN THE
+# CODE.
+
+# title_tag2.rb to enhance <title> element of generating HTML
+# $Id: title_tag.rb,v 1.6 2008-03-02 09:01:45 kazuhiko Exp $
+# To use, just put this file into plugin folder.
+
+alias :title_tag2 :title_tag
+
+module ::TDiary
+	module DiaryBase
+		def all_subtitles_to_html
+			titles = Array.new
+			each_section do |section|
+				titles << (section.subtitle_to_html || '').strip
+			end
+			return titles
+		end
+
+		def all_stripped_subtitles_to_html
+			return all_subtitles_to_html unless categorizable?
+			titles = Array.new
+			each_section do |section|
+				titles << (section.stripped_subtitle_to_html || '').strip
+			end
+			return titles
+		end
+	end
+end
+
+def title_tag
+	if @mode == 'day' and diary = @diaries[@date.strftime('%Y%m%d')] then
+		if !diary.visible? then
+			return title_tag2
+		end
+		site_title = title_tag2.gsub( /<.*?>/, '')
+		day_title = ''
+		if  !diary.title.empty? then
+			day_title << apply_plugin(diary.title, true) << ':'
+		end
+		t2 = ''
+		if @plugin_files.grep(/\/category.rb$/).empty? then
+			t2 << diary.all_subtitles_to_html.join(', ')
+		else
+			t2 << diary.all_stripped_subtitles_to_html.join(', ')
+		end
+		return "<title>#{h day_title} #{@conf.shorten(apply_plugin(t2, true))} - #{h( site_title )}</title>"
+	elsif @mode == 'categoryview' then
+		return @conf.shorten("<title>#{h( @html_title )}#{h( category_title() )}</title>")
+	else
+		return title_tag2
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# code: utf-8
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# fill-column: 79
+# default-justification: full
+# End:
+# vi: ts=3 sw=3

data/misc/plugin/tlink.rb

@@ -0,0 +1,163 @@
+# -*- coding: utf-8 -*-
+# tlink.rb
+#
+# title 属性付 anchor plugin
+#
+# 使い方
+#   <%= tlink( "URL", "文字列", "title 属性の中身（省略可）" ) %>
+#
+#   第 3 パラメータを省略した時、URL の末尾が c#?? ならば、
+#   そのツッコミの内容が最初の行だけ表示されます。
+#   末尾が p#?? ならば、サブタイトルがあればサブタイトルが、
+#   なければ最初のパラグラフが表示されます。
+#
+#   例. <%= tlink( "http://tdiary.tdiary.net/20020131.html#c01", "このツッコミ" ) %>
+#       出力結果:
+#       <a href="http://tdiary.tdiary.net/20020131.html#c01", title="テストでござるよ">このツッコミ</a>
+#
+# Copyright(C) 2002 NT <nt@24i.net>
+# Distributed under the GPL.
+#
+# Modified: by abbey <inlet@cello.no-ip.org>
+#
+=begin ChangeLog
+2003-03-03 NT <nt@be.to>
+	* add the function to try regetting a subtitle.
+
+2003-01-29 NT <nt@be.to>
+	* fix a critical bug.
+
+2003-01-28 NT <nt@be.to>
+	* correspond to change in movile mode.
+
+2002-11-19 NT <nt@24i.net>
+	* add require 'pstore'.
+
+2002-07-01 NT <nt@24i.net>
+	* change some regular expressions.
+
+2002-05-18 NT <nt@24i.net>
+	* remove "," from %Q[<a href="#{url}", title="#{title}">#{str}</a>].
+
+2002-05-16 MUTOH Masao <mutoh@highway.ne.jp>
+	* cache mechanism support.
+	* code cleanup(remove require 'cgi', 
+		getcomment rename to tlink_getcomment).
+
+2002-05-05 NT <nt@24i.net>
+	* add URL to User-Agent
+
+2002-04-21 abbey <inlet@cello.no-ip.org>
+	* add error shori
+
+2002-04-20 NT <nt@24i.net>
+	* change User-Agent
+	* modify some regular expressions
+
+2002-04-19 NT <nt@24i.net>
+	* modify some regular expressions
+	* add User-Agent
+
+2002-04-18 abbey <inlet@cello.no-ip.org>
+	* adapt to port numbers except 80
+	* adapt to #pXX
+
+2002-04-17 NT <nt@24i.net>
+	* create
+=end
+
+require 'net/http'
+require 'kconv'
+require 'pstore'
+
+def tlink_initialize 
+  dir = @cache_path + "/tlink"
+  @tlink_path = dir + "/tlink.dat"
+
+  Dir.mkdir(dir, 0700) unless FileTest.exist?(dir)
+  db = PStore.new(@tlink_path).transaction do |db|
+    if (db.root?('tlinkdata')) then
+      @tlink_dic = db["tlinkdata"]
+    else
+      @tlink_dic = Hash.new
+    end
+  end
+end
+
+def tlink_finalize
+  db = PStore.new(@tlink_path)
+  db.transaction do
+    begin
+      db["tlinkdata"] = @tlink_dic
+    rescue PStore::Error
+    end
+  end
+end
+
+def tlink_getcomment( url )
+  result = ""
+  ref = base_url
+  agent = { "User-Agent" => "DoCoMo (compatible; tDiary plugin; tlink; #{ref})" }
+  host, path, frag = url.scan( %r[http://(.*?)/(.*)#((?:p|c)\d\d)] )[0]
+  if /p0/ =~ frag
+    frag = "(?:" + frag + "|" + frag.sub( /p/, "p#" ).sub( /#0/, "#" ) + ")"
+  end
+  port = 80
+  if /(.*):(\d+)/ =~ host
+    host = $1
+    port = $2
+  end
+  hata = 0
+  http = Net::HTTP.new( host, port )
+  begin
+    http.open_timeout = 3
+    response , = http.get( "/#{path}", agent )
+    response.body.each { |line|
+      if %r[<A NAME="#{frag}] =~ line
+        if %r[<(?:P|H3)><A NAME="#{frag}">(?:.*?)</A> (.*?)</(?:P|H3)>] =~ line.toutf8
+          result = $1
+          break
+        else
+          hata = 1
+        end
+      elsif hata == 1 && %r[^\t*(.*?)<BR>] =~ line.toutf8
+        result = $1
+        hata = 0
+        break
+      end
+    }
+  rescue
+    result = ""
+  end
+
+  result = CGI::escapeHTML( result.gsub( %r[</?[aA](.*?)>], "" ) ).gsub( /&amp;nbsp;/, " " )
+end
+
+tlink_initialize
+
+def tlink( url, str, title = nil )
+  unless title
+    if @tlink_dic[url] && %r[#(p|c)\d\d$] =~ url && @tlink_dic[url] != ''
+      title = @tlink_dic[url]
+    elsif @tlink_dic[url] && %r[#(p|c)\d\d$] !~ url
+      title = @tlink_dic[url]
+    else
+      if /#{url}/ =~ ENV["REDIRECT_URL"] && /#{url}/ =~ @date.strftime('%Y%m%d')
+      else
+        title = tlink_getcomment( url )
+        @tlink_dic[url] = title
+        tlink_finalize
+      end
+    end
+  end
+
+  %Q[<a href="#{h url}" title="#{h title}">#{str}</a>]
+end
+
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:

data/misc/plugin/todo.rb

@@ -0,0 +1,182 @@
+# -*- coding: utf-8 -*-
+# todo.rb
+#
+# todo: show ToDo lists.
+#
+# CSS samples for ToDo:
+#
+#  div.todo {
+#  	font-size: 80%;
+#  }
+#
+#  div.todo-title {
+#  	font-weight: bold;
+#  }
+#
+#  div.todo-body {
+#  }
+#
+#  span.todo-priority {
+#  	font-weight: bold;
+#  }
+#
+#  span.todo-in-time {
+#  }
+#
+#  span.todo-today {
+#  	color: blue;
+#  }
+#
+#  span.todo-too-late {
+#  	color: red;
+#  	font-weight: bold;
+#  }
+#
+# Copyright (c) 2001,2002,2003 Junichiro KITA <kita@kitaj.no-ip.com>
+# Distributed under the GPL
+# 
+
+require 'fileutils'
+require 'time'
+class ToDo
+	attr_reader :prio, :todo, :limit
+	def initialize(prio, todo, limit, deleted = nil)
+		@prio, @todo, @limit, @deleted = prio, todo, limit, deleted
+	end
+
+	def deleted?
+		@deleted != ""
+	end
+
+	def <=>(other)
+		other.prio.to_i <=> @prio.to_i
+	end
+
+	def to_s
+		r = "#{@deleted}#{@prio}"
+		r << "[#{@limit}]" if @limit
+		r << " #{@todo}"
+		r.sub!(/^\s+/, '')
+		r
+	end
+end
+
+def todo_parse(src)
+	todos = []
+	src.each do |l|
+		deleted, prio, limit, todo = l.scan(/^(#?)(\d{0,2})(?:\[(.*)\])? *(.+)$/)[0]
+		if (0..99).include? prio.to_i and todo
+			todos.push ToDo.new(prio, todo, limit, deleted)
+		end
+	end
+	if todos.size > 0
+		todos.sort!
+	end
+	todos
+end
+
+def todo_pretty_print(todos)
+	s = ''
+	s << %Q|<ul>\n|
+	now = Time.now
+	today = Time.local(now.year, now.month, now.day)
+	todos.each_with_index do |x, idx|
+		break if idx >= @conf['todo.n']
+		s << "<li>"
+		s << %Q|<del>| if x.deleted?
+		s << %Q|<span class="todo-priority">#{if x.prio != '' then '%02d' % x.prio else '' end}</span> #{apply_plugin x.todo}|
+		if x.limit
+			s << "(~#{x.limit}"
+			ymd = Time.parse(x.limit)
+			y = ymd.year
+			m = ymd.month
+			d = ymd.day
+			y = today.year unless y
+			if y and m and d
+				limit = Time.local(y, m, d)
+				diff = ((limit - today)/86400).to_i
+				if diff > 0
+					s << %Q| <span class="todo-in-time">#{todo_msg_in_time(diff)}</span>|
+				elsif diff == 0
+					s << %Q| <span class="todo-today">#{todo_msg_today}</span>|
+				else
+					s << %Q| <span class="todo-too-late">#{todo_msg_late(diff.abs)}</span>|
+				end
+			end
+			s << ")"
+		end
+		s << %Q|</del>| if x.deleted?
+		s << "</li>\n"
+	end
+	s << %Q|</ul>\n|
+end
+
+@todos = []  # parsed todos. generated from @conf['todo.todos'].
+
+def todo_init
+	@conf['todo.n'] ||= 10
+	@conf['todo.title'] ||= 'ToDo:'
+	unless @conf['todo.todos']
+		begin
+			@conf['todo.todos'] = File.readlines(todo_file).join if FileTest::exist?(todo_file)
+		rescue
+		end
+	end
+	@conf['todo.todos'] ||= ''
+	@todos = todo_parse(@conf['todo.todos'].split(/\n/))
+end
+
+def todo
+	todo_init
+	<<TODO
+<div class="todo">
+	<div class="todo-title">
+		<p>#{@conf['todo.title']}</p>
+	</div>
+	<div class="todo-body">
+#{todo_pretty_print(@todos)}
+	</div>
+</div>
+TODO
+end
+
+def navi_t(name = todo_config_label)
+	%Q|<span class="adminmenu"><a href="#{h @update}?conf=ToDo">#{name}</a></span>\n|
+end
+
+# backward compatibility
+def todo_file
+	if File.exists?( "#{@cache_path}/todo" ) then
+		FileUtils.mv( "#{@cache_path}/todo", "#{@conf.data_path}/todo")
+	end
+	(@options && @options['todo.path'] || @conf.data_path) + "/todo"
+end
+
+#
+# for conf_proc
+#
+def config_options2(op2_key)
+	op2_val = @cgi.params[op2_key][0]
+	if (0 < op2_val.size)
+		@conf[op2_key] = (block_given? ? yield(op2_val) : op2_val)
+	else
+		@conf.delete(op2_key)
+	end
+end
+private :config_options2
+
+def saveconf_todo
+	if @mode == 'saveconf' then
+		config_options2('todo.todos')
+		config_options2('todo.title')
+		config_options2('todo.n'){|op2_val| op2_val.to_i}
+	end
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3