return
map {event_of_page($_->{page}, $_->{date}, %params)}
( (sort {lc IkiWiki::basename($a->{page}) cmp lc IkiWiki::basename($b->{page})} @day_events)
- , (sort {lc $a->{date}->{hour}.'/'.IkiWiki::basename($a->{page}) cmp lc $b->{date}->{hour}.'/'.IkiWiki::basename($b->{page})} @hour_events) );
+ , (sort {
+ my $r = $a->{date}->{hour} cmp $b->{date}->{hour};
+ if ($r) { $r }
+ else { IkiWiki::basename($a->{page}) cmp IkiWiki::basename($b->{page}) }
+ } @hour_events) );
}
sub event_html ($$%) {
my ($date, $format, %params) = @_;