Source

shlomi-fish-homepage / lib / MySectNavData.pm

Full commit
package MySectNavData;

use strict;
use warnings;

use Shlomif::Homepage::SectionMenu;

my @sections =
(
    {
        'id' => "art",
        'regex' => "^/art/",
        'class' => "Art",
        'title' => "Art Section Menu",
    },
    {
        'id' => "essays",
        'regex' => "^/(?:philosophy|prog-evolution|DeCSS)/",
        'class' => "Essays",
        'title' => "Essays Section Menu",
    },
    {
        'id' => "puzzles",
        'regex' => q{^/(?:(?:puzzles|MathVentures)/|toggle.html$)},
        '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(?:-heb)?|wysiwyt|wonderous)\.html))",
        'class' => "Humour",
        'title' => "Humour Section Menu",
    },
    {
        'id' => "meta",
        'regex' => "^/meta/",
        'class' => "Meta",
        'title' => "Site Meta Information Section Menu",
    },
);

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

1;