差分表示
- 最後の更新で追加された行はこのように表示します。
- 最後の更新で削除された行はこのように表示します。
<h1>のヘッダー文字列を変更します。
* [modify header(h1)]
ヘッダー文字列を/で分割して上層のページが存在する場合にはそのページへのリンクにします。
** 関連するカスタマイズ
- [[WalWiki/カスタマイズ/汎用サブルーチン]]
** print_header()内の変更
</div>
<h1 class="header">@{[&make_headline($page)]}</h1><!-- yakty mod [modify header(h1)] -->
EOD
}
上の方式では、YukiWiki とは異なり、ページ名のところから、1行目の紹介が消えてしまいます。
無意味ながらも、元のように表示させたい場合は、
</div>
<h1 class="header">@{[&make_headline($page)]}@{[&escape(&get_subjectline($page))]}</h1><!-- yakty mod [modify header(h1)] -->
EOD
}
とします。どちらの方法をとられても、ページ一覧などでは変化はありません。
** make_headline()追加
# yakty add [modify header(h1)] start
sub make_headline {
my ($page) = @_;
my @header;
my @category;
foreach ($page =~ /([^\/]+)\//) {
foreach ($page =~ /([^\/]+)\//g) {
push(@category, $_);
my $parent = join('/', @category);
if($database{$parent}){
my $link = &make_cachedlink($parent);
$link =~ s|(<a.*?>)(.+)(</a>)|$1@category[-1]$3|;
push(@header, $link);
} else {
push(@header, @category[-1]);
}
}
my $thispage = $page;
$thispage =~ s|^.+/||;
push(@header, qq(<a title="$resource{searchthispage}" href="$url_cgi?mycmd=search&mymsg=@{[&encode($page)]}">@{[&escape($thispage)]}</a>));
return join("/", @header);
}
# yakty add [modify header(h1)] end
02627