From f32369f66924e0c008370c29462af57fd218267a Mon Sep 17 00:00:00 2001 From: intrigeri Date: Sat, 12 Jul 2008 23:04:35 +0200 Subject: added new plugin: pedigree Signed-off-by: intrigeri --- IkiWiki/Plugin/pedigree.pm | 53 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 53 insertions(+) create mode 100644 IkiWiki/Plugin/pedigree.pm diff --git a/IkiWiki/Plugin/pedigree.pm b/IkiWiki/Plugin/pedigree.pm new file mode 100644 index 000000000..efe6c3e77 --- /dev/null +++ b/IkiWiki/Plugin/pedigree.pm @@ -0,0 +1,53 @@ +#!/usr/bin/perl +# -*- cperl-indent-level: 8; -*- +# Ikiwiki pedigree plugin. +package IkiWiki::Plugin::pedigree; + +use warnings; +use strict; +use IkiWiki 2.00; + +sub import { #{{{ + hook(type => "pagetemplate", id => "pedigree", call => \&pagetemplate); +} # }}} + +sub pedigree ($) { #{{{ + my $page=shift; + + my @ret; + my $path=""; + my $title=$config{wikiname}; + my $i; + + my @pagepath=(split("/", $page)); + my $pageloc=@pagepath - 1; + foreach my $dir (@pagepath) { + next if $dir eq 'index'; + push @ret, { + url => urlto($path, $page), + page => $title, + level => $i, + is_root => ($i eq 0), + is_first_child => ($i eq 1), + is_mother => ($i eq ($pageloc - 1)), + is_grand_mother => ($i eq ($pageloc - 2)) + }; + $path.="/".$dir; + $title=pagetitle($dir); + $i++; + } + return @ret; +} #}}} + +sub pagetemplate (@) { #{{{ + my %params=@_; + my $page=$params{page}; + my $template=$params{template}; + + if ($template->query(name => "pedigree")) { + $template->param(pedigree => [pedigree($page)]); + } + +} # }}} + +1 -- cgit v1.2.3