X-Git-Url: http://git.cyclocoop.org/?p=ikiwiki%2Fevents.git;a=blobdiff_plain;f=events.pm;h=dd1ed3e66331a253e14b5f43bb7091a59c8b7786;hp=e06e2ce6723d49723682eabeaf580d331674d42c;hb=3588bbe03f12e52e6f6619a2167742d05b18aa21;hpb=3624b2511a8ff22fa7020a48437dfaf12605d9f0

diff --git a/events.pm b/events.pm
index e06e2ce..dd1ed3e 100644
--- a/events.pm
+++ b/events.pm
@@ -218,10 +218,13 @@ sub event_of_page ($%) {
 		{ 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) = @_;
@@ -367,7 +370,7 @@ sub preprocess_day (@) {
 		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>"
@@ -436,7 +439,7 @@ sub preprocess_month (@) {
 			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>"