summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess <joey@gnu.kitenet.net>2009-10-08 19:27:25 -0400
committerJoey Hess <joey@gnu.kitenet.net>2009-10-08 20:29:51 -0400
commitbc4ef28f3ebc396096b7eccad04eea6febac8d38 (patch)
treef93c30eaae85c9180fa4cc6f6157a8b360bb3c0c
parentd5f014449511460d4da22591379b30bd5de86145 (diff)
pagestate: switch to use_pagespec
-rw-r--r--IkiWiki/Plugin/pagestats.pm26
1 files changed, 14 insertions, 12 deletions
diff --git a/IkiWiki/Plugin/pagestats.pm b/IkiWiki/Plugin/pagestats.pm
index cd0bdb085..e64f7d9c3 100644
--- a/IkiWiki/Plugin/pagestats.pm
+++ b/IkiWiki/Plugin/pagestats.pm
@@ -35,25 +35,27 @@ sub preprocess (@) {
$params{pages}="*" unless defined $params{pages};
my $style = ($params{style} or 'cloud');
- # Needs to update whenever a page is added or removed.
- add_depends($params{page}, $params{pages}, deptype("presence"));
- # Also needs to update when any page with links changes,
- # in case the links point to our displayed pages.
- # (Among limits this further.)
- add_depends($params{page}, exists $params{among} ? $params{among} : "*",
- deptype("links"));
-
my %counts;
my $max = 0;
- foreach my $page (pagespec_match_list([keys %pagesources],
- $params{pages}, location => $params{page})) {
+ foreach my $page (use_pagespec($params{page}, $params{pages},
+ # update when a displayed page is added or removed
+ deptype => deptype("presence"))) {
use IkiWiki::Render;
my @backlinks = IkiWiki::backlink_pages($page);
if (exists $params{among}) {
- @backlinks = pagespec_match_list(\@backlinks,
- $params{among}, location => $params{page});
+ # only consider backlinks from the amoung pages
+ @backlinks = use_pagespec($params{page}, $params{among},
+ # update whenever links on those pages change
+ deptype => deptype("links"),
+ list => \@backlinks
+ );
+ }
+ else {
+ # update when any page with links changes,
+ # in case the links point to our displayed pages
+ add_depends($params{page}, "*", deptype("links"));
}
$counts{$page} = scalar(@backlinks);