Index styling infrastructure changes

[exim-website.git] / script / gen.pl

diff --git a/script/gen.pl b/script/gen.pl
index 6073b56ccd2f80e7a48ed91c5a91e5cc448be008..0cfa5a14dffde981944c757849f407a2391be262 100755 (executable)
--- a/script/gen.pl
+++ b/script/gen.pl
@@ -237,13 +237,15 @@ sub build_indexes {
     foreach my $role ( sort { $a cmp $b } keys %{$index_hash} ) {
         my $chapter = XML::LibXML::Element->new('chapter');
         $book->appendChild($chapter);
-        $chapter->setAttribute( 'id', 'index_' . $role );
+        $chapter->setAttribute( 'id', join( '_', 'index', $role ) );
+        $chapter->setAttribute( 'class', 'index' );
         $chapter->appendTextChild( 'title', ( ucfirst($role) . ' Index' ) );
         foreach my $first ( sort { $a cmp $b } keys %{ $index_hash->{$role} } ) {
             my $section = XML::LibXML::Element->new('section');
             my $list    = XML::LibXML::Element->new('variablelist');
             $chapter->appendChild($section);
-            $section->setAttribute( 'id', 'index_' . $role . '_' . $first );
+            $section->setAttribute( 'id', join( '_', 'index', $role, $first ) );
+            $section->setAttribute( 'class', 'index' );
             $section->appendTextChild( 'title', $first ? $first : 'Symbols' );
             $section->appendChild($list);
             foreach my $primary ( sort { $a cmp $b } keys %{ $index_hash->{$role}{$first} } ) {