From 3588bbe03f12e52e6f6619a2167742d05b18aa21 Mon Sep 17 00:00:00 2001
From: Julien Moutinho <julm+ikiwiki+events@autogeree.net>
Date: Sun, 6 Apr 2014 21:30:49 +0200
Subject: [PATCH] add event-$base class

---
 events.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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>"
-- 
2.20.1