Source

shlomi-fish-homepage / 2009-restyling / lib / MySectNavData.pm

Full commit
package MySectNavData;

use strict;
use warnings;

use Shlomif::Homepage::SectionMenu;

my @sections = 
(
    {
        'id' => "essays",
        'regex' => "^/(?:philosophy|prog-evolution|DeCSS)/",
        'class' => "Essays",
        'title' => "Essays Section Menu",
    },
    {
        'id' => "puzzles",
        'regex' => "^/(?:puzzles|MathVentures)/",
        'class' => "Puzzles",
        'title' => "Puzzles Section Menu",
    },
    {
        'id' => "lectures",
        'regex' => "^/lecture/",
        'class' => "Lectures",
        'title' => "Lectures Section Menu",
    },
    {
        'id' => "software",
        'regex' => "^/(open-source|jmikmod|grad-fu|rwlock|software-tools|no-ie|rindolf)/",
        'class' => "Software",
        'title' => "Software Section Menu",
    },
    {
        'id' => "humour",
        'regex' => "^/(humour/|((humour|wysiwyt|wonderous)\.html))",
        'class' => "Humour",
        'title' => "Humour Section Menu",
    },
    
);

sub get_nav_menu
{
    return Shlomif::Homepage::SectionMenu->new(
        'sections' => \@sections,
        @_,
    );
}

1;