view release on metacpan or  search on metacpan

MP3.pm  view on Meta::CPAN

# staircase style path
sub generate_navpath_staircase {
  my $self = shift;
  my $uri = shift;
  my $home =  $self->home_label;
  my $indent = 3.0;

  my @components = split '/',$uri;
  unshift @components,'' unless @components;
  my ($path,$links) = ('',br());
  my $current_style = "line-height: 1.2; font-weight: bold; color: red;";
  my $parent_style  = "line-height: 1.2; font-weight: bold;";

  for (my $c=0; $c < @components-1; $c++) {
    $path .= escape($components[$c]) ."/";
    my $idt = $c * $indent;
    my $l = a({-href=>$path},$components[$c] || ($home.br({-clear=>'all'})));
    $links .= div({-style=>"text-indent: ${idt}em; $parent_style"},
		  font({-size=>'+1'},$l))."\n";
  }
  my $idt = (@components-1) * $indent;
  $links .= div({-style=>"text-indent: ${idt}em; $current_style"},

apache_mp3/apache_mp3.css  view on Meta::CPAN

   padding: 0;
   margin: 0;
}

TD {
  align: left;
}

.directory {
  /* font-family: sans-serif; */
  font-weight: bold;
}

.subdirectory {
  /* font-family: sans-serif; */
  font-size: 12pt;
  font-weight: bold;
}

.subdirbuttons {
  /* font-family: sans-serif; */
  font-size: 10pt;
}

IMG.subdir {
  vertical-align: middle;
}