add event-$base class

diff --git a/events.pm b/events.pm
index e06e2ce..dd1ed3e 100644 (file)
--- 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>"