# coding: utf-8
#
# index_list.rb
#
# 「最新」「月」表示に対応した目次を表示。
# recent_listやtitle_listと違い日付のリンク先は日別表示でなくページ内。
# その為に、diary.rhtmlをいじって日付にアンカーを付ける必要がある。
# 骨格にrecent_list.rbを使用。
#
# [2009-02   ] This plugin is obsolete. Use toc.rb instead.
# [2008-08-14] ERB::Util.h( diary.title ).
# [2008-06-07] セクションインデックスを修正。
# [2008-05-20] サブタイトルにアンカーを追加。(これで 2008-04-11の変更が有効に働く)
# [2008-04-11] サブタイトル全体を本文へのリンクに。
# [2007-12-28] skip hidden section. (hidden == section.subtitle_to_html.empty?)
# [2007-12-12] fix typo. <ul> -> </ul>
# [2005-09-25] tDiary-2.1.2.20050917で導入された title_procを使うことで、
#              diary.rhtmlをいじらなくてよくなった。
# [2005-06-15] tdiary-2.1.1 N日表示対応
# [2005-04-20] 月表示では昇順に。

def index_list(date_format = nil, show_title = true)
	if(@mode == 'latest')
		limit = @conf.latest_limit;
	elsif(@mode == 'month')
		limit = 31;
	else
		return '';
	end
	date_format ||= @date_format;
	latest_start_ymd = @date.strftime('%Y%m%d');
	result = %Q[<ul class="index-list">\n];
	b = lambda {|ymd|
		next if(@mode == 'latest' && latest_start_ymd < ymd);
		break if(limit <= 0);
		diary = @diaries[ymd];
		next unless(diary.visible?);

		result << %Q[\t<li><a class="date" href="##{ymd}">#{diary.date.strftime(date_format)}</a>];
		if(show_title && diary.title)
			result << %Q[ <span class="title">#{h diary.title}</span>];
		end
		has_section = (true == diary.each_section{ break true } or false);
		result << %Q[\n\t\t<ul class="index-list-item">\n] if has_section;
		i = 0;
		if(!@plugin_files.grep(/\/category.rb$/).empty? && diary.categorizable?)
			diary.each_section{|section| i += 1;
				next if section.subtitle_to_html.to_s.empty?;
				result << %[\t\t<li><a href="#{h('#%sp%02d'%[ymd,i])}">];
				result << remove_tag( section.categories.collect{|c| category_anchor(c)}.join('') );
				result << ' '+ apply_plugin( section.stripped_subtitle_to_html, true ) if(section.stripped_subtitle);
				result << "</a></li>\n";
			}
		else
			diary.each_section{|section|
				if(section.subtitle)
					result << %Q[\t\t<li>#{section.subtitle_to_html}</li>\n];
				end
				i += 1;
			}
		end
		result << "\t\t</ul>\n" if has_section;
		result << "\t</li>\n";
		limit -= 1;
	}
	begin
		@diaries.keys.sort.send( (@mode=='latest' ? :reverse_each : :each), &b);
	rescue LocalJumpError # <- break
		# Procオブジェクトで breakは使えないのだろうけど
		# それをブロックとして渡してるんやからエラーにせんでもええやん。> ruby-1.8.2
	end
	result << "</ul>";
	return apply_plugin(result);
end

add_title_proc{|date, title|
	title.sub(/<a href="([^"]*\d{8}[^"]*)"/, %Q[<a name="#{date.strftime('%Y%m%d')}" href="\\1"]);
} if(defined?(add_title_proc) && (@mode == 'latest' || @mode == 'month'));

add_subtitle_proc { |date, index, subtitle|
	name = 'name="%sp%02d"' % [date.strftime('%Y%m%d') ,index];
	subtitle = subtitle.sub('<a ', "<a #{name} ") unless subtitle.index(name);
	subtitle;
} if %w(latest month).include?(@mode);