1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
#!/usr/bin/perl
package IkiWiki::Plugin::postsparkline;
use warnings;
use strict;
use IkiWiki;
sub import { #{{{
IkiWiki::loadplugin('sparkline');
hook(type => "preprocess", id => "postsparkline", call => \&preprocess);
} # }}}
sub preprocess (@) { #{{{
my %params=@_;
if (! exists $params{max}) {
$params{max}=100;
}
if (! exists $params{pages}) {
return "";
}
if (! exists $params{formula}) {
return "[[postsparkline ".gettext("missing formula")."]]";
}
my $formula=$params{formula};
$formula=~s/[^a-zA-Z0-9]*//g;
$formula=IkiWiki::possibly_foolish_untaint($formula);
if (! length $formula ||
! IkiWiki::Plugin::postsparkline::formula->can($formula)) {
return "[[postsparkline ".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}, $params{page})) {
push @list, $page;
}
}
@list = sort { $IkiWiki::pagectime{$b} <=> $IkiWiki::pagectime{$a} } @list;
delete $params{pages};
delete $params{formula};
my @data=eval qq{IkiWiki::Plugin::postsparkline::formula::$formula(\\\%params, \@list)};
if ($@) {
return "[[postsparkline error $@]]";
}
return IkiWiki::Plugin::sparkline::preprocess(%params,
map { $_ => "" } reverse @data);
} # }}}
sub perfoo ($@) {
my $sub=shift;
my $params=shift;
my $max=$params->{max};
my ($first, $prev, $cur);
my $count=0;
my @data;
foreach (@_) {
$cur=$sub->($IkiWiki::pagectime{$_});
if (defined $prev) {
if ($prev != $cur) {
push @data, "$prev,$count";
$count=0;
last if --$max <= 0;
for ($cur+1 .. $prev-1) {
push @data, "$_,0";
last if --$max == 0;
}
}
}
else {
$first=$cur;
}
$count++;
$prev=$cur;
}
return @data;
}
package IkiWiki::Plugin::postsparkline::formula;
sub peryear (@) {
return IkiWiki::Plugin::postsparkline::perfoo(sub {
return (localtime $_[0])[5];
}, @_);
}
sub permonth (@) {
return IkiWiki::Plugin::postsparkline::perfoo(sub {
my ($month, $year)=(localtime $_[0])[4,5];
return $year*12+$month;
}, @_);
}
sub perday (@) {
return IkiWiki::Plugin::postsparkline::perfoo(sub {
my ($year, $yday)=(localtime $_[0])[5,7];
return $year*365+$yday;
}, @_);
}
sub interval ($@) {
my $params=shift;
my $max=$params->{max};
my @data;
for (my $i=1; $i < @_; $i++) {
push @data, $IkiWiki::pagectime{$_[$i-1]} - $IkiWiki::pagectime{$_[$i]};
last if --$max <= 0;
}
return @data;
}
1
|