From 409e62021c5c05e0184a61d0692697c10a0b8283 Mon Sep 17 00:00:00 2001
From: joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Date: Fri, 28 Jul 2006 05:26:49 +0000
Subject: * Add getopt hook type, this allows plugins to add new command-line
 options. * Add --tagbase option to tag plugin.

---
 IkiWiki/Plugin/skeleton.pm |  6 ++++++
 IkiWiki/Plugin/tag.pm      | 11 +++++++++++
 2 files changed, 17 insertions(+)

(limited to 'IkiWiki/Plugin')

diff --git a/IkiWiki/Plugin/skeleton.pm b/IkiWiki/Plugin/skeleton.pm
index acbc88994..27da50e6f 100644
--- a/IkiWiki/Plugin/skeleton.pm
+++ b/IkiWiki/Plugin/skeleton.pm
@@ -9,6 +9,8 @@ use strict;
 use IkiWiki;
 
 sub import { #{{{
+	IkiWiki::hook(type => "getopt", id => "skeleton", 
+		call => \&getopt);
 	IkiWiki::hook(type => "checkconfig", id => "skeleton", 
 		call => \&checkconfig);
 	IkiWiki::hook(type => "preprocess", id => "skeleton", 
@@ -29,6 +31,10 @@ sub import { #{{{
 		call => \&cgi);
 } # }}}
 
+sub getopt () { #{{{
+	IkiWiki::debug("skeleton plugin getopt");
+} #}}}
+
 sub checkconfig () { #{{{
 	IkiWiki::debug("skeleton plugin checkconfig");
 } #}}}
diff --git a/IkiWiki/Plugin/tag.pm b/IkiWiki/Plugin/tag.pm
index c4e12e61d..56bf17e2c 100644
--- a/IkiWiki/Plugin/tag.pm
+++ b/IkiWiki/Plugin/tag.pm
@@ -9,12 +9,20 @@ use IkiWiki;
 my %tags;
 
 sub import { #{{{
+	IkiWiki::hook(type => "getopt", id => "tag",
+		call => \&getopt);
 	IkiWiki::hook(type => "preprocess", id => "tag",
 		call => \&preprocess);
 	IkiWiki::hook(type => "pagetemplate", id => "tag",
 		call => \&pagetemplate);
 } # }}}
 
+sub getopt () { #{{{
+	eval q{use Getopt::Long};
+	Getopt::Long::Configure('pass_through');
+	GetOptions("tagbase=s" => \$IkiWiki::config{tagbase});
+} #}}}
+
 sub preprocess (@) { #{{{
 	if (! @_) {
 		return "";
@@ -26,6 +34,9 @@ sub preprocess (@) { #{{{
 
 	$tags{$page} = [];
 	foreach my $tag (keys %params) {
+		if (exists $IkiWiki::config{tagbase}) {
+			$tag=$IkiWiki::config{tagbase}."/".$tag;
+		}
 		push @{$tags{$page}}, $tag;
 		# hidden WikiLink
 		push @{$IkiWiki::links{$page}}, $tag;
-- 
cgit v1.2.3