overflow: hidden;
padding: 1px;
}
+figcaption > small {
+ display: inline-block;
+}
figure:hover ~ ul figure,
figure:hover ~ ul figcaption {
sub showimg {
my ($name) = @_;
- my ($img) = $name =~ /^([\w-]+)/;
+ my ($img) = $name =~ /^([\w -]+)/;
$name =~ s/\w{4} [^aoeuiyc\W] [rl]?+ \K (?= [^aoeuiy\W] [rl]? [aoeuiy] \w)/­/gx;
- $name =~ y/_/ /;
+ $name =~ s{/(.*)}{ <small>($1)</small>}g;
my $hidden = $name =~ s/\?$//;
my $alt = $name;
$name = "<q>$name</q>" if $name =~ s/\?$//;