update ikiwiki plugins
parent
224aa337c6
commit
02d8379ab4
|
@ -0,0 +1,57 @@
|
|||
#!/usr/bin/perl
|
||||
# Provides a list of broken links.
|
||||
package IkiWiki::Plugin::brokenlinks;
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
use IkiWiki 3.00;
|
||||
|
||||
sub import {
|
||||
hook(type => "getsetup", id => "brokenlinks", call => \&getsetup);
|
||||
hook(type => "preprocess", id => "brokenlinks", call => \&preprocess);
|
||||
}
|
||||
|
||||
sub getsetup {
|
||||
return
|
||||
plugin => {
|
||||
safe => 1,
|
||||
rebuild => undef,
|
||||
},
|
||||
}
|
||||
|
||||
sub preprocess (@) {
|
||||
my %params=@_;
|
||||
$params{pages}="*" unless defined $params{pages};
|
||||
|
||||
my @broken;
|
||||
foreach my $link (keys %IkiWiki::brokenlinks) {
|
||||
next if $link =~ /.*\/\Q$config{discussionpage}\E/i && $config{discussion};
|
||||
|
||||
my @pages=pagespec_match_list($params{page}, $params{pages},
|
||||
list => $IkiWiki::brokenlinks{$link},
|
||||
# needs to update when links on a page change
|
||||
deptype => deptype("links")
|
||||
);
|
||||
next unless @pages;
|
||||
|
||||
my $page=$IkiWiki::brokenlinks{$link}->[0];
|
||||
push @broken, sprintf("%s -> %s",
|
||||
join(", ", map {
|
||||
htmllink($params{page}, $params{destpage}, $_, noimageinline => 1)
|
||||
} sort @pages),
|
||||
htmllink($page, $params{destpage}, $link, noimageinline => 1)
|
||||
);
|
||||
}
|
||||
|
||||
return "" unless @broken;
|
||||
return "<ul class='brokenlinks'>\n"
|
||||
.join("\n",
|
||||
map {
|
||||
"<li>$_</li>"
|
||||
}
|
||||
sort @broken)
|
||||
."</ul>\n";
|
||||
}
|
||||
|
||||
1
|
||||
|
|
@ -0,0 +1,159 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# Produce a hierarchical map of links.
|
||||
#
|
||||
# by Alessandro Dotti Contra <alessandro@hyboria.org>
|
||||
#
|
||||
# Revision: 0.2
|
||||
package IkiWiki::Plugin::map;
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
use IkiWiki 3.00;
|
||||
|
||||
sub import {
|
||||
hook(type => "getsetup", id => "map", call => \&getsetup);
|
||||
hook(type => "preprocess", id => "map", call => \&preprocess);
|
||||
}
|
||||
|
||||
sub getsetup () {
|
||||
return
|
||||
plugin => {
|
||||
safe => 1,
|
||||
rebuild => undef,
|
||||
section => "widget",
|
||||
},
|
||||
}
|
||||
|
||||
sub preprocess (@) {
|
||||
my %params=@_;
|
||||
$params{pages}="*" unless defined $params{pages};
|
||||
|
||||
# Needs to update whenever a page is added or removed (or in some
|
||||
# cases, when its content changes, if show= is specified).
|
||||
my $deptype=deptype(exists $params{show} ? "content" : "presence");
|
||||
|
||||
my $common_prefix;
|
||||
|
||||
# Get all the items to map.
|
||||
my %mapitems;
|
||||
foreach my $page (pagespec_match_list($params{page}, $params{pages},
|
||||
deptype => $deptype)) {
|
||||
if (exists $params{show} &&
|
||||
exists $pagestate{$page} &&
|
||||
exists $pagestate{$page}{meta}{$params{show}}) {
|
||||
$mapitems{$page}=$pagestate{$page}{meta}{$params{show}};
|
||||
}
|
||||
else {
|
||||
$mapitems{$page}='';
|
||||
}
|
||||
# Check for a common prefix.
|
||||
if (! defined $common_prefix) {
|
||||
$common_prefix=$page;
|
||||
}
|
||||
elsif (length $common_prefix &&
|
||||
$page !~ /^\Q$common_prefix\E(\/|$)/) {
|
||||
my @a=split(/\//, $page);
|
||||
my @b=split(/\//, $common_prefix);
|
||||
$common_prefix="";
|
||||
while (@a && @b && $a[0] eq $b[0]) {
|
||||
if (length $common_prefix) {
|
||||
$common_prefix.="/";
|
||||
}
|
||||
$common_prefix.=shift(@a);
|
||||
shift @b;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# Common prefix should not be a page in the map.
|
||||
while (defined $common_prefix && length $common_prefix &&
|
||||
exists $mapitems{$common_prefix}) {
|
||||
$common_prefix=IkiWiki::dirname($common_prefix);
|
||||
}
|
||||
|
||||
# Set this to 1 or more spaces to pretty-print maps for debugging
|
||||
my $spaces = "";
|
||||
|
||||
# Create the map.
|
||||
my $parent="";
|
||||
my $indent=0;
|
||||
my $openli=0;
|
||||
my $addparent="";
|
||||
my $map = "<ul class='map'>\n";
|
||||
|
||||
if (! keys %mapitems) {
|
||||
$map .= "</ul>\n";
|
||||
return $map;
|
||||
}
|
||||
|
||||
foreach my $item (sort keys %mapitems) {
|
||||
my @linktext = (length $mapitems{$item} ? (linktext => $mapitems{$item}) : ());
|
||||
$item=~s/^\Q$common_prefix\E\///
|
||||
if defined $common_prefix && length $common_prefix;
|
||||
my $depth = ($item =~ tr/\//\//) + 1;
|
||||
my $baseitem=IkiWiki::dirname($item);
|
||||
while (length $parent && length $baseitem && $baseitem !~ /^\Q$parent\E(\/|$)/) {
|
||||
$parent=IkiWiki::dirname($parent);
|
||||
last if length $addparent && $baseitem =~ /^\Q$addparent\E(\/|$)/;
|
||||
$addparent="";
|
||||
$map .= ($spaces x $indent) . "</li>\n";
|
||||
if ($indent > 1) {
|
||||
$map .= ($spaces x $indent) . "</ul><map:collapse>\n";
|
||||
}
|
||||
$indent--;
|
||||
}
|
||||
while ($depth < $indent) {
|
||||
$map .= ($spaces x $indent) . "</li>\n";
|
||||
if ($indent > 1) {
|
||||
$map .= ($spaces x $indent) . "</ul>\n";
|
||||
}
|
||||
$indent--;
|
||||
}
|
||||
my @bits=split("/", $item);
|
||||
my $p="";
|
||||
$p.="/".shift(@bits) for 1..$indent;
|
||||
while ($depth > $indent) {
|
||||
$indent++;
|
||||
if ($indent > 1) {
|
||||
$map .= ($spaces x $indent) . "<ul><map:collapse>\n";
|
||||
}
|
||||
if ($depth > $indent) {
|
||||
$p.="/".shift(@bits);
|
||||
$addparent=$p;
|
||||
$addparent=~s/^\///;
|
||||
$map .= ($spaces x $indent) . "<li>\n";
|
||||
$map .= ($spaces x $indent)
|
||||
.htmllink($params{page}, $params{destpage},
|
||||
"/".$common_prefix.$p, class => "mapparent",
|
||||
noimageinline => 1)
|
||||
."\n";
|
||||
$openli=1;
|
||||
}
|
||||
else {
|
||||
$openli=0;
|
||||
}
|
||||
}
|
||||
$map .= ($spaces x $indent) . "</li>\n" if $openli;
|
||||
$map .= ($spaces x $indent) . "<li>\n";
|
||||
$map .= ($spaces x $indent)
|
||||
.htmllink($params{page}, $params{destpage},
|
||||
"/".$common_prefix."/".$item,
|
||||
@linktext,
|
||||
class => "mapitem", noimageinline => 1)
|
||||
."\n";
|
||||
$openli=1;
|
||||
$parent=$item;
|
||||
}
|
||||
while ($indent > 0) {
|
||||
$map .= ($spaces x $indent) . "</li>\n";
|
||||
$indent--;
|
||||
$map .= ($spaces x $indent) . "</ul>\n";
|
||||
}
|
||||
$map =~ s{\n *</ul><map:collapse>\n *<ul><map:collapse>\n}{\n}gs;
|
||||
$map =~ s{<map:collapse>}{}g;
|
||||
return $map;
|
||||
}
|
||||
|
||||
1
|
||||
|
Loading…
Reference in New Issue