FreeStyleWiki

ページのタイトルを最初の見出しと同じにするパッチ

標準では、FSWiki の生成する HTML の title 要素には、ページ名(wiki名)がそのまま使用される。

それではブックマークした場合、検索エンジンにひっかかった場合に表示されるページの名称がいまいちである。

そこで、ページ中の最初の大見だし (!!! で始まる行) の内容を、title 要素に使うようにするパッチを作成した。

diff -uNr wiki3_6_2.orig/lib/Wiki/HTMLParser.pm wiki3_6_2/lib/Wiki/HTMLParser.pm
--- wiki3_6_2.orig/lib/Wiki/HTMLParser.pm	2006-07-02 18:10:04.000000000 +0900
+++ wiki3_6_2/lib/Wiki/HTMLParser.pm	2006-07-21 20:55:36.795765646 +0900
@@ -22,6 +22,7 @@
 	my $self = Wiki::Parser->new($wiki);
 	
 	$self->{html}  = "";
+	$self->{title} = "";
 	$self->{pre}   = "";
 	$self->{quote} = "";
 	$self->{table} = 0;
@@ -141,6 +142,10 @@
 	$self->end_quote;
 	
 	my $html  = join("",@$obj);
+
+	if ($level == 1 && $self->{title} eq "") {
+		$self->{title} = $html;
+	}
 	
 	# メインの表示領域でないとき
 	if(!$self->{main}){
diff -uNr wiki3_6_2.orig/lib/Wiki.pm wiki3_6_2/lib/Wiki.pm
--- wiki3_6_2.orig/lib/Wiki.pm	2006-07-02 18:10:05.000000000 +0900
+++ wiki3_6_2/lib/Wiki.pm	2006-07-21 22:15:40.334272438 +0900
@@ -583,6 +583,10 @@
 	my $parser = Wiki::HTMLParser->new($self,$mainflg);
 	$parser->parse($source);
 	$self->{parse_times}--;
+
+	if ($mainflg && defined($parser->{title}) && $parser->{title} ne "") {
+		$self->set_title($parser->{title});
+	}
 	
 	return $parser->{html};
 }