Album

 view release on metacpan or  search on metacpan

script/album  view on Meta::CPAN

    $fmt =~ s/^(.*?)\$(\w+)\b/$1.indent($map{$2}, length($1))/gme;
    $fmt;
}

################ Style Sheets ################

my %css_for;

sub init_stylesheets {

    my $css_fontfam = "font-family: Verdana, Arial, Helvetica";
    my $WHITE = "#FFFFFF";
    my $BLACK = "#000000";
    my $RED   = "#FF0000";
    my $LGREY = "#E0E0E0";
    my $MGREY = "#D0D0D0";
    my $DGREY = "#C0C0C0";
    my $DDGREY = "#B0B0B0";
    my $BLUE  = "#0000FF";
    # Grey variants for index table borders.
    my $GR245 = "#F5F5F5";

script/album  view on Meta::CPAN

	    print { $fh } $data;
	    close($fh);
	}
	$data =~ s/^([ \t]+)/detab($1)/gem;
	$data;
    };

    my $css_for_common = heredoc(<<"    EOD", 0);

    body {
	$css_fontfam;
	font-size:  80%;
	text: $BLACK;
    }

    a:link {
	color: $BLACK; text-decoration: none;
    }
    a:visited {
	color: $BLACK; text-decoration: none;
    }
    a:active {

script/album  view on Meta::CPAN

	padding: 0 0 0 0;
    }
    EOD

    my $css_for_ipage = heredoc(<<"    EOD", 0);
    $css_for_common
    body {
	background: $DGREY;
    }
    td {
	font-size:  80%;
    }
    p.hdl, p.hdr {
	font-size: 140%; font-weight: bold;
	margin-top: 0; margin-bottom: 0;
    }
    p.ftl, p.ftr {
	font-size:  80%;
	margin-top: 0; margin-bottom: 0;
    }
    td.topleft {
	text-align: left;
	vertical-align: top;
    }
    td.topright {
	text-align: right;
	vertical-align: top;
    }

script/album  view on Meta::CPAN

    table.inner {
	/* need a width otherwise we cannot center it */
	width: ${helper}px;
	border: outset 0px;
    }
    table.inner td {
	border: inset 0px;
        padding: 0 0 0 0;
    }
    p.hdr {
	font-size: 140%; font-weight: bold;
	margin-top: 0; margin-bottom: 0;
    }
    p.hdr a:link {
	color: $BLACK; text-decoration: underline;
    }
    p.hdr a:visited {
	color: $BLACK; text-decoration: underline;
    }
    p.hdr a:hover {
	color: $RED; text-decoration: underline;

script/album  view on Meta::CPAN

    }
    EOD

    $css_for{large}   = $load->("large",   $css_for_image);
    $css_for{medium}  = $load->("medium",  $css_for_image);

    $css_for{journal} = $load->("journal", heredoc(<<"    EOD", 4));
    /* ALBUM-CSS-VERSION: ${css_major}.${css_minor} */
    $css_for_common
    body {
	font-size: 100%;
	background: $WHITE;
    }
    td {
	font-size:  100%;
    }
    p.hdl {
	font-size: 140%; font-weight: bold;
	margin-left: 0.1in; margin-top: 0.1in; margin-bottom: 0.1in;
    }

    table.outer {
	width: 600px;
	border-spacing: 10px;
    }
    tr.grey {
	background: $DGREY;
    }

script/album  view on Meta::CPAN

    table.outer td.buttons {
	vertical-align: middle;
	text-align: right;
	padding-right: 0.1in;
    }
    EOD

    $css_for{main} = $load->("main", heredoc(<<"    EOD", 4));
    /* ALBUM-CSS-VERSION: ${css_major}.${css_minor} */
    body {
        $css_fontfam;
        font-size:  80%;
        background: $LGREY;
        background-image: url("icons/bg.jpg");
        background-repeat: no-repeat;
        background-position: 10% 60%;
    }
    p.ftr {
        padding-left: 10%;
        padding-top: 40%;
        font-size:  80%;
        text-align: left;
        color: $DDGREY;
    }
    p.indextitle {
        padding-left: 10%;
        font-size: 500%;
        font-weight: bold;
        color: $WHITE;
    }
    p.indextitle a {
        text-decoration: none;
        color: $WHITE;
    }
    EOD
}

sub css_for {