tdiary 3.2.2.20130507

data/misc/plugin/calendar3.rb

@@ -0,0 +1,256 @@
+# -*- coding: utf-8 -*-
+# calendar3.rb
+#
+# calendar3: 現在表示している月のカレンダーを表示します．
+#  パラメタ: なし
+#
+# tdiary.confで指定するオプション:
+#   @options['calendar3.show_todo']
+#     パラグラフのサブサイトルとここで指定した文字列が一致し
+#     かつその日の日記が非表示の場合，そのパラグラフの内容を
+#     予定としてpopupする．
+#
+#   @options['calendar3.show_popup']
+#     JavaScriptによるpopupを表示するかどうか．
+#     省略時の値はtrueなので，表示したくない場合のみfalseを設定する．
+#
+# Copyright (c) 2001,2002 Junichiro KITA <kita@kitaj.no-ip.com>
+# Distributed under the GPL
+#
+#
+# sample CSS for calendar3
+#
+# .calendar-popup {
+#         display: none;
+#         text-align: left;
+#         position: absolute;
+#         border-style: solid;
+#         border-width: 1px;
+#         padding: 0 1ex 0 1ex;
+# }
+#
+# .calendar-sunday {
+#         color: red;
+# }
+#
+# .calendar-saturday {
+#         color: blue;
+# }
+#
+# .calendar-weekday {
+#         color: black;
+# }
+#
+# .calendar-normal {
+# }
+#
+# .calendar-day {
+#         font-weight: bold;
+# }
+#
+# .calendar-todo {
+#         border-style: solid;
+#         border-color: red;
+#         border-width: 1px;
+# }
+#
+=begin ChengeLog
+2003-09-25 TADA Tadashi <sho@spc.gr.jp>
+	* use @conf.shorten.
+
+2003-03-25 Junichiro Kita <kita@kitaj.no-ip.com>
+	* add css to navigation links to next, current, prev month.
+
+2003-02-27 Junichiro Kita <kita@kitaj.no-ip.com>
+	* @options['calendar.show_popup']
+
+2003-01-07 Junichiro Kita <kita@kitaj.no-ip.com>
+   * append sample css
+
+2003-01-07 MURAI Kensou <murai@dosule.com>
+	* modify javascript for popdown-delay
+
+2002-12-20 TADA Tadashi <sho@spc.gr.jp>
+	* use Plugin#apply_plugin.
+=end
+
+module Calendar3
+	WEEKDAY = 0
+	SATURDAY = 1
+	SUNDAY = 2
+
+	STYLE = {
+		WEEKDAY => "calendar-weekday",
+		SATURDAY => "calendar-saturday",
+		SUNDAY => "calendar-sunday",
+	}
+
+	def make_cal(year, month)
+		result = []
+		1.upto(31) do |i|
+			t = Time.local(year, month, i)
+			break if t.month != month
+			case t.wday
+			when 0
+				result << [i, SUNDAY]
+			when 1..5
+				result << [i, WEEKDAY]
+			when 6
+				result << [i, SATURDAY]
+			end
+		end
+		result
+	end
+
+	def prev_month(year, month)
+		if month == 1
+			year -= 1
+			month = 12
+		else
+			month -= 1
+		end
+		[year, month]
+	end
+
+	def next_month(year, month)
+		if month == 12
+			year += 1
+			month = 1
+		else
+			month += 1
+		end
+		[year, month]
+	end
+
+	module_function :make_cal, :next_month, :prev_month
+end
+
+def calendar3
+	return '' if bot?
+	show_todo = @options['calendar3.show_todo']
+	show_todo = Regexp.new(show_todo) if show_todo
+	result = ''
+	if @options.has_key? 'calendar3.erb'
+		result << %Q|<p class="message">@options['calendar3.erb'] is obsolete!<p>|
+	end
+
+	if /^(latest|search)$/ =~ @mode
+		date = Time.now
+	else
+		date = @date
+	end
+	year = date.year
+	month = date.month
+	day = date.day
+
+	result << %Q|<span class="calendar-prev-month"><a href="#{h @index}#{anchor "%04d%02d" % Calendar3.prev_month(year, month)}">&lt;&lt;</a></span>\n|
+	result << %Q|<span class="calendar-current-month"><a href="#{h @index}#{anchor "%04d%02d" % [year, month]}">#{"%04d/%02d" % [year, month]}</a>/</span>\n|
+	#Calendar3.make_cal(year, month)[(day - num >= 0 ? day - num : 0)..(day - 1)].each do |day, kind|
+	Calendar3.make_cal(year, month).each do |day, kind|
+		date = "%04d%02d%02d" % [year, month, day]
+		if @diaries[date].nil?
+			result << %Q|<span class="calendar-normal"><a class="#{Calendar3::STYLE[kind]}">#{day}</a></span>\n|
+ 		elsif !@diaries[date].visible?
+			todos = []
+			if show_todo
+				@diaries[date].each_section do |section|
+					if show_todo === section.subtitle
+						todos << h( section.body_to_html ).gsub( /\n/, "&#13;&#10;" )
+					end
+				end
+			end
+			if todos.size != 0
+				result << %Q|<span class="calendar-todo"><a class="#{Calendar3::STYLE[kind]}" title="#{day}日の予定:&#13;&#10;#{todos.join "&#13;&#10;"}">#{day}</a></span>\n|
+			else
+				result << %Q|<span class="calendar-normal"><a class="#{Calendar3::STYLE[kind]}">#{day}</a></span>\n|
+			end
+		else
+			if @calendar3_show_popup
+				result << %Q|<span class="calendar-day" id="target-#{day}" onmouseover="popup(document.getElementById('target-#{day}'),document.getElementById('popup-#{day}'), document.getElementById('title-#{day}'));" onmouseout="popdown(document.getElementById('popup-#{day}'));">\n|
+			else
+				result << %Q|<span class="calendar-day" id="target-#{day}">\n|
+			end
+			result << %Q|  <a class="#{Calendar3::STYLE[kind]}" id="title-#{day}" title="|
+			i = 1
+			r = []
+			if !@plugin_files.grep(/\/category.rb$/).empty? and @diaries[date].categorizable?
+				@diaries[date].each_section do |section|
+					if section.stripped_subtitle
+						text = apply_plugin( section.stripped_subtitle_to_html, true )
+						r << %Q|#{i}. #{h text}|
+					end
+					i += 1
+				end
+			else
+				@diaries[date].each_section do |section|
+					if section.subtitle
+						text = apply_plugin( section.subtitle_to_html, true )
+						r << %Q|#{i}. #{h text}|
+					end
+					i += 1
+				end
+			end
+			result << r.join("&#13;&#10;")
+			result << %Q|" href="#{h @index}#{anchor date}">#{day}</a>\n|
+			if @calendar3_show_popup
+				result << %Q|  <span class="calendar-popup" id="popup-#{day}">\n|
+				i = 1
+				if !@plugin_files.grep(/\/category.rb$/).empty? and @diaries[date].categorizable?
+					@diaries[date].each_section do |section|
+						if section.stripped_subtitle
+							text = apply_plugin( section.body_to_html, true )
+							subtitle = apply_plugin( section.stripped_subtitle_to_html )
+							result << %Q|    <a href="#{h @index}#{anchor "%s#p%02d" % [date, i]}" title="#{h @conf.shorten( text )}">#{i}</a>. #{subtitle}<br>\n|
+						end
+						i += 1
+					end
+				else
+					@diaries[date].each_section do |section|
+						if section.subtitle
+							text = apply_plugin( section.body_to_html, true )
+							subtitle = apply_plugin( section.subtitle_to_html )
+							result << %Q|    <a href="#{h @index}#{anchor "%s#p%02d" % [date, i]}" title="#{h @conf.shorten( text )}">#{i}</a>. #{subtitle}<br>\n|
+						end
+						i += 1
+					end
+				end
+				result << %Q|  </span>\n|
+			end
+			result << %Q|</span>\n|
+		end
+	end
+	result << %Q|<span class="calendar-next-month"><a href="#{h @index}#{anchor "%04d%02d" % Calendar3.next_month(year, month)}">&gt;&gt;</a></span>\n|
+	result
+end
+
+@calendar3_show_popup = true
+if @options.has_key?('calendar3.show_popup')
+	@calendar3_show_popup = @options['calendar3.show_popup']
+end
+if /w3m|MSIE.*Mac/ === @cgi.user_agent
+	@calendar3_show_popup = false
+	add_header_proc do
+    <<JAVASCRIPT
+  <script type="text/javascript">
+  <!--
+  function popup(target,element,notitle) {
+  }
+
+  function popdown(element) {
+  }
+  // -->
+</script>
+JAVASCRIPT
+	end
+end
+if @calendar3_show_popup
+	enable_js('calendar3.js')
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: set ts=3:

data/misc/plugin/category.rb

@@ -0,0 +1,779 @@
+# category.rb
+#
+# Copyright (c) 2003 Junichiro KITA <kita@kitaj.no-ip.com>
+# Distributed under the GPL
+#
+require 'pstore'
+
+#
+# initialize
+#
+def category_init
+	@conf['category.header1'] ||= %Q[<div class="adminmenu">\n<p>\n<%= category_navi %>\n</p>\n</div>\n]
+	@conf['category.header2'] ||= %Q[<p>Categories |\n<%= category_list %>\n</p>\n]
+	@conf['category.edit_support'] = @conf['category.edit_support'].to_i rescue 1
+end
+category_init
+
+def category_icon_location_init
+	@category_icon_dir = (@conf['category.icon_dir'] || './icons/').sub(%r|/*$|, '/')
+	@category_icon_url = (@conf['category.icon_url'] || './icons/').sub(%r|/*$|, '/')
+end
+
+def category_icon_init
+	category_icon_location_init
+	@conf['category.icon'] ||= ''
+
+	@category_icon = {}
+	@conf['category.icon'].split(/\n/).each do |l|
+		c, i = l.split
+		next if c.nil? or i.nil?
+		@category_icon[c] = i if File.exists?("#{@category_icon_dir}#{i}".untaint)
+	end
+end
+category_icon_init
+
+#
+# plugin methods
+#
+def category_form
+	# don't you need this method any more?
+end
+
+def category_anchor(category)
+	period = @conf['category.period'] || 'quarter'
+	period_string = 
+		case period
+		when "month"
+			"year=#{@date.year};month=#{'%02d' % @date.month};"
+		when "quarter"
+			"year=#{@date.year};month=#{(@date.month - 1) / 3 + 1}Q;"
+		when "half"
+			"year=#{@date.year};month=#{(@date.month - 1) / 6 + 1}H;"
+		when "year"
+			"year=#{@date.year};"
+		else
+			""
+		end
+	if @category_icon[category] and !@cgi.mobile_agent?
+		%Q|<a href="#{h @index}?#{period_string}category=#{u category}" title="#{h category}"><img class="category" src="#{h @category_icon_url}#{h @category_icon[category]}" alt="#{h category}"></a>|
+	else
+		%Q|[<a href="#{h @index}?#{period_string}category=#{u category}" title="#{h category}">#{h category}</a>]|
+	end
+end
+
+def category_navi_anchor(info, label, mobile = false)
+	if mobile then
+		"|#{info.make_anchor(label)}"
+	else
+		((!label.nil?) && label.empty?) ? '' : %Q[<span class="adminmenu">#{info.make_anchor(label)}</span>\n]
+	end
+end
+
+def category_navi
+	mobile = @cgi.mobile_agent?
+	info = Category::Info.new(@cgi, @years, @conf)
+	mode = info.mode
+
+	result = ''
+	case mode
+	when :year, :half, :quarter, :month
+		all_diary = Category::Info.new(@cgi, @years, @conf, :year => -1, :month => -1)
+		all = Category::Info.new(@cgi, @years, @conf, :category => ['ALL'], :year => -1, :month => -1)
+		result << category_navi_anchor(info.prev, @conf['category.prev_' + mode.to_s], mobile)
+		result << category_navi_anchor(info.next, @conf['category.next_' + mode.to_s], mobile)
+		unless mobile then
+			result << category_navi_anchor(all_diary, @conf['category.all_diary'])
+			result << category_navi_anchor(all, @conf['category.all'])
+		end
+	when :all
+		year = Category::Info.new(@cgi, @years, @conf, :year => Time.now.year.to_s)
+		half = Category::Info.new(@cgi, @years, @conf, :year => Time.now.year.to_s, :month => "#{((Time.now.month - 1) / 6 + 1)}H")
+		quarter = Category::Info.new(@cgi, @years, @conf, :year => Time.now.year.to_s, :month => "#{((Time.now.month - 1) / 3 + 1)}Q")
+		month = Category::Info.new(@cgi, @years, @conf, :year => Time.now.year.to_s, :month => '%02d' % Time.now.month)
+		result << category_navi_anchor(year, @conf['category.this_year'], mobile)
+		result << category_navi_anchor(half, @conf['category.this_half'], mobile)
+		result << category_navi_anchor(quarter, @conf['category.this_quarter'], mobile)
+		result << category_navi_anchor(month, @conf['category.this_month'], mobile)
+	end
+	if !info.category.include?('ALL') and !mobile then
+		all_category = Category::Info.new(@cgi, @years, @conf, :category => ['ALL'])
+		result << category_navi_anchor(all_category, @conf['category.all_category'])
+	end
+	result
+end
+
+def category_list_sections
+	info = Category::Info.new(@cgi, @years, @conf)
+	category = info.category
+	years = info.years
+	r = ''
+
+	raise ::TDiary::NotFound if @categorized.empty? and bot?
+
+	@categorized.to_a.sort_by{|e| e[0].downcase}.each do |c, v|
+		info.category = [c]
+		if @category_icon[c]
+			img = %Q|<img class="category" src="#{h @category_icon_url}#{h @category_icon[c]}" alt="#{h c}">|
+		else
+			img = ''
+		end
+		r << <<HTML
+<div class="category day">
+	<h2><span class="title">#{img}#{info.make_anchor}</span></h2>
+	<div class="body">
+		<ul class="category">
+HTML
+		v.to_a.sort_by{|e| e[0]}.each do |ymd, ary|
+			text = Time.local(ymd[0,4], ymd[4,2], ymd[6,2]).strftime(@conf.date_format)
+			ary.sort.each do |idx, title, excerpt|
+				r << %Q|\t\t\t<li><a href="#{h @index}#{anchor "#{ymd}#p#{'%02d' % idx}"}" title="#{h excerpt}">#{text}#p#{'%02d' % idx}</a> #{apply_plugin(title)}</li>\n|
+			end
+		end
+		r << <<HTML
+		</ul>
+	</div>
+</div>
+HTML
+	end
+	r
+end
+
+def category_list_sections_mobile
+	info = Category::Info.new(@cgi, @years, @conf)
+	category = info.category
+	years = info.years
+	r = ''
+
+	raise ::TDiary::NotFound if @categorized.empty? and bot?
+
+	@categorized.to_a.sort_by{|e| e[0].downcase}.each do |c, v|
+		info.category = [c]
+		r << "<H2>#{info.make_anchor}</H2>"
+		r << "<UL>"
+		v.to_a.sort_by{|e| e[0]}.each do |ymd, ary|
+			text = Time.local(ymd[0,4], ymd[4,2], ymd[6,2]).strftime(@conf.date_format)
+			ary.sort.each do |idx, title, excerpt|
+				r << %Q|<LI><A HREF="#{h @index}#{anchor "#{ymd}#p#{'%02d' % idx}"}">#{text}#p#{'%02d' % idx}</A> #{apply_plugin(title)}</LI>\n|
+			end
+		end
+		r << "</UL>"
+	end
+	r
+end
+
+def category_list
+	info = Category::Info.new(@cgi, @years, @conf)
+	@categories.map do |c|
+		info.category = [c]
+		info.make_anchor
+	end.join(" | \n")
+end
+
+def category_dropdown_list(label = nil, multiple = nil)
+	label ||= 'Categorize!'
+	multiple ||= false
+
+	info = Category::Info.new(@cgi, @years, @conf)
+	category = info.category
+	if category.empty?
+		return '' if @cgi.mobile_agent?
+		category = ['ALL'] 
+	end
+
+	options = ''
+	(['ALL'] + @categories.sort_by{|e| e.downcase}).each do |c|
+		options << %Q|\t\t<option value="#{h c}"#{" selected" if category.include?(c)}>#{h c}</option>\n|
+	end
+
+	params = ''
+	params << %Q[<input type="hidden" name="year" value="#{h info.year}">] if info.year
+	params << %Q[<input type="hidden" name="month" value="#{h info.month}">] if info.month
+
+	<<HTML
+<form method="get" action="#{h @index}"><div>
+	<select name="category"#{" multiple" if multiple}>
+#{options}
+	</select>
+	#{params}
+	<input type="submit" value="#{label}">
+</div></form>
+HTML
+end
+
+
+#
+# misc
+#
+
+def category_icon_save
+	@conf['category.icon'] = @category_icon.map {|c, i| "#{c} #{i}"}.join("\n")
+end
+
+
+module Category
+
+#
+# CGI (mock-up CGI class for Cache::recreate)
+#
+class CGI
+	attr_reader :params
+	def initialize
+		@params = Hash.new([])
+	end
+	def referer; nil; end
+	def user_agent; nil; end
+	def request_method; 'GET'; end
+end
+
+#
+# Info
+#
+class Info
+	include ERB::Util
+
+	def initialize(cgi, years, conf, args = {})
+		@cgi = cgi
+		@years = years
+		@conf = conf
+		@category = args[:category] || @cgi.params['category'].map do |c|
+			@conf.to_native(c, @conf.encoding_old)
+		end
+		@year = args[:year] || @cgi.params['year'][0]
+		@month = args[:month] || @cgi.params['month'][0]
+		@mode = :all
+		set_mode
+	end
+
+protected
+	attr_writer :year
+	attr_writer :month
+public
+	attr :category, true
+	attr_reader :year
+	attr_reader :month
+	attr_reader :mode
+
+	def prev
+		pp = self.dup
+
+		case mode
+		when :half
+			h = @month.to_i
+			if h == 1
+				pp.month = "2H"
+				pp.year = (@year.to_i - 1).to_s if @year
+			else
+				pp.month = "1H"
+			end
+		when :quarter
+			q = @month.to_i
+			if q == 1
+				pp.month = "4Q"
+				pp.year = (@year.to_i - 1).to_s if @year
+			else
+				pp.month = "#{q - 1}Q"
+			end
+		when :month
+			m = @month.to_i
+			if m == 1
+				pp.month = "12"
+				pp.year = (@year.to_i - 1).to_s if @year
+			else
+				pp.month = '%02d' % (m - 1)
+			end
+		when :year
+			pp.year = (@year.to_i - 1).to_s
+		end
+		pp
+	end
+
+	def next
+		pp = self.dup
+
+		case mode
+		when :half
+			h = @month.to_i
+			if h == 2
+				pp.month = "1H"
+				pp.year = (@year.to_i + 1).to_s if @year
+			else
+				pp.month = "2H"
+			end
+		when :quarter
+			q = @month.to_i
+			if q == 4
+				pp.month = "1Q"
+				pp.year = (@year.to_i + 1).to_s if @year
+			else
+				pp.month = "#{q + 1}Q"
+			end
+		when :month
+			m = @month.to_i
+			if m == 12
+				pp.month = "01"
+				pp.year = (@year.to_i + 1).to_s if @year
+			else
+				pp.month = '%02d' % (m + 1)
+			end
+		when :year
+			pp.year = (@year.to_i + 1).to_s
+		end
+		pp
+	end
+
+	def make_anchor(label = nil)
+		a = @category.map {|c| "category=#{u c}"}.join(';')
+		a << ";year=#{@year}" if @year
+		a << ";month=#{@month}" if @month
+		if label
+			case mode
+			when :year
+				label = label.gsub(/\$1/, @year)
+			when :month, :quarter, :half
+				label = label.gsub(/\$2/, @month)
+				label = label.gsub(/\$1/, @year || '*')
+			end
+		else
+			label = @category.to_a.join(':')
+		end
+		%Q|<a href="#{h @conf.index}?#{h a}">#{h label}</a>|
+	end
+
+	#
+	# return ym_spec
+	#
+	# {"yyyy" => ["mm", ...], ...}
+	#
+	# date spec:
+	#  (1) none               -> all diary
+	#  (2) month=xH           -> all diary in xH of all year
+	#  (3) year=YYYY;month=xH -> all diary in YYYY/xH
+	#  (4) month=xQ           -> all diary in xQ of all year
+	#  (5) year=YYYY;month=xQ -> all diary in YYYY/xQ
+	#  (6) month=MM           -> all diary in MM of all year
+	#  (7) year=YYYY;month=MM -> all diary in YYYY/MM
+	#  (8) year=YYYY          -> all diary in YYYY
+	#
+	def years
+		if @mode == :all
+			return @years
+		end
+
+		months = case @mode
+		when :half
+			[('01'..'06'), ('07'..'12')][@month.to_i - 1].to_a
+		when :quarter
+			[['01', '02', '03'], ['04', '05', '06'], ['07', '08', '09'], ['10', '11', '12']][@month.to_i - 1]
+		when :month
+			[@month]
+		else
+			('01'..'12').to_a
+		end
+
+		r = {}
+		(@year ? [@year] : @years.keys).each do |y|
+			r[y] = months
+		end
+		r
+	end
+
+	#
+	# date spec:
+	#  (1) none                -> all
+	#  (2) month=xH            -> half
+	#  (3) year=YYYY;month=xH  -> half
+	#  (4) month=xQ            -> quarter
+	#  (5) year=YYYY;month=xQ  -> quarter
+	#  (6) month=MM            -> month
+	#  (7) year=YYYY;month=MM  -> month
+	#  (8) year=YYYY           -> year
+	#
+	def set_mode
+		if @year.nil? and @month.nil?
+			@mode = :all
+		end
+
+		if /\d{4}/ === @year.to_s
+			@mode = :year
+		else
+			@year = nil
+		end
+
+		if /[12]H/ === @month.to_s
+			@mode = :half
+		elsif /[1-4]Q/ === @month.to_s
+			@mode = :quarter
+		elsif (1..12).include?(@month.to_i)
+			@mode = :month
+		else
+			@month = nil
+		end
+
+	end
+end
+
+#
+# Cache
+#
+class Cache
+	include ERB::Util
+
+	def initialize(conf, bind)
+		@conf = conf
+		@binding = bind                           # ...... very ugly
+		@dir = "#{conf.data_path}/category"
+		Dir.mkdir(@dir) unless File.exist?(@dir)
+	end
+
+	def add_categories(list)
+		return if list.nil? or list.empty?
+		replace_categories(restore_categories + list)
+	end
+
+	def replace_categories(list)
+		PStore.new(cache_file).transaction do |db|
+			db['category'] = list.sort.uniq
+		end
+	end
+
+	#
+	# restore category names
+	# ["category1", "category2", ...]
+	#
+	def restore_categories
+		list = nil
+		PStore.new(cache_file).transaction do |db|
+			list = db['category'] if db.root?('category')
+			db.abort
+		end
+		list || []
+	end
+
+	#
+	# cache each section of diary
+	# used in update_proc
+	#
+	def replace_sections(diary)
+		return if diary.nil? or !diary.categorizable?
+
+		categorized = categorize_diary(diary)
+		categories = restore_categories
+		deleted = []
+		ymd = diary.date.strftime('%Y%m%d')
+
+		categories.each do |c|
+			PStore.new(cache_file(c)).transaction do |db|
+				db['category'] = {} unless db.root?('category')
+				if diary.visible? and categorized[c]
+					db['category'].update(categorized[c])
+				else
+					# diary is invisible or sections of this category is deleted
+					db['category'].delete(ymd)
+					deleted << c if db['category'].empty?
+				end
+			end
+		end
+
+		if !deleted.empty?
+			deleted.each do |c|
+				File.unlink(cache_file(c))
+			end
+			replace_categories(categories - deleted)
+		end
+	end
+
+	#
+	# (re)create category cache
+	#
+	def recreate(years)
+		cgi = Category::CGI::new
+
+		list = []
+		years.each do |y, ms|
+			ms.each do |m|
+				ym = "#{y}#{m}"
+				cgi.params['date'] = [ym]
+				m = TDiaryMonth.new(cgi, '', @conf)
+				sections = {}
+				m.diaries.each do |ymd, diary|
+					next if !diary.visible?
+					initial_replace_sections(diary)
+					diary.each_section do |s|
+						list |= s.categories unless s.categories.empty?
+					end
+				end
+			end
+		end
+
+		replace_categories(list)
+	end
+
+	#
+	# categorize sections of category of years
+	#
+	# {"category" => {"yyyymmdd" => [[idx, title, excerpt], ...], ...}, ...}
+	#
+	def categorize(category, years)
+		categories = category - ['ALL']
+		if categories.empty?
+			categories = restore_categories
+		else
+			categories &= restore_categories
+		end
+
+		categorized = {}
+		begin
+			categorized.clear
+			categories.each do |c|
+				PStore.new(cache_file(c)).transaction do |db|
+					categorized[c] = db['category']
+					db.abort
+				end
+				categorized[c].keys.each do |ymd|
+					y, m = ymd[0,4], ymd[4,2]
+					if years[y].nil? or !years[y].include?(m)
+						categorized[c].delete(ymd)
+					end
+				end
+				categorized.delete(c) if categorized[c].empty?
+			end
+		rescue NoMethodError	# when categorized[c] is nil
+			recreate(years)
+			retry
+		end
+
+		categorized
+	end
+
+private
+	def cache_file(category = nil)
+		if category
+			"#{@dir}/#{u( category ).gsub(/%20/,'+')}".untaint
+		else
+			"#{@dir}/category_list"
+		end
+	end
+
+	#
+	# categorize sections of diary
+	#
+	# {"category" => {"yyyymmdd" => [[idx, title, excerpt], ...]}}
+	#
+	def categorize_diary(diary)
+		categorized = {}
+		ymd = diary.date.strftime('%Y%m%d')
+
+		idx = 1
+		diary.each_section do |s|
+			s.categories.each do |c|
+				categorized[c] = {} if categorized[c].nil?
+				categorized[c][ymd] = [] if categorized[c][ymd].nil?
+				body = <<EVAL
+text = apply_plugin(<<'BODY', true)
+#{s.body_to_html}
+BODY
+EVAL
+				shorten = begin
+					@conf.shorten(eval(body.untaint, @binding))
+				rescue NameError
+					""
+				end
+				categorized[c][ymd] << [idx, s.stripped_subtitle_to_html, shorten]
+			end
+			idx +=1
+		end
+
+		categorized
+	end
+
+	#
+	# cache each section of diary
+	# used in recreate
+	#
+	def initial_replace_sections(diary)
+		return if diary.nil? or !diary.visible? or !diary.categorizable?
+
+		categorized = categorize_diary(diary)
+		categorized.keys.each do |c|
+			PStore.new(cache_file(c)).transaction do |db|
+				db['category'] = {} unless db.root?('category')
+				db['category'].update(categorized[c])
+			end
+		end
+	end
+end
+
+end # module Category
+
+# read cache here so that you can use category with secure mode.
+@category_cache = Category::Cache.new(@conf, binding)
+
+#
+# display categories on update form
+#
+def category_edit_support_flatlist
+	ret = ''
+	ret << '<div class="field title">'
+	ret << "#{@category_conf_label}:\n"
+	@categories.sort_by{|e| e.downcase}.each do |c|
+		ret << %Q!| <span class="category-item">#{h c}</span>\n!
+	end
+	ret << "|\n</div>\n<br>\n"
+	ret
+end
+
+def category_edit_support_dropdown
+	ret = ''
+	ret << '<div class="field title">'
+	ret << %Q|#{@category_conf_label}: <select id="category-candidate" name="category-candidate">\n|
+	@categories.sort_by{|e| e.downcase}.each do |c|
+		ret << %Q!<option>#{h c}</option>\n!
+	end
+	ret << "|\n</select>\n</div>\n<br>\n"
+	ret
+end
+
+if @conf['category.edit_support'] != 0 then
+	enable_js( 'category.js' )
+	add_edit_proc do |date|
+		ret = ''
+		unless @categories.size == 0 then
+			ret << if @conf['category.edit_support'] == 2 then
+				category_edit_support_dropdown
+			else
+				category_edit_support_flatlist
+			end
+		end
+	end
+end
+
+
+#
+# when update diary, update cache
+#
+add_update_proc do
+	if /^(append|replace)$/ =~ @mode
+		cache = @category_cache
+		list = []
+		diary = @diaries[@date.strftime('%Y%m%d')]
+		diary.each_section do |s|
+			list |= s.categories
+		end
+		cache.add_categories(list)
+		cache.replace_sections(diary)
+	end
+end
+
+
+#
+# configuration
+#
+def category_icon_find_icons
+   return if @category_all_icon
+	@category_all_icon = []
+	%w(png jpg gif bmp).each do |e|
+		@category_all_icon += Dir.glob("#{@category_icon_dir}*.#{e}".untaint).map {|i| File.basename(i)}
+	end
+	@category_all_icon.sort!
+end
+
+def category_icon_select(category)
+	options = %Q|<\t<option value="none">#{@category_icon_none_label}</option>\n|
+	@category_all_icon.each do |i|
+		options << %Q|\t<option value="#{h i}"#{" selected" if @category_icon[category] == i}>#{h i}</option>\n|
+	end
+	<<HTML
+<select name="category.icon.#{h category}">
+#{options}
+</select>
+HTML
+end
+
+def category_icon_sample
+	@category_all_icon.map do |i|
+		%Q|<img src="#{h @category_icon_url}#{h i}" alt="#{h i}" title="#{h i}">\n|
+	end.join("/\n")
+end
+
+if @mode == 'conf' || @mode == 'saveconf'
+	add_conf_proc( 'category', @category_conf_label, 'basic' ) do
+		cache = @category_cache
+		if @mode == 'saveconf'
+			if @cgi.valid?( 'category_initialize' )
+				@category_cache.recreate(@years)
+			end
+
+			[
+				'category.header1',
+				'category.header2',
+			].each do |name|
+				@conf[name] = @conf.to_native( @cgi.params[name][0] )
+			end
+			[
+				'category.prev_year',
+				'category.next_year',
+				'category.prev_half',
+				'category.next_half',
+				'category.prev_quarter',
+				'category.next_quarter',
+				'category.prev_month',
+				'category.next_month',
+				'category.this_year',
+				'category.this_half',
+				'category.this_quarter',
+				'category.this_month',
+				'category.all_diary',
+				'category.all_category',
+				'category.all',
+			].each do |name|
+				@conf[name] = @conf.to_native( @cgi.params[name][0] )
+			end
+			if ["month", "quarter", "half", "year", "all"].index(@cgi.params["category.period"][0])
+				@conf["category.period"] = @cgi.params["category.period"][0]
+			end
+			@conf['category.edit_support'] = (@cgi.params['category.edit_support'][0] || '1').to_i
+		end
+		category_conf_html
+	end
+
+	category_icon_find_icons if @cgi.params['conf'][0] == 'category_icon'
+	add_conf_proc( 'category_icon', @category_icon_conf_label, 'basic' ) do
+		if @mode == 'saveconf'
+			unless @conf.secure
+				[
+					'category.icon_dir',
+					'category.icon_url',
+				].each do |name|
+					@conf[name] = @cgi.params[name][0].sub(%r|/*$|, '/')
+				end
+				category_icon_location_init
+			end
+			@cgi.params.keys.each do |key|
+				next unless /\Acategory\.icon\..*\z/ === key
+				category = key.sub(/\Acategory\.icon\./, '')
+				if @cgi.params[key][0] == 'none'
+					@category_icon.delete(category)
+				else
+					@category_icon[category] = @cgi.params[key][0]
+				end
+			end
+			category_icon_save
+		end
+		category_icon_conf_html
+	end
+end
+
+@categories = @category_cache.restore_categories
+if @mode == 'categoryview'
+	info = Category::Info.new(@cgi, @years, @conf)
+	@categorized = @category_cache.categorize(info.category, info.years)
+end
+
+# Local Variables:
+# mode: ruby
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# End:
+# vim: ts=3