Merge commit 'intrigeri/pedigree'
commit
2c05a34be1
|
@ -77,7 +77,8 @@ sub defaultconfig () { #{{{
|
||||||
adminuser => undef,
|
adminuser => undef,
|
||||||
adminemail => undef,
|
adminemail => undef,
|
||||||
plugin => [qw{mdwn link inline htmlscrubber passwordauth openid
|
plugin => [qw{mdwn link inline htmlscrubber passwordauth openid
|
||||||
signinedit lockedit conditional recentchanges}],
|
signinedit lockedit conditional recentchanges
|
||||||
|
parentlinks}],
|
||||||
libdir => undef,
|
libdir => undef,
|
||||||
timeformat => '%c',
|
timeformat => '%c',
|
||||||
locale => undef,
|
locale => undef,
|
||||||
|
|
|
@ -0,0 +1,55 @@
|
||||||
|
#!/usr/bin/perl
|
||||||
|
# -*- cperl-indent-level: 8; -*-
|
||||||
|
# Ikiwiki parentlinks plugin.
|
||||||
|
package IkiWiki::Plugin::parentlinks;
|
||||||
|
|
||||||
|
use warnings;
|
||||||
|
use strict;
|
||||||
|
use IkiWiki 2.00;
|
||||||
|
|
||||||
|
sub import { #{{{
|
||||||
|
hook(type => "pagetemplate", id => "parentlinks", call => \&pagetemplate);
|
||||||
|
} # }}}
|
||||||
|
|
||||||
|
sub parentlinks ($) { #{{{
|
||||||
|
my $page=shift;
|
||||||
|
|
||||||
|
my @ret;
|
||||||
|
my $path="";
|
||||||
|
my $title=$config{wikiname};
|
||||||
|
my $i=0;
|
||||||
|
my $depth=0;
|
||||||
|
my $height=0;
|
||||||
|
|
||||||
|
my @pagepath=(split("/", $page));
|
||||||
|
my $pagedepth=@pagepath;
|
||||||
|
foreach my $dir (@pagepath) {
|
||||||
|
next if $dir eq 'index';
|
||||||
|
$depth=$i;
|
||||||
|
$height=($pagedepth - $depth);
|
||||||
|
push @ret, {
|
||||||
|
url => urlto($path, $page),
|
||||||
|
page => $title,
|
||||||
|
depth => $depth,
|
||||||
|
height => $height,
|
||||||
|
"depth_$depth" => 1,
|
||||||
|
"height_$height" => 1,
|
||||||
|
};
|
||||||
|
$path.="/".$dir;
|
||||||
|
$title=IkiWiki::pagetitle($dir);
|
||||||
|
$i++;
|
||||||
|
}
|
||||||
|
return @ret;
|
||||||
|
} #}}}
|
||||||
|
|
||||||
|
sub pagetemplate (@) { #{{{
|
||||||
|
my %params=@_;
|
||||||
|
my $page=$params{page};
|
||||||
|
my $template=$params{template};
|
||||||
|
|
||||||
|
if ($template->query(name => "parentlinks")) {
|
||||||
|
$template->param(parentlinks => [parentlinks($page)]);
|
||||||
|
}
|
||||||
|
} # }}}
|
||||||
|
|
||||||
|
1
|
|
@ -47,23 +47,6 @@ sub backlinks ($) { #{{{
|
||||||
return @links;
|
return @links;
|
||||||
} #}}}
|
} #}}}
|
||||||
|
|
||||||
sub parentlinks ($) { #{{{
|
|
||||||
my $page=shift;
|
|
||||||
|
|
||||||
my @ret;
|
|
||||||
my $pagelink="";
|
|
||||||
my $path="";
|
|
||||||
my $title=$config{wikiname};
|
|
||||||
|
|
||||||
foreach my $dir (split("/", $page)) {
|
|
||||||
next if $dir eq 'index';
|
|
||||||
push @ret, { url => urlto($path, $page), page => $title };
|
|
||||||
$path.="/".$dir;
|
|
||||||
$title=pagetitle($dir);
|
|
||||||
}
|
|
||||||
return @ret;
|
|
||||||
} #}}}
|
|
||||||
|
|
||||||
sub genpage ($$) { #{{{
|
sub genpage ($$) { #{{{
|
||||||
my $page=shift;
|
my $page=shift;
|
||||||
my $content=shift;
|
my $content=shift;
|
||||||
|
@ -121,7 +104,6 @@ sub genpage ($$) { #{{{
|
||||||
? $config{wikiname}
|
? $config{wikiname}
|
||||||
: pagetitle(basename($page)),
|
: pagetitle(basename($page)),
|
||||||
wikiname => $config{wikiname},
|
wikiname => $config{wikiname},
|
||||||
parentlinks => [parentlinks($page)],
|
|
||||||
content => $content,
|
content => $content,
|
||||||
backlinks => $backlinks,
|
backlinks => $backlinks,
|
||||||
more_backlinks => $more_backlinks,
|
more_backlinks => $more_backlinks,
|
||||||
|
|
|
@ -0,0 +1,124 @@
|
||||||
|
[[!template id=plugin name=parentlinks core=1 author="[[intrigeri]]"]]
|
||||||
|
[[!tag type/link]]
|
||||||
|
|
||||||
|
This plugin offers a `HTML::Template` loop that iterates over all or
|
||||||
|
a subset of a page's parents. It also provides a few bonus
|
||||||
|
possibilities, such as styling the parent links depending on their
|
||||||
|
place in the path.
|
||||||
|
|
||||||
|
[[!toc ]]
|
||||||
|
|
||||||
|
Content
|
||||||
|
=======
|
||||||
|
|
||||||
|
This plugin provides one template loop, called `PARENTLINKS`, that
|
||||||
|
returns the list of parent pages for the current page. Every returned
|
||||||
|
path element has the following variables set:
|
||||||
|
|
||||||
|
* `URL` (string): url to the current path element
|
||||||
|
* `PAGE` (string): title of the current path element
|
||||||
|
* `DEPTH` (positive integer): depth of the path leading to the
|
||||||
|
current path element, counting from the wiki's root, which has
|
||||||
|
`DEPTH=0`
|
||||||
|
* `HEIGHT` (positive integer): distance, expressed in path elements,
|
||||||
|
from the current page to the current path element; e.g. this is
|
||||||
|
1 for the current page's mother, 2 for its grand-mother, etc.
|
||||||
|
* `DEPTH_n` (boolean): true if, and only if, `DEPTH==n`
|
||||||
|
* `HEIGHT_n` (boolean): true if, and only if, `HEIGHT==n`
|
||||||
|
|
||||||
|
Usage
|
||||||
|
=====
|
||||||
|
|
||||||
|
The `DEPTH_n` and `HEIGHT_n` variables allow the template writer to
|
||||||
|
skip arbitrary elements in the parents list: they are arbitrary
|
||||||
|
page-range selectors.
|
||||||
|
|
||||||
|
The `DEPTH` and `HEIGHT` variables allow the template writer to apply
|
||||||
|
general treatment, depending on one of these variables, to *every*
|
||||||
|
parent: they are counters.
|
||||||
|
|
||||||
|
Basic usage
|
||||||
|
-----------
|
||||||
|
|
||||||
|
As in the default `page.tmpl`, one can simply display the list of
|
||||||
|
parent pages:
|
||||||
|
|
||||||
|
<TMPL_LOOP NAME="PARENTLINKS">
|
||||||
|
<a href="<TMPL_VAR NAME=URL>"><TMPL_VAR NAME=PAGE></a>/
|
||||||
|
</TMPL_LOOP>
|
||||||
|
<TMPL_VAR TITLE>
|
||||||
|
|
||||||
|
|
||||||
|
Styling parents depending on their depth
|
||||||
|
----------------------------------------
|
||||||
|
|
||||||
|
Say you want the parent links to be styled depending on their depth in
|
||||||
|
the path going from the wiki root to the current page; just add the
|
||||||
|
following lines in `page.tmpl`:
|
||||||
|
|
||||||
|
<TMPL_LOOP NAME="PARENTLINKS">
|
||||||
|
<a href="<TMPL_VAR NAME="URL">" class="depth<TMPL_VAR NAME="DEPTH">">
|
||||||
|
<TMPL_VAR NAME="PAGE">
|
||||||
|
</a> /
|
||||||
|
</TMPL_LOOP>
|
||||||
|
|
||||||
|
Then write the appropriate CSS bits for `a.depth1`, etc.
|
||||||
|
|
||||||
|
Skip some parents, style the others depending on their distance to the current page
|
||||||
|
-----------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Say you want to display all the parents links but the wiki homepage,
|
||||||
|
styled depending on their distance to the current page; just add the
|
||||||
|
following lines in `page.tmpl`:
|
||||||
|
|
||||||
|
<TMPL_LOOP NAME="PARENTLINKS">
|
||||||
|
<TMPL_IF NAME="DEPTH_0">
|
||||||
|
<TMPL_ELSE>
|
||||||
|
<a href="<TMPL_VAR NAME="URL">" class="height<TMPL_VAR NAME="HEIGHT">">
|
||||||
|
<TMPL_VAR NAME="PAGE">
|
||||||
|
</a> /
|
||||||
|
</TMPL_LOOP>
|
||||||
|
|
||||||
|
Then write the appropriate CSS bits for `a.height1`, etc.
|
||||||
|
|
||||||
|
Full-blown example
|
||||||
|
------------------
|
||||||
|
|
||||||
|
Let's have a look at a more complicated example; combining the boolean
|
||||||
|
loop variables provided by this plugin (`IS_ROOT` and friends) and
|
||||||
|
`HTML::Template` flow control structures, you can have custom HTML
|
||||||
|
and/or CSS generated for some special path components; e.g.:
|
||||||
|
|
||||||
|
<!-- all parents, skipping mother and grand'ma, inside a common div+ul -->
|
||||||
|
<div id="oldestparents">
|
||||||
|
<ul>
|
||||||
|
<TMPL_LOOP NAME="PARENTLINKS">
|
||||||
|
<TMPL_IF NAME="HEIGHT_2">
|
||||||
|
<TMPL_ELSE>
|
||||||
|
<TMPL_IF NAME="HEIGHT_1">
|
||||||
|
<TMPL_ELSE>
|
||||||
|
<li><a href="<TMPL_VAR NAME="URL">"><TMPL_VAR NAME="PAGE"></a></li>
|
||||||
|
</TMPL_IF>
|
||||||
|
</TMPL_IF>
|
||||||
|
</TMPL_LOOP>
|
||||||
|
</ul>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<!-- dedicated div's for mother and grand'ma -->
|
||||||
|
<TMPL_LOOP NAME="PARENTLINKS">
|
||||||
|
<TMPL_IF NAME="HEIGHT_2">
|
||||||
|
<div id="grandma">
|
||||||
|
<a href="<TMPL_VAR NAME="URL">"><TMPL_VAR NAME="PAGE"></a>
|
||||||
|
</div>
|
||||||
|
<TMPL_ELSE>
|
||||||
|
<TMPL_IF NAME="HEIGHT_1">
|
||||||
|
<div id="mother">
|
||||||
|
<a href="<TMPL_VAR NAME="URL">"><TMPL_VAR NAME="PAGE"></a>
|
||||||
|
</div>
|
||||||
|
</TMPL_IF>
|
||||||
|
</TMPL_IF>
|
||||||
|
</TMPL_LOOP>
|
||||||
|
|
||||||
|
<!-- eventually, the current page title -->
|
||||||
|
<TMPL_VAR NAME="TITLE">
|
||||||
|
</div>
|
|
@ -0,0 +1,82 @@
|
||||||
|
#!/usr/bin/perl
|
||||||
|
# -*- cperl-indent-level: 8; -*-
|
||||||
|
# Testcases for the Ikiwiki parentlinks plugin.
|
||||||
|
|
||||||
|
use warnings;
|
||||||
|
use strict;
|
||||||
|
use Test::More 'no_plan';
|
||||||
|
|
||||||
|
my %expected;
|
||||||
|
|
||||||
|
BEGIN { use_ok("IkiWiki"); }
|
||||||
|
|
||||||
|
# Init
|
||||||
|
%config=IkiWiki::defaultconfig();
|
||||||
|
$config{srcdir}=$config{destdir}="/dev/null";
|
||||||
|
$config{underlaydir}="underlays/basewiki";
|
||||||
|
$config{templatedir}="t/parentlinks/templates";
|
||||||
|
IkiWiki::loadplugins();
|
||||||
|
IkiWiki::checkconfig();
|
||||||
|
|
||||||
|
# Test data
|
||||||
|
$expected{'parentlinks'} =
|
||||||
|
{
|
||||||
|
"" => [],
|
||||||
|
"ikiwiki" => [],
|
||||||
|
"ikiwiki/pagespec" =>
|
||||||
|
[ {depth => 0, height => 2, },
|
||||||
|
{depth => 1, height => 1, },
|
||||||
|
],
|
||||||
|
"ikiwiki/pagespec/attachment" =>
|
||||||
|
[ {depth => 0, height => 3, depth_0 => 1, height_3 => 1},
|
||||||
|
{depth => 1, height => 2, },
|
||||||
|
{depth => 2, height => 1, },
|
||||||
|
],
|
||||||
|
};
|
||||||
|
|
||||||
|
# Test function
|
||||||
|
sub test_loop($$) {
|
||||||
|
my $loop=shift;
|
||||||
|
my $expected=shift;
|
||||||
|
my $template;
|
||||||
|
my %params;
|
||||||
|
|
||||||
|
ok($template=template('parentlinks.tmpl'), "template created");
|
||||||
|
ok($params{template}=$template, "params populated");
|
||||||
|
|
||||||
|
while ((my $page, my $exp) = each %{$expected}) {
|
||||||
|
my @path=(split("/", $page));
|
||||||
|
my $pagedepth=@path;
|
||||||
|
my $msgprefix="$page $loop";
|
||||||
|
|
||||||
|
# manually run the plugin hook
|
||||||
|
$params{page}=$page;
|
||||||
|
$template->clear_params();
|
||||||
|
IkiWiki::Plugin::parentlinks::pagetemplate(%params);
|
||||||
|
my $res=$template->param($loop);
|
||||||
|
|
||||||
|
is(scalar(@$res), $pagedepth, "$msgprefix: path length");
|
||||||
|
# logic & arithmetic validation tests
|
||||||
|
for (my $i=0; $i<$pagedepth; $i++) {
|
||||||
|
my $r=$res->[$i];
|
||||||
|
is($r->{height}, $pagedepth - $r->{depth},
|
||||||
|
"$msgprefix\[$i\]: height = pagedepth - depth");
|
||||||
|
ok($r->{depth} ge 0, "$msgprefix\[$i\]: depth>=0");
|
||||||
|
ok($r->{height} ge 0, "$msgprefix\[$i\]: height>=0");
|
||||||
|
}
|
||||||
|
# comparison tests, iff the test-suite has been written
|
||||||
|
if (scalar(@$exp) eq $pagedepth) {
|
||||||
|
for (my $i=0; $i<$pagedepth; $i++) {
|
||||||
|
my $e=$exp->[$i];
|
||||||
|
my $r=$res->[$i];
|
||||||
|
map { is($r->{$_}, $e->{$_}, "$msgprefix\[$i\]: $_"); } keys %$e;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
# else {
|
||||||
|
# diag("Testsuite is incomplete for ($page,$loop); cannot run comparison tests.");
|
||||||
|
# }
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# Main
|
||||||
|
test_loop('parentlinks', $expected{'parentlinks'});
|
|
@ -0,0 +1,4 @@
|
||||||
|
<!-- This template file only has to "use" the loops tested by parentlinks.t -->
|
||||||
|
|
||||||
|
<TMPL_LOOP NAME="PARENTLINKS">
|
||||||
|
</TMPL_LOOP>
|
Loading…
Reference in New Issue