Automatically create tag pages,

if "tag_autocreate=1" is set in the configuration. The pages will be created in
tagbase, if and only if they do not exist in the srcdir yet. Tag pages will be create from
"autotag.tmpl".

At this stage a second refresh is needed for the tag pages to be rendered.

Add autotag.tmpl template.
master
David Riebenbauer 2010-01-30 18:22:32 +01:00
parent f3abeac919
commit f35d35abe3
2 changed files with 29 additions and 0 deletions

View File

@ -36,6 +36,13 @@ sub getsetup () {
safe => 1,
rebuild => 1,
},
tag_autocreate => {
type => "boolean",
example => 0,
description => "Autocreate new tag pages",
safe => 1,
rebuild => 1,
},
}
sub tagpage ($) {
@ -59,6 +66,21 @@ sub taglink ($$$;@) {
return htmllink($page, $destpage, tagpage($tag), %opts);
}
sub gentag ($) {
my $tag=shift;
if (defined $config{tag_autocreate} && $config{tag_autocreate}) {
my $tagfile = newpagefile(tagpage($tag), $config{default_pageext});
$tagfile=~s/^\///;
return if (srcfile($tagfile,1));
debug(sprintf(gettext("creating tag page %s"), $tag));
my $template=template("autotag.tmpl");
$template->param(tag => $tag);
writefile($tagfile, $config{srcdir}, $template->output);
}
}
sub preprocess_tag (@) {
if (! @_) {
return "";
@ -72,6 +94,10 @@ sub preprocess_tag (@) {
foreach my $tag (keys %params) {
$tag=linkpage($tag);
$tags{$page}{$tag}=1;
# add tagpage if necessary
gentag($tag);
# hidden WikiLink
add_link($page, tagpage($tag));
}

View File

@ -0,0 +1,3 @@
## Pagest tagged <TMPL_VAR TAG> ##
[[!inline pages="tagged(<TMPL_VAR TAG>)" actions="no" archive="yes"]]