{ class => "tag tag-$class"
, link => $link }
} @tags;
+ my $base = IkiWiki::dirname($event);
+ $base =~ s/[^a-zA-Z0-9-]/_/g;
return
{ hour => $hour
, link => $link
- , tags => \@tags };
+ , tags => \@tags
+ , base => $base };
}
sub events_of_pages ($%) {
my ($pages, %params) = @_;
my @tags
= map {"<li\n class='".$_->{class}."'>".$_->{link}."</li>"}
@{$_->{tags}};
- "<ul\n class='events'><li class='event'>"
+ "<ul\n class='events'><li class='event event-$_->{base}'>"
. "<span class='head'>"
. (defined $_->{hour} ? "<span class='hour'>$_->{hour}</span>" : "")
. "<span class='link'>$_->{link}</span>"
my @tags
= map {"<li\n class='".$_->{class}."'>".$_->{link}."</li>"}
@{$_->{tags}};
- "<li\n class='event'>"
+ "<li\n class='event event-$_->{base}'>"
. "<span class='head'>"
. (defined $_->{hour} ? "<span class='hour'>$_->{hour}</span>" : "")
. "<span class='link'>$_->{link}</span>"