here be a plugin for processing POD!

[git.ikiwiki.info.git] / IkiWiki / Plugin / postsparkline.pm

diff --git a/IkiWiki/Plugin/postsparkline.pm b/IkiWiki/Plugin/postsparkline.pm
index ba43561fbc0d5f291f3eb80163dc88c9b506effe..0d5a12e33c5c2f918181784b2dd8784f54353ff7 100644 (file)
--- a/IkiWiki/Plugin/postsparkline.pm
+++ b/IkiWiki/Plugin/postsparkline.pm
@@ -30,11 +30,16 @@ sub preprocess (@) {
                return "";
        }
 
                return "";
        }
 

+       my $deptype;

        if (! exists $params{time} || $params{time} ne 'mtime') {
                $params{timehash} = \%IkiWiki::pagectime;
        if (! exists $params{time} || $params{time} ne 'mtime') {
                $params{timehash} = \%IkiWiki::pagectime;

+               # need to update when pages are added or removed
+               $deptype = deptype("presence");

        }
        else {
                $params{timehash} = \%IkiWiki::pagemtime;
        }
        else {
                $params{timehash} = \%IkiWiki::pagemtime;

+               # need to update when pages are changed
+               $deptype = deptype("content");

        }
 
        if (! exists $params{formula}) {
        }
 
        if (! exists $params{formula}) {


@@ -48,17 +53,11 @@ sub preprocess (@) {
                error gettext("unknown formula");
        }
 
                error gettext("unknown formula");
        }
 

-       add_depends($params{page}, $params{pages});
-
-       my @list;
-       foreach my $page (keys %pagesources) {
-               next if $page eq $params{page};
-               if (pagespec_match($page, $params{pages}, location => $params{page})) {
-                       push @list, $page;
-               }
-       }
-       
-       @list = sort { $params{timehash}->{$b} <=> $params{timehash}->{$a} } @list;
+       my @list=sort { $params{timehash}->{$b} <=> $params{timehash}->{$a} } 
+               pagespec_match_list($params{page}, $params{pages},
+                       deptype => $deptype,
+                       filter => sub { $_[0] eq $params{page} },
+               );

 
        my @data=eval qq{IkiWiki::Plugin::postsparkline::formula::$formula(\\\%params, \@list)};
        if ($@) {
 
        my @data=eval qq{IkiWiki::Plugin::postsparkline::formula::$formula(\\\%params, \@list)};
        if ($@) {