Source

shlomi-fish-homepage / lib / MySectNavData.pm

shl...@cec68495-… 3ef9886 






Shlomi Fish 84f8239 
shl...@cec68495-… 3ef9886 


shl...@cec68495-… 2ed2fa3 
shl...@cec68495-… 3ef9886 
shl...@cec68495-… 02c7915 
shl...@cec68495-… 3ef9886 

shl...@cec68495-… 4a43c7e 
shl...@iglu.org.… bb5b772 
shl...@cec68495-… 4a43c7e 



shl...@cec68495-… 3ef9886 


shl...@cec68495-… 02c7915 
shl...@cec68495-… 3ef9886 
shl...@cec68495-… 4a75c72 

shl...@iglu.org.… f6e8204 
shl...@cec68495-… 4a75c72 
shl...@cec68495-… 02c7915 

shl...@cec68495-… eb04eaa 

shl...@iglu.org.… f6e8204 
shl...@cec68495-… eb04eaa 


Shlomi Fish 4996790 





shl...@cec68495-… 3ef9886 









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' => 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;